Bunch of changes

Add support for tidal; an algorithm musical pattern language
reset-font-size: add booster, make calculation simpler
2026-01-24 00:44:05 +00:00 · 2026-01-24 00:44:05 +00:00 · 2026-01-24 00:44:05 +00:00 · 2026-01-24 00:44:05 +00:00 · 2026-01-24 00:44:05 +00:00 · 2026-01-24 00:44:05 +00:00
18 changed files with 671 additions and 433 deletions
--- a/Emacs/.config/emacs/.config/eshell/aliases
+++ b/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
--- a/Emacs/.config/emacs/.var/gamegrid-user-score/tetris-scores
+++ b/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>
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
--- a/Emacs/.config/emacs/elisp/better-mode-line.el
+++ b/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)))
-         (win-width (window-width))
-         (margins (window-margins))
-         (width (if (null (car margins))
-                    win-width
-                  (+ (car margins) win-width (cdr margins)))))
-    (- (floor (/ width 2)) (floor (/ centre-size 2)) other-size)))
+  (let ((centre-size (length (format-mode-line bml/centre-segment)))
+        (window-width ;; compute total width of window (including margins)
+         (thread-last (cons (window-width) (window-margins))
+                      (mapcar (lambda (x) (if (null x) 0 x)))
+                      (cl-reduce #'+))))
+    (floor (- (/ window-width 2) (/ 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)
-                     bml/--minimum-padding
-                   padding-size)
-                 ?\s)))
+    (make-string (max padding-size bml/--minimum-padding) ?\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
--- a/Emacs/.config/emacs/elisp/eshell-additions.el
+++ b/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'"
-  (cond
-   ((project-current)
-    (eshell-goto-latest-prompt)
-    (eshell/cd (list (project-root (project-current)))))
-   (t
-    (setq eshell-last-command-status 1)
-    (eshell/echo
-     (format "[%s]: No project in current directory"
-             (propertize "Error" 'font-lock-face '(:foreground "red")))))))
+  "Change to directory of `project-root', if current working directory is
+in a project."
+  (eshell-eval-using-options
+   "project-root"
+   args
+   '((?h "help" nil nil "show usage")
+     :usage "
+
+Go to the root of the project which the current working directory is a
+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
-           (cons (buffer-name buffer) buffer)))
+           collect (cons (buffer-name buffer) buffer)))

 (defun +eshell/--choose-instance ()
  (let* ((current-instances (+eshell/--current-instances))
--- a/Emacs/.config/emacs/straight/versions/default.el
+++ b/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")
--- a/NeoVim/.config/nvim/lazy-lock.json
+++ b/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" }
 }
--- a/SXHkD/.config/sxhkd/sxhkdrc
+++ b/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"; \
--- a/Scripts/.local/scripts/bt_connect
+++ b/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
--- a/Scripts/.local/scripts/eselect
+++ b/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
--- a/Scripts/.local/scripts/search_apps
+++ b/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
--- a/Shell/.zprofile
+++ b/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..."
--- a/Shell/.zshrc
+++ b/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
--- a/XServer/.xinitrc
+++ b/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 &
--- a/XServer/.xprofile
+++ b/XServer/.xprofile
@@ -1,4 +1,3 @@
 #!/usr/bin/env sh
-setxkbmap gb -option shift:both_capslock -option caps:escape;
-# xmodmap ~/.Xmodmap;
+setxkbmap gb -option shift:both_capslock;
 [ -f ~/.Xresources ] && xrdb -merge -I$HOME ~/.Xresources;
--- a/aspell/.aspell.en.pws
+++ b/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
--- a/gdb/.gdbinit
+++ b/gdb/.gdbinit
@@ -0,0 +1 @@
+set disassembly-flavor intel
--- a/mpv/.config/mpv/input.conf
+++ b/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
Author	SHA1	Message	Date
Aryadev Chavali	504bdc17f3	Bunch of changes	2026-01-24 00:44:05 +00:00
Aryadev Chavali	9fafe74378	Add support for tidal; an algorithm musical pattern language	2026-01-24 00:44:05 +00:00
Aryadev Chavali	cb63f1a609	reset-font-size: add booster, make calculation simpler	2026-01-24 00:44:05 +00:00
Aryadev Chavali	958974dc29	Minor adjustments	2026-01-24 00:44:05 +00:00
Aryadev Chavali	239a11c7a0	search_apps script to make pulling up open applications easier 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!	2026-01-24 00:44:05 +00:00
Aryadev Chavali	d239dc5ffe	bt_connect now accepts an argument to pass to bluetoothctl Allows to me to setup bindings for disconnecting or connecting a bluetooth device.	2026-01-24 00:44:05 +00:00
Aryadev Chavali	fdd92a07fe	Some adjustments to text	2026-01-24 00:44:05 +00:00
Aryadev Chavali	12da1e3dbb	Split out basics into several sections Makes it easier to read. Also ensures any future additions just have their own section rather than me appending the Lisp and forgetting to update the text.	2026-01-24 00:44:05 +00:00
Aryadev Chavali	fdb8cd5dbc	Emacs:+oreo -> +cfg	2026-01-24 00:44:05 +00:00