From 325d8b4ef7a02459172d6b6a423e36d7b3cadb88 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Tue, 6 Jul 2021 19:02:25 +0100
Subject: (General)~loads of commits, getting ready to port dotfiles to another
 machine

---
 Emacs/.config/emacs/config.org | 62 ++++++++++++++++++++++++++++++------------
 1 file changed, 44 insertions(+), 18 deletions(-)

(limited to 'Emacs/.config/emacs/config.org')

diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index 86ff03b..80d5d86 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -316,8 +316,9 @@ Setup the evil package, with some opinionated keybindings:
     "zC"  #'hs-hide-level
     "'"   #'evil-goto-mark
     "`"   #'evil-goto-mark-line
-    "gu" #'evil-upcase
-    "gU" #'evil-downcase)
+    "C-w" #'evil-window-map
+    "gu"  #'evil-upcase
+    "gU"  #'evil-downcase)
   (general-def
     :states 'visual
     :keymaps '(emacs-lisp-mode-map lisp-interaction-mode-map)
@@ -537,8 +538,12 @@ helpful counterparts.
         counsel-describe-function-function #'helpful-callable
         counsel-describe-variable-function #'helpful-variable
         ivy-re-builders-alist '((swiper . ivy--regex-plus)
+                                (counsel-grep-or-swiper . ivy--regex-plus)
                                 (counsel-rg . ivy--regex-plus)
                                 (t . orderless-ivy-re-builder)))
+  (with-eval-after-load "org-mode"
+    (general-def
+      [remap org-goto] #'counsel-org-goto))
   (counsel-mode))
 #+end_src
 **** Ivy Core
@@ -1325,9 +1330,15 @@ integrate it into my workflow just a bit better.
     "Sync mail via mbsync."
     (interactive)
     (start-process-shell-command "" nil "mbsync -a"))
+  (defun +mail/trash-junk ()
+    "Delete any mail in junk"
+    (interactive)
+    (start-process-shell-command "" nil "notmuch search --output=files --format=text0 tag:deleted tag:spam tag:trash tag:junk | xargs -r0 rm"))
   :custom
   (notmuch-show-logo nil)
+  (notmuch-search-oldest-first nil)
   (notmuch-hello-sections '(notmuch-hello-insert-saved-searches notmuch-hello-insert-alltags))
+  (notmuch-archive-tags '("-inbox" "-unread" "+archive"))
   (mail-signature +mail/signature)
   (mail-default-directory +mail/local-dir)
   (mail-source-directory +mail/local-dir)
@@ -1338,6 +1349,8 @@ integrate it into my workflow just a bit better.
   ;; sync mail after refresh
   (advice-add #'notmuch-poll-and-refresh-this-buffer :before
               #'+mail/sync-mail)
+  (advice-add #'notmuch-poll-and-refresh-this-buffer :after
+              #'+mail/trash-junk)
   (with-eval-after-load "evil-collection"
     (evil-collection-notmuch-setup)))
 #+end_src
@@ -1716,6 +1729,7 @@ Along with that I setup the package =proced-narrow= which allows
 further filtering of the process list.
 #+begin_src emacs-lisp
 (use-package proced-narrow
+  :straight t
   :after proced
   :general
   (general-def
@@ -2009,6 +2023,13 @@ use the current buffer?) but it works out.
     :keymaps 'pdf-view-mode-map
     "M-g"    #'pdfgrep))
 #+end_src
+** SQL
+#+begin_src emacs-lisp
+(use-package sql
+  :straight nil
+  :init
+  (setq sql-display-sqli-buffer-function nil))
+#+end_src
 ** Ada
 Check out [[file:ada-mode.el][ada-mode*]], my custom ada-mode that replaces the default one.
 This mode just colourises stuff, and uses eglot to do the heavy
@@ -2124,14 +2145,7 @@ vanilla =org-goto=.  Also records for auto insertion.
         "#+latex: \clearpage\n"
         "#+toc: headlines\n"
         "#+latex: \clearpage\n\n"
-        "* " _)))
-  :config
-  (with-eval-after-load "swiper"
-    (defun +org/swiper-goto ()
-      (interactive)
-      (counsel-grep-or-swiper "^\\* "))
-    (general-def
-      [remap org-goto] #'+org/swiper-goto)))
+        "* " _))))
 #+end_src
 *** Org Core Bindings
 Some bindings for org mode.
@@ -2202,13 +2216,6 @@ look is nice to have.
 (use-package org-fragtog
   :hook (org-mode-hook . org-fragtog-mode))
 #+end_src
-*** Org pretty tables
-Make the default ASCII tables of org mode pretty with
-#+begin_src emacs-lisp
-(use-package org-pretty-table
-  :straight (org-pretty-table-mode :type git :host github :repo "Fuco1/org-pretty-table")
-  :hook (org-mode-hook . org-pretty-table-mode))
-#+end_src
 *** Org pretty tags
 #+begin_src emacs-lisp
 (use-package org-pretty-tags
@@ -2381,6 +2388,25 @@ this.
         (clang-format-region (region-beginning) (region-end))
       (clang-format-buffer))))
 #+end_src
+** Racket
+A scheme with lots of stuff inside it.  Using it for a language design
+book so it's useful to have some Emacs binds for it.
+#+begin_src emacs-lisp
+(use-package racket-mode
+  :straight t
+  :hook (racket-mode-hook . racket-xp-mode)
+  :display
+  ("\\*Racket.*"
+   (display-buffer-at-bottom)
+   (window-height . 0.25))
+  :general
+  (local-leader
+    :keymaps 'racket-mode-map
+    "r" #'racket-run
+    "i" #'racket-repl
+    "sr" #'racket-send-region
+    "sd" #'racket-send-definition))
+#+end_src
 ** CSharp
 #+begin_src emacs-lisp
 (use-package csharp-mode
@@ -2488,7 +2514,7 @@ Here I configure the REPL for Haskell via the
   (leader
     "th" #'+shell/toggle-haskell-repl)
   :display
-  ("\\*haskell\\*"
+  ("\\*haskell.**\\*"
    (display-buffer-at-bottom)
    (window-height . 0.25))
   :config
-- 
cgit v1.2.3-13-gbd6f