(Emacs)~tons of edits

I can't be bothered to annotate any of these.  Thinking of making a
new Emacs configuration as this one is unnecessarily bloated and I
can't think of any other way to fix it.

4 files changed, 24 insertions, 8 deletions

diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index fd468ef..1194a53 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -1144,10 +1144,11 @@ the projectile command map for quick access.
   :general
   (leader "p" #'projectile-command-map)
   :init
-  (setq projectile-tags-command "ctags -Re -f \"%s\" %s \"%s\""))
+  (setq projectile-tags-command "ctags -R -f \"%s\" %s \"%s\""))
 #+end_src
 *** Counsel projectile
-Counsel projectile provides the ivy interface to projectile commands, which is really useful.
+Counsel projectile provides the ivy interface to projectile commands,
+which is really useful.
 #+begin_src emacs-lisp
 (use-package counsel-projectile
   :after (projectile counsel)
@@ -1464,12 +1465,12 @@ are some corners I'd like to adjust).
   (dired-mode-hook . dired-hide-details-mode)
   (dired-mode-hook . auto-revert-mode)
   :init
-  (setq-default dired-listing-switches "-AFBl --group-directories-first")
+  (setq-default dired-listing-switches "-AFBl --sort=time --group-directories-first")
   :general
   (leader
     :infix "d"
     "f" #'find-dired
-    "D" #'dired-other-frame
+    "D" #'+dired/maybe-frame
     "d" #'dired-jump
     "l" (proc (interactive) (find-dired "~/Text/PDFs/" "-iname 'cs[0-9][0-9][0-9].pdf' -or -iname 'ma[0-9][0-9][0-9]*.pdf'")))
   :config
@@ -1488,6 +1489,12 @@ thumb, otherwise open the file."
           (image-dired-display-thumb)
         (find-file-other-frame filename))))
 
+  (defun +dired/maybe-frame (&optional ARG)
+    (interactive "P")
+    (if ARG
+        (call-interactively #'dired-other-frame)
+      (call-interactively #'dired)))
+
   (general-def
     :states '(normal motion)
     :keymaps 'dired-mode-map
@@ -1854,6 +1861,9 @@ work for me given the various TeX utilities installed via Arch.
   :after ledger-mode)
 #+end_src
 ** Zone
+:PROPERTIES:
+:header-args:emacs-lisp: :tangle no
+:END:
 Of course Emacs has a cool screensaver software.
 
 #+begin_src emacs-lisp
@@ -2464,6 +2474,9 @@ book so it's useful to have some Emacs binds for it.
     "sd" #'racket-send-definition))
 #+end_src
 ** CSharp
+:PROPERTIES:
+:header-args:emacs-lisp: :tangle no
+:END:
 I sometimes use C# when I'm bored or if I'm trying out a language
 feature.
 #+begin_src emacs-lisp
diff --git a/Emacs/.config/emacs/elisp/ada-mode.el b/Emacs/.config/emacs/elisp/ada-mode.el
index 2dc40d7..a789fc2 100644
--- a/Emacs/.config/emacs/elisp/ada-mode.el
+++ b/Emacs/.config/emacs/elisp/ada-mode.el
@@ -30,6 +30,9 @@
 ;; this opportunity to make a new mode and see what facilities Emacs
 ;; provides for it.
 
+;;; Other notes:
+;; TODO: Handle indenting
+
 ;;; Code:
 
 (require 'generic-x)
diff --git a/Emacs/.config/emacs/elisp/personal-theme.el b/Emacs/.config/emacs/elisp/personal-theme.el
index e2b265a..aa4cd6a 100644
--- a/Emacs/.config/emacs/elisp/personal-theme.el
+++ b/Emacs/.config/emacs/elisp/personal-theme.el
@@ -1,5 +1,5 @@
 (deftheme personal
-  "Created 2021-07-28.")
+  "Created 2021-10-20.")
 
 (custom-theme-set-faces
  'personal
@@ -26,13 +26,13 @@
  '(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
  '(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
  '(font-lock-string-face ((t (:family "Fira Code" :foreground "yellow4"))))
- '(font-lock-type-face ((t (:foreground "chartreuse" :height 0.95 :width ultra-expanded :family "Hack"))))
+ '(font-lock-type-face ((t (:foreground "chartreuse" :family "Liberation Mono"))))
  '(font-lock-variable-name-face ((t (:family "Source Code Variable" :foreground "#e6e6e6"))))
  '(font-lock-warning-face ((t (:inherit (error)))))
  '(button ((t (:inherit (link)))))
  '(link ((t (:underline (:color foreground-color :style line) :foreground "cyan1"))))
  '(link-visited ((t (:foreground "violet" :inherit (link)))))
- '(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray"))))
+ '(fringe ((t (:background "grey4"))))
  '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line)))))
  '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch)))))
  '(mode-line ((t (:box (:line-width -1 :color nil :style released-button) :foreground "white" :background "black"))))
diff --git a/Emacs/.config/emacs/straight/versions/default.el b/Emacs/.config/emacs/straight/versions/default.el
index da06be9..149f172 100644
--- a/Emacs/.config/emacs/straight/versions/default.el
+++ b/Emacs/.config/emacs/straight/versions/default.el
@@ -43,7 +43,7 @@
  ("key-chord" . "7f7fd7c5bd2b996fa054779357e1566f7989e07d")
  ("ledger-mode" . "4c48d4136229e1ba399906d6b23f7f39c9d4fb3c")
  ("let-alist" . "6708ec0b2e6dff80ff5b64698aa009d9070a2ed2")
- ("magit" . "cb9bb20cfe8e3a50df8669a43611ebc9a516358a")
+ ("magit" . "386843483b262ad57b24aec3167035b01acb4bf1")
  ("melpa" . "74f79dc5db5246a2f70e4d4ad76601be8b5c79d8")
  ("nhexl-mode" . "211e6c72e1489426cde64eb9ac26719463524bde")
  ("no-littering" . "57357e15643158b4e0d9b3b4f70a82f5fc73178a")