Bunch of changes

I added support for focusing a specific window when some kind of
notification occurs to my DWM fork in 879e7d3.  This script allows me
to choose an open window and force my window manager to pull it up.
Very powerful!

Emacs/.config/emacs/.config/eshell/aliases

@@ -1,6 +1,6 @@
 alias l ls -la
 alias ss sudo-switch
-alias pr project-root
+alias pr project-root $1
 alias gt goto
 alias gs magit-status
 alias fw find-file-other-window $1

Emacs/.config/emacs/.var/gamegrid-user-score/tetris-scores

@@ -1,6 +1,9 @@
 00527	Wed Sep  3 17:15:36 2025	Aryadev Chavali <aryadev@aryadevchavali.com>
 00458	Tue Oct  1 18:22:44 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
 00424	Tue Oct  1 14:20:22 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
+00382	Sat Jan 24 00:41:28 2026	Aryadev Chavali <aryadev@aryadevchavali.com>
+00381	Tue Dec  9 01:41:15 2025	Aryadev Chavali <aryadev@aryadevchavali.com>
+00364	Sat Jan 24 00:38:27 2026	Aryadev Chavali <aryadev@aryadevchavali.com>
 00288	Sun Jun  1 14:24:57 2025	Aryadev Chavali <aryadev@aryadevchavali.com>
 00281	Thu Jul 13 03:07:51 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00267	Fri Aug 16 10:54:52 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
@@ -11,8 +14,8 @@
 00204	Wed Dec 28 14:50:42 2022	Aryadev Chavali <aryadev@aryadevchavali.com>
 00187	Thu Jan 12 01:30:09 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00172	Mon Jan  9 12:59:13 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
-00166	Fri Aug 16 11:05:23 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
 00166	Mon May  6 02:40:23 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
+00166	Fri Aug 16 11:05:23 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
 00154	Sat Jul 26 18:43:42 2025	Aryadev Chavali <aryadev@aryadevchavali.com>
 00120	Thu Aug 29 18:45:32 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
 00114	Fri Jul 21 11:58:31 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
@@ -29,12 +32,12 @@
 00048	Sun May  5 19:34:16 2024	Aryadev Chavali <aryadev@aryadevchavali.com>
 00046	Wed Oct 12 11:27:19 2022	Aryadev Chavali <aryadev@aryadevchavali.com>
 00042	Tue Aug  1 19:58:49 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
-00038	Tue Oct 11 16:47:44 2022	Aryadev Chavali <aryadev@aryadevchavali.com>
 00038	Fri Oct 14 13:05:44 2022	Aryadev Chavali <aryadev@aryadevchavali.com>
+00038	Tue Oct 11 16:47:44 2022	Aryadev Chavali <aryadev@aryadevchavali.com>
 00037	Thu Aug 17 18:11:59 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00027	Thu Jan 12 01:14:32 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00024	Thu Jan 12 01:14:54 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00012	Tue Jan 17 13:58:01 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
-00006	Thu Jun 22 23:16:42 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00006	Mon Jan  9 11:04:43 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
+00006	Thu Jun 22 23:16:42 2023	Aryadev Chavali <aryadev@aryadevchavali.com>
 00000	Fri Dec  2 13:58:02 2022	Aryadev Chavali <aryadev@aryadevchavali.com>

Emacs/.config/emacs/elisp/better-mode-line.el

@@ -39,27 +39,23 @@
   "Minimum size of padding string.")
 
 (defun bml/--get-padding-size (other-size)
-  "Compute length of padding to ensure string of size OTHER is on an
+  "Compute length of padding to ensure string of size OTHER-SIZE is on an
 extreme end to CENTRE-SEGMENT."
-  (let* ((centre-size (length (format-mode-line bml/centre-segment)))
+  (let ((centre-size (length (format-mode-line bml/centre-segment)))
-         (win-width (window-width))
+        (window-width ;; compute total width of window (including margins)
-         (margins (window-margins))
+         (thread-last (cons (window-width) (window-margins))
-         (width (if (null (car margins))
+                      (mapcar (lambda (x) (if (null x) 0 x)))
-                    win-width
+                      (cl-reduce #'+))))
-                  (+ (car margins) win-width (cdr margins)))))
+    (floor (- (/ window-width 2) (/ centre-size 2) other-size))))
-    (- (floor (/ width 2)) (floor (/ centre-size 2)) other-size)))
 
 (defun bml/--generate-padding (segment)
   "Make padding string to separate center segment from SEGMENT."
   (let* ((segment-size (length (format-mode-line segment)))
          (padding-size (bml/--get-padding-size segment-size)))
-    (make-string (if (< padding-size bml/--minimum-padding)
+    (make-string (max padding-size bml/--minimum-padding) ?\s)))
-                     bml/--minimum-padding
-                   padding-size)
-                 ?\s)))
 
 (defun bml/setup-mode-line ()
-  "Call this to setup the mode-line when:
+  "Call this to setup the mode-line when either:
 - first loading the package.
 - segments are updated."
   (setq-default mode-line-format

Emacs/.config/emacs/elisp/eshell-additions.el

@@ -53,16 +53,29 @@
         (find-file name))))
 
 (defun eshell/project-root (&rest args)
-  "Change to directory `project-root'"
+  "Change to directory of `project-root', if current working directory is
-  (cond
+in a project."
-   ((project-current)
+  (eshell-eval-using-options
-    (eshell-goto-latest-prompt)
+   "project-root"
-    (eshell/cd (list (project-root (project-current)))))
+   args
-   (t
+   '((?h "help" nil nil "show usage")
-    (setq eshell-last-command-status 1)
+     :usage "
-    (eshell/echo
+
-     (format "[%s]: No project in current directory"
+Go to the root of the project which the current working directory is a
-             (propertize "Error" 'font-lock-face '(:foreground "red")))))))
+member of.  If the current working directory is not in a valid project,
+an error is produced.")
+   (cond
+    ((project-current)
+     (eshell-goto-latest-prompt)
+     (thread-last (project-current)
+                  (project-root)
+                  (list)
+                  (eshell/cd)))
+    (t
+     (setq eshell-last-command-status 1)
+     (thread-last (propertize "Error" 'font-lock-face '(:foreground "red"))
+                  (format "[%s]: No project in current directory")
+                  (eshell/echo))))))
 
 (defun eshell/sudo-switch (&rest args)
   "Switch to and from administrative (sudo) mode in Eshell.
@@ -77,11 +90,10 @@ Uses tramp to figure out if we're in sudo mode or not.  "
 
 ;; +eshell/open and +eshell/at-cwd
 (defun +eshell/--current-instances ()
-  (cl-loop for buffer being the buffers
+  (cl-loop for buffer in (buffer-list)
            if (with-current-buffer buffer
                 (eq major-mode 'eshell-mode))
-           collect
+           collect (cons (buffer-name buffer) buffer)))
-           (cons (buffer-name buffer) buffer)))
 
 (defun +eshell/--choose-instance ()
   (let* ((current-instances (+eshell/--current-instances))

Emacs/.config/emacs/straight/versions/default.el

@@ -1,4 +1,5 @@
 (("Emacs-wgrep"                 . "3132abd3750b8c87cbcf6942db952acfab5edccd")
+ ("Tidal"                       . "fefb1c364af42be265e9f02477d6d2d8fb2ec2b9")
  ("ace-link"                    . "06ab398df85e81d1dc763b3210732dd26cba60a1")
  ("ace-window"                  . "77115afc1b0b9f633084cf7479c767988106c196")
  ("aggressive-indent-mode"      . "a437a45868f94b77362c6b913c5ee8e67b273c42")
@@ -50,6 +51,7 @@
  ("goto-chg"                    . "278cd3e6d5107693aa2bb33189ca503f22f227d0")
  ("gptel"                       . "8a39875973a97c1e4aa53edf27407e8c0daaae5e")
  ("guile"                       . "a0f111f8dedd31c593c4ed12c0b99745f3c1340f")
+ ("haskell-mode"                . "383b4b77753ef83420c7a755f86e1ec4770f551b")
  ("helpful"                     . "4ba24cac9fb14d5fdc32582cd947572040e82b2c")
  ("hl-todo"                     . "0faf8569b67f5b23891416d9e7a67e3843338f2a")
  ("htmlize"                     . "c9a8196a59973fabb3763b28069af9a4822a5260")
@@ -78,6 +80,7 @@
  ("queue"                       . "130c2d656cd5d7376552272fab9e50a7c37d0c4a")
  ("rainbow-delimiters"          . "f40ece58df8b2f0fb6c8576b527755a552a5e763")
  ("rg.el"                       . "e9dc4ed342e0212d08fb82554dfd3c57fdfa5b1a")
+ ("rmsbolt"                     . "05c4795226f859009bc570940139473b6b6f7555")
  ("rust-mode"                   . "9915b3a585a7a75e9126df9e0e9d1df8057ae3cf")
  ("s.el"                        . "dda84d38fffdaf0c9b12837b504b402af910d01d")
  ("separedit.el"                . "bfd0902d771f9f0160e4f16a7b6e8c29ce3447fe")

NeoVim/.config/nvim/lazy-lock.json

@@ -1,7 +1,7 @@
 {
   "NeoSolarized": { "branch": "master", "commit": "b94b1a9ad51e2de015266f10fdc6e142f97bd617" },
-  "lazy.nvim": { "branch": "main", "commit": "85c7ff3711b730b4030d03144f6db6375044ae82" },
+  "lazy.nvim": { "branch": "main", "commit": "306a05526ada86a7b30af95c5cc81ffba93fef97" },
   "plenary.nvim": { "branch": "master", "commit": "b9fd5226c2f76c951fc8ed5923d85e4de065e509" },
-  "telescope.nvim": { "branch": "master", "commit": "3a12a853ebf21ec1cce9a92290e3013f8ae75f02" },
+  "telescope.nvim": { "branch": "master", "commit": "ad7d9580338354ccc136e5b8f0aa4f880434dcdc" },
   "vim-tmux-navigator": { "branch": "master", "commit": "c45243dc1f32ac6bcf6068e5300f3b2b237e576a" }
 }

SXHkD/.config/sxhkd/sxhkdrc

@@ -10,13 +10,16 @@ super + e
   $HOME/.local/scripts/eselect;
 
 super + E
-  notify-send -u low "Launching basic"; \
+  notify-send -u low "Launching everything"; \
   $HOME/.local/scripts/spawn_everything;
 
 super + s
   notify-send -u low "Launching browser"; \
   $HOME/.local/scripts/browser;
 
+super + f
+  $HOME/.local/scripts/search_apps;
+
 super + C
   dunstctl close;
 
@@ -33,7 +36,10 @@ super + minus
   $HOME/.local/scripts/act_display "--off";
 
 super + numbersign
-  $HOME/.local/scripts/bt_connect;
+  $HOME/.local/scripts/bt_connect connect;
+
+super + asciitilde
+  $HOME/.local/scripts/bt_connect disconnect;
 
 super + underscore
   notify-send -u normal "Turning off screentimer"; \

Scripts/.local/scripts/bt_connect

@@ -1,4 +1,7 @@
 #!/usr/bin/env sh
 
 choice=$(bluetoothctl devices | sed 's/Device \([A-Z0-9:]*\) \(.*\)/\2\t\1/g' | dmenu -i -p "Device: " | sed 's/.*\t//')
-[ ! -z $choice ] && bluetoothctl connect $choice
+if [ ! -z $choice ]
+then
+    bluetoothctl $1 $choice
+fi

Scripts/.local/scripts/eselect

@@ -3,22 +3,22 @@
 case "$(printf "new\nstop\nrestart\neshell\nmail" | dmenu -p "eserver: ")" in
     "restart")
         emacsclient --eval "(save-buffers-kill-emacs)" && \
-            suctl restart emacs && \
+            systemctl --user restart emacs && \
             notify-send "eselect: Restarted server";;
     "stop")
         emacsclient --eval "(save-buffers-kill-emacs)" && \
-            suctl stop emacs && \
+            systemctl --user stop emacs && \
             notify-send "eselect: Halted server";;
     "new")
         notify-send "eselect: Launching Emacs" && \
-            suctl start emacs && \
+            systemctl --user start emacs && \
             emacsclient -c -a "emacs";;
     "eshell")
         notify-send "eselect: Launching Eshell" && \
-            suctl start emacs && \
+            systemctl --user start emacs && \
             emacsclient -c -a "emacs" --eval "(progn (eshell) (delete-other-windows))";;
     "mail")
         notify-send "eselect: Launching notmuch" && \
-            suctl start emacs && \
+            systemctl --user start emacs && \
             emacsclient -c -a "emacs" --eval "(progn (notmuch) (delete-other-windows))";;
 esac

Scripts/.local/scripts/search_apps

@@ -0,0 +1,9 @@
+#!/usr/bin/env sh
+
+app=$(wmctrl -l |\
+          awk '{for (i=4; i<=NF; i++) printf "%s ", $i; print ""}' |\
+          dmenu -i -p "Switch to: ")
+if [ ! -z "$app" ]
+then
+    wmctrl -a $app
+fi

Shell/.zprofile

@@ -24,7 +24,7 @@ export SSH_AUTH_SOCK="${XDG_RUNTIME_DIR}/ssh-agent.socket"
 sh /etc/profile.d/debuginfod.sh
 
 # Import useful variables to systemd
-systemctl --user import-environment PATH SSH_AUTH_SOCK EDITOR
+systemctl --user import-environment PATH SSH_AUTH_SOCK EDITOR DEBUGINFOD_URLS
 
 # Run some programs
 echo "Welcome to..."

Shell/.zshrc

@@ -126,12 +126,16 @@ export NVM_DIR="$HOME/.nvm"
 export SDKMAN_DIR="/home/oreo/.sdkman"
 [[ -s "/home/oreo/.sdkman/bin/sdkman-init.sh" ]] && source "/home/oreo/.sdkman/bin/sdkman-init.sh"
 
+## opam
 if command -v opam 2>&1 >/dev/null
 then
 eval $(opam env)
 fi
 
-[ -f "/home/oreo/.ghcup/env" ] && . "/home/oreo/.ghcup/env" # ghcup-env
+## pyenv
 export PYENV_ROOT="$HOME/.pyenv"
 [[ -d $PYENV_ROOT/bin ]] && export PATH="$PYENV_ROOT/bin:$PATH"
 eval "$(pyenv init - zsh)"
+
+## ghcup
+[ -f "/home/oreo/.ghcup/env" ] && . "/home/oreo/.ghcup/env" # ghcup-env

XServer/.xinitrc

@@ -3,16 +3,16 @@
 killall sxhkd;
 
 sh .xprofile;
-screentimer on;
+$HOME/.local/scripts/screentimer on;
 
 xrandr --output HDMI1    --auto --mode 1920x1080 --left-of eDP1;
 xrandr --output eDP1     --auto --mode 1920x1080;
 xrandr --output HDMI-0   --auto --mode 1920x1080 --right-of HDMI-1-1;
 xrandr --output HDMI-1-1 --auto --mode 1920x1080 --left-of HDMI-0;
 
+$(xss-lock --transfer-sleep-lock -- $HOME/.local/scripts/lock) &
 sxhkd &
 dunst &
-$(xss-lock --transfer-sleep-lock -- $HOME/.local/scripts/lock) &
 dwmblocks &
 # $HOME/.local/scripts/compositor &
 $HOME/.local/scripts/background &

XServer/.xprofile

@@ -1,4 +1,3 @@
 #!/usr/bin/env sh
-setxkbmap gb -option shift:both_capslock -option caps:escape;
+setxkbmap gb -option shift:both_capslock;
-# xmodmap ~/.Xmodmap;
 [ -f ~/.Xresources ] && xrdb -merge -I$HOME ~/.Xresources;

aspell/.aspell.en.pws

@@ -1,4 +1,4 @@
-personal_ws-1.1 en 189
+personal_ws-1.1 en 192
 Architecting
 Aryadev
 Automorphism
@@ -53,11 +53,13 @@ artifacting
 artifacts
 automorphism
 automorphisms
+behoove
 biconnected
 bijection
 bijections
 bijective
 bilinear
+bitwise
 booleans
 bytecode
 cardinality
@@ -183,6 +185,7 @@ undealt
 undebatable
 undirected
 unipotent
+unoptimised
 variadic
 vectorisation
 verifier

gdb/.gdbinit

@@ -0,0 +1 @@
+set disassembly-flavor intel

mpv/.config/mpv/input.conf

@@ -40,6 +40,7 @@ L seek 30
 q quit-watch-later
 Q quit
 O script-binding osc/visibility      # cycle OSC visibility between never, auto (mouse-move) and always
+Ctrl+l cycle-values loop-file "inf" "no"
 
 
 #MBTN_LEFT     ignore              # don't do anything