[Emacs] Switch to Doom Nord Aurora theme

Documents/code/PKGBUILDs/Wonderdraft/PKGBUILD

@@ -1,6 +1,6 @@
 # Maintainer: Lucien Cartier-Tilet <lucien@phundrak.com>
 pkgname=Wonderdraft
-pkgver=1.1.6.1
+pkgver=1.1.7.3
 pkgrel=1
 epoch=
 pkgdesc=""
@@ -19,7 +19,7 @@ options=(!strip docs !libtool !staticlibs emptydirs zipman purge !debug)
 install=
 changelog=
 source=($pkgname-$pkgver-Linux64.zip)
-sha512sums=('27b0a56c95efe99c2b3cadb10c4e70186591bef0793d58b1acff99f8dfc789806ae7821adcdfc10af1c46e4801a8fe753380913ea4aeb4fb8030fe7cf80ea090')
+sha512sums=('4eaff01dad549223265cca10c3f9bf9cdbee4542b6a4afbf513fd655a47238e2d757c36d8ed7ffe16a19879f6d41739ee1e722ebc120507cde3b39250ae22c9c')
 noextract=()
 
 package() {

Documents/code/PKGBUILDs/emacs/PKGBUILD

@@ -61,7 +61,7 @@ if [[ $CLI == "YES" ]] ; then
 else
   pkgname="emacs-phundrak-git"
 fi
-pkgver=29.0.50.158942
+pkgver=29.0.50.159501
 pkgrel=1
 pkgdesc="GNU Emacs. Development master branch with Phundrak’s tweaks."
 arch=('x86_64')

org/config/bin.org

@@ -31,7 +31,7 @@ of said command running.
 | ~pactl~                | ~load-module module-switch-on-connect~     |           |
 | ~mpc~                  | ~stop~                                     | no        |
 | ~xrdb~                 | ~-merge "$XDG_CONFIG_HOME"/X11/Xresources~ | no        |
-| ~picom~                | ~--experimental-backends~                  | yes       |
+| ~picom~                |                                          | yes       |
 | ~numlockx~             | ~on~                                       | yes       |
 | ~xfce-polkit~          |                                          | yes       |
 | ~nm-applet~            |                                          | yes       |
@@ -70,7 +70,7 @@ of said command running.
            "\n")
 #+END_SRC
 
-#+RESULTS[aa4d3befb57ec44dc2a4d8dcd84fad5780c61186]: autostart-gen
+#+RESULTS[8c42a43989020c61050b2930ae60c81248c2dd44]: autostart-gen
 #+begin_src bash :exports code
 which pactl && pactl load-module module-switch-on-connect &
 which mpc && mpc stop &
@@ -78,7 +78,7 @@ which xrdb && xrdb -merge "$XDG_CONFIG_HOME"/X11/Xresources &
 which picom && if pgrep -x picom ; then
     echo picom already running
 else
-    picom --experimental-backends &
+    picom &
     disown
 fi
 which numlockx && if pgrep -x numlockx ; then

org/config/emacs.org

@@ -352,7 +352,8 @@ It is nicer to see a cursor cover the actual space of a character.
 When text is ellipsed, I want the ellipsis marker to be a single
 character of three dots. Let’s make it so:
 #+begin_src emacs-lisp
-(setq truncate-string-ellipsis "…")
+(with-eval-after-load 'mule-util
+ (setq truncate-string-ellipsis "…"))
 #+end_src
 
 With Emacs 29.0.50 onwards, a new frame parameter exists:
@@ -371,6 +372,7 @@ hidden. This is why I want the current date and time to be displayed,
 in an ISO-8601 style, although not exactly ISO-8601 (this is the best
 time format, fight me).
 #+begin_src emacs-lisp
+(require 'time)
 (setq display-time-format "%Y-%m-%d %H:%M")
 (display-time-mode 1) ; display time in modeline
 #+end_src
@@ -518,7 +520,7 @@ This function allows the user to open all marked files from a dired
 buffer as new Emacs buffers.
 #+begin_src emacs-lisp
 (defun phundrak/open-marked-files (&optional files)
-  "Open all marked FILES in dired buffer as new Emacs buffers."
+  "Open all marked FILES in Dired buffer as new Emacs buffers."
   (interactive)
   (let* ((file-list (if files
                         (list files)
@@ -530,50 +532,6 @@ buffer as new Emacs buffers.
          (file-list))))
 #+end_src
 
-*** ~xah/open-in-external-app~
-:PROPERTIES:
-:CUSTOM_ID: Custom-Elisp-Dired-functions-xah-open-in-external-appnm6kel6184j0
-:END:
-#+begin_src emacs-lisp
-(defun xah/open-in-external-app (&optional file)
-  "Open FILE or dired marked FILE in external app.
-The app is chosen from the user’s OS preference."
-  (interactive)
-  (let ((file-list (if file
-                       (list file)
-                     (if (equal major-mode "dired-mode")
-                         (dired-get-marked-files)
-                       (list (buffer-file-name)))))
-        (do-it-p   (if (<= (length file-list) 5)
-                       t
-                     (y-or-n-p "Open more than 5 files? "))))
-    (when do-it-p
-      (mapc (lambda (file-path)
-              (let ((process-connection-type nil))
-                (start-process "" nil "xdg-open" file-path)))
-            file-list))))
-#+end_src
-
-*** ~xah/dired-sort~
-:PROPERTIES:
-:CUSTOM_ID: Custom-Elisp-Dired-functions-xah-dired-sort9fakel6184j0
-:END:
-#+begin_src emacs-lisp
-(defun xah/dired-sort ()
-  "Sort dired dir listing in different ways.
-Prompt for a choice."
-  (interactive)
-  (let (sort-by arg)
-    (setq sort-by (completing-read "Sort by:" '("name" "size" "date" "extension")))
-    (pcase sort-by
-      ("name" (setq arg "-ahl --group-directories-first"))
-      ("date" (setq arg "-ahl -t --group-directories-first"))
-      ("size" (setq arg "-ahl -S --group-directories-first"))
-      ("extension" (setq arg "ahlD -X --group-directories-first"))
-      (otherwise (error "Dired-sort: unknown option %s" otherwise)))
-    (dired-sort-other arg)))
-#+end_src
-
 ** Switch between buffers
 :PROPERTIES:
 :CUSTOM_ID: Custom-Elisp-Switch-between-buffersp4ekel6184j0
@@ -3029,31 +2987,34 @@ enough for me.
 :END:
 Iedit is a powerful text editing tool that can be used to refactor
 code through the edition of multiple regions at once, be it in a
-region or in a whole buffer.
+region or in a whole buffer. Since I’m using evil, I’ll also use a
-#+begin_src emacs-lisp
+compatibility package that adds states for iedit.
-(use-package iedit
-  :defer t
-  :straight (:build t)
-  :general
-  (phundrak/leader-key
-    :infix "r"
-    :packages 'iedit
-    "" '(:ignore t :which-key "refactor")
-    "i" #'iedit-mode))
-#+end_src
-
-Since I’m using evil, I’ll also use a compatibility package that adds
-states for iedit.
 #+begin_src emacs-lisp
 (use-package evil-iedit-state
-  :after iedit
   :defer t
   :straight (:build t)
   :commands (evil-iedit-state evil-iedit-state/iedit-mode)
   :init
   (setq iedit-curent-symbol-default     t
         iedit-only-at-symbol-boundaries t
-        iedit-toggle-key-default        nil))
+        iedit-toggle-key-default        nil)
+  :general
+  (phundrak/leader-key
+    :infix "r"
+    :packages '(iedit evil-iedit-state)
+    "" '(:ignore t :which-key "refactor")
+    "i" #'evil-iedit-state/iedit-mode)
+  (general-define-key
+   :keymaps 'evil-iedit-state-map
+   "c" nil
+   "s" nil
+   "J" nil
+   "S" #'iedit-expand-down-a-line
+   "T" #'iedit-expand-up-a-line
+   "h" #'evil-iedit-state/evil-change
+   "k" #'evil-iedit-state/evil-substitute
+   "K" #'evil-iedit-state/substitute
+   "q" #'evil-iedit-state/quit-iedit-mode))
 #+end_src
 
 *** Parinfer
@@ -3618,9 +3579,8 @@ supported natively. I will describe them here.
 #+begin_src emacs-lisp
 (use-package tramp
   :straight (tramp :type built-in :build t)
-  :init
-  <<tramp-add-yadm>>
   :config
+  <<tramp-add-yadm>>
   (csetq tramp-ssh-controlmaster-options nil
          tramp-verbose 0
          tramp-auto-save-directory (locate-user-emacs-file "tramp/")
@@ -4493,7 +4453,7 @@ the usage of the ~:ignore:~ tag in org.
 :END:
 #+name: org-agenda-files
 #+begin_src emacs-lisp
-(setq org-agenda-files (list "~/org/agenda" "~/org/notes.org" "~/org/internship.org"))
+(setq org-agenda-files (list "~/org/agenda" "~/org/notes.org"))
 #+end_src
 
 *** Babel
@@ -7888,12 +7848,14 @@ slightly darker background? I’m not sure.)
 :CUSTOM_ID: Packages-Configuration-Visual-Configuration-Themeded6fl6184j0
 :END:
 You may have noticed I use the Nord theme pretty much everywhere on my
-computer, why not Emacs?
+computer, why not Emacs? In my opinion, its aurora variant is nicer
+than the default Nord theme since it is richer in colors --- just a
+personal preference.
 #+begin_src emacs-lisp
 (use-package doom-themes
   :straight (:build t)
   :defer t
-  :init (load-theme 'doom-nord t))
+  :init (load-theme 'doom-nord-aurora t))
 #+end_src
 
 *** Rainbow Delimiters

org/config/fish.org

@@ -687,6 +687,12 @@ abbr nsxiv 'nsxiv -abfs f'
 abbr sxiv  'nsxiv -abfs f' # old habits die hard
 #+END_SRC
 
+The following abbreviation is here so I can easily launch software
+with my Nvidia GPU.
+#+begin_src fish
+abbr nv 'env __NV_PRIME_RENDER_OFFLOAD=1 __GLX_VENDOR_LIBRARY_NAME=nvidia'
+#+end_src
+
 Finally, let's declare the following abbreviation that will launch an mpv
 instance displaying my webcam:
 #+BEGIN_SRC fish

org/config/stumpwm.org

@@ -596,13 +596,13 @@ I’ve been used to ten groups, or workspaces, or tags, since I began
 using tiling window managers. I shall then continue this habit. Here
 is the list of groups I will be using:
 #+name: list-groups
-| Groups  | Number | Windows | Type |
+| Groups  | Number | Windows | Type   |
-|---------+--------+---------+------|
+|---------+--------+---------+--------|
-| [TERM]  |      1 |         |      |
+| [EMACS] |      1 |         | Tiling |
-| [EMACS] |      2 |         |      |
+| [TERM]  |      2 |         | Tiling |
-| [WWW]   |      3 |         |      |
+| [WWW]   |      3 |         | Tiling |
-| [PRIV]  |      4 |         |      |
+| [PRIV]  |      4 |         | Tiling |
-| [FILES] |      5 | Nemo    |      |
+| [FILES] |      5 | Nemo    | Tiling |
 
 #+name: gen-groups
 #+header: :exports none
@@ -623,9 +623,9 @@ is the list of groups I will be using:
                "\n"))
 #+end_src
 
-#+RESULTS[80f994f9e2436c4c5e2f9916b93813083135c1d2]: gen-groups
+#+RESULTS[7c58aa808149319f652155b05c9324b841324f23]: gen-groups
-: (grename "[TERM]")
+: (grename "[EMACS]")
-: (gnewbg "[EMACS]")
+: (gnewbg "[TERM]")
 : (gnewbg "[WWW]")
 : (gnewbg "[PRIV]")
 : (gnewbg "[FILES]")