fix(emacs): disable lsp formatting

modules/home/discord/jellyfin-rpc.nix

@@ -31,7 +31,7 @@ let
             display = ["year" "album" "genres"];
             separator = "•";
           };
-          blacklist.libraries = [
+          blacklist.media_types = [
             "episode"
             "movie"
             "book"

modules/home/users/msyds/emacs/lisp/syd/dired.el

@@ -48,7 +48,10 @@ directory."
              '("-l" ; Mandatory!
                "--almost-all" ; Show hidden files; omit '.' and '..'.
                "--human-readable" ; Display sizes in human-readable units.
-               "--time-style=+") ; Omit times/dates.
+               "--time-style=+" ; Omit times/dates.
+               "-D" ; special diredslop
+               "-v" ; sort dotfiles first
+               "--group-directories-first")
              " "))
            ;; Always copy recursively
            (dired-recursive-copies 'always)

modules/home/users/msyds/emacs/lisp/syd/form-feed.el

@@ -15,4 +15,5 @@
 	 ,(plist-get (custom-face-attributes-get font-lock-comment-face
 						 (selected-frame))
 		     :foreground))))))
+
 (provide 'syd/form-feed)

modules/home/users/msyds/emacs/lisp/syd/lsp.el

@@ -25,8 +25,12 @@
   :general (:keymaps 'syd-leader-code-map
                      "a" #'lsp-execute-code-action
                      "r" #'lsp-rename)
-  :custom (; Fixes type error when using rename.
-           (lsp-rename-use-prepare nil))
+  :custom (;; Fixes type error when using rename.
+           (lsp-rename-use-prepare nil)
+           ;; Don't override `indent-region' with the server's
+           ;; formatting functionality. Very silly, I think —
+           ;; indentation and formatting are different things.
+           (lsp-enable-indentation nil))
   :config
   (syd-defadvice syd-lsp-install-server-a ()
     "Override and disbale `lsp-install-server'"

modules/home/users/msyds/emacs/lisp/syd/prelude.el

@@ -202,7 +202,8 @@ form."
        s))))
 
 (defun syd-project-relative-file-name (file-name)
-  (file-relative-name file-name (project-root (project-current))))
+  (when-let* ((proj (project-current)))
+    (file-relative-name file-name (project-root proj))))
 
 (defvar syd-insert-file-name-alist
   `((,#'syd-project-relative-file-name . "Project-relative")
@@ -248,19 +249,21 @@ form."
 
 (defun syd-import-systemd-environment ()
   (interactive)
-  (with-temp-buffer
-    (shell-command "systemctl --user show-environment" (current-buffer))
-    (goto-char (point-min))
-    (while (re-search-forward
-            (rx bol (group (+ (not "=")))
-                "="
-                (or (and "$'" (group (* (not "'"))) "'")
-                    (group (* any)))
-                eol)
-            nil t)
-      (let ((var (match-string 1))
-            (val (or (match-string 2)
-                     (match-string 3))))
-        (setenv var val)))))
+  (let ((blacklist '("TERM")))
+    (with-temp-buffer
+      (shell-command "systemctl --user show-environment" (current-buffer))
+      (goto-char (point-min))
+      (while (re-search-forward
+              (rx bol (group (+ (not "=")))
+                  "="
+                  (or (and "$'" (group (* (not "'"))) "'")
+                      (group (* any)))
+                  eol)
+              nil t)
+        (let ((var (match-string 1))
+              (val (or (match-string 2)
+                       (match-string 3))))
+          (unless (member var blacklist)
+            (setenv var val)))))))
 
 (provide 'syd/prelude)

modules/home/users/msyds/emacs/lisp/syd/scheme.el

@@ -20,7 +20,8 @@
     :load-buffer #'geiser-eval-buffer)
   (syd-push
    shackle-rules
-   `("*Geiser Documentation*" ,@syd-help-popup-options)))
+   `("*Geiser Documentation*" ,@syd-help-popup-options)
+   `("*Geiser Debug*" ,@syd-help-popup-options)))
 
 (use-package geiser-guile)
 

modules/home/users/msyds/emacs/lisp/syd/transient.el

@@ -3,7 +3,6 @@
 (require 'syd/base)
 
 (use-package transient
-  :straight nil
   :custom ((transient-history-file
             (file-name-concat syd-data-dir "transient/history.el"))))
 

modules/nixos/deertopia/servarr.nix

@@ -36,7 +36,7 @@ in {
     # Mount our NAS's 'media' share.
     fileSystems."/media" = {
       # DNS is seemingly unavailable to the mount service.
-      device = "//192.168.68.62/media";
+      device = "//10.0.0.203/media";
       mountPoint = "/media";
       fsType = "cifs";
       options = [

modules/nixos/hosts.nix

@@ -4,10 +4,10 @@
   config = {
     networking.hosts = {
       "100.95.131.43" = [ "whitepc" ];
-      "192.168.68.66" = [ "guix-rebound" "sydpc" ];
-      "192.168.68.79" = [ "deertopia" ];
-      "192.168.68.55" = [ "fruitbook" ];
-      "192.168.68.62" = [ "buffalo-nas" ];
+      "10.0.0.109" = [ "guix-rebound" "sydpc" ];
+      "10.0.0.248" = [ "deertopia" ];
+      "10.0.0.218" = [ "fruitbook" ];
+      "10.0.0.203" = [ "buffalo-nas" ];
     };
   };
 }