uhhh

idkkkk

modules/home/slippi.nix

@@ -0,0 +1,19 @@
+{ config, lib, pkgs, ... }:
+
+let cfg = config.sydnix.slippi;
+in {
+  options.sydnix.slippi = {
+    enable = lib.mkEnableOption "slippi";
+  };
+
+  config = lib.mkIf cfg.enable {
+    sydnix.impermanence.directories = [
+      ".config/Slippi Launcher"
+      ".config/SlippiOnline"
+      ".config/SlippiPlayback"
+      # We must manually remove the `export LD_LIBRARY_PATH=...` line for now.
+      # fuck.
+      ".cache/appimage-run"
+    ];
+  };
+}

modules/home/users/crumb/emacs.nix

@@ -128,6 +128,9 @@ in {
 
       home.packages = [
         emacsclient-or-emacs
+        (pkgs.writeShellScriptBin "emacs-fuckyou" ''
+          ${my-emacs}/bin/emacs "$@"
+        '')
       ] ++ fontPackages;
 
       # There's probably a better place to put this, but the current setup demands

modules/home/users/crumb/emacs/lib/syd-handle-lookup.el

@@ -66,7 +66,7 @@ success.  When a handler returns a marker, the marker will be jumped to.")
   "Try to find documentation on IDENTIFIER, and "
   (interactive (list (syd-thing-at-point-or-region)))
   (or (syd-lookup--jump-to 'documentation identifier
-                           :display-fn #'pop-to-buffer)
+                           :display-fn #'display-buffer)
       (user-error "Couldn't find documentation on %S"
                   (substring-no-properties identifier))))
 
@@ -86,8 +86,10 @@ success.  When a handler returns a marker, the marker will be jumped to.")
                      (message "No lookup handler could find %S" identifier)
                      nil)
                     ((markerp result)
-                     (funcall display-fn (marker-buffer result))
-                     (goto-char result)
+                     (let ((b (marker-buffer result)))
+                       (funcall display-fn b)
+                       (when (eq (current-buffer) b)
+                         (goto-char result)))
                      result)
                     (result))
           (with-current-buffer (marker-buffer origin)

modules/home/users/crumb/emacs/modules/lang/syd-lang-agda.el

@@ -11,14 +11,13 @@
    "." #'agda2-goal-and-context-and-inferred
    "," #'agda2-goal-and-context
    "=" #'agda2-show-constraints
-   "SPC" #'agda2-give
+   "g" #'agda2-give
    "a" #'agda2-mimer-maybe-all
-   "b" #'agda2-previous-goal
+   "[" #'agda2-previous-goal
    "c" #'agda2-make-case
    "d" #'agda2-infer-type-maybe-toplevel
    "e" #'agda2-show-context
-   "f" #'agda2-next-goal
-   "gG" #'agda2-go-back
+   "]" #'agda2-next-goal
    "h" #'agda2-helper-function-type
    "l" #'agda2-load
    "n" #'agda2-compute-normalised-maybe-toplevel
@@ -37,6 +36,17 @@
     :states '(motion normal)
     "[ n" #'agda2-previous-goal
     "] n" #'agda2-next-goal)
-  (setq agda2-fontset-name "JuliaMono"))
+  (setq agda2-fontset-name "JuliaMono")
+
+  (defun syd-agda-lookup-documentation ()
+    (interactive)
+    (call-interactively #'agda2-goal-and-context)
+    agda2-info-buffer)
+
+  ;; DEPRECATED: Remove once syd-strategies is working.
+  (syd-add-hook 'agda2-mode-hook
+    (defun syd-agda-set-handlers-h ()
+      (setq-local syd-lookup-documentation-handlers
+                  (list #'syd-agda-lookup-documentation)))))
 
 (provide 'syd-lang-agda)

modules/home/users/crumb/emacs/modules/lang/syd-lang-emacs-lisp.el

@@ -69,7 +69,7 @@ to a pop up buffer."
 (syd-add-hook '(emacs-lisp-mode-hook lisp-data-mode-hook)
   #'syd-lisp-mode)
 
-  ;; DEPRECATED: Remove once syd-strategies is working.
+;; DEPRECATED: Remove once syd-strategies is working.
 (syd-add-hook '(emacs-lisp-mode-hook help-mode-hook lisp-data-mode-hook)
   (defun syd-emacs-set-handlers-h ()
     (setq-local syd-lookup-documentation-handlers

modules/home/users/crumb/emacs/modules/lang/syd-lang-idris2.el

@@ -39,7 +39,9 @@ See `https://github.com/ProofGeneral/PG/issues/427'."
   (set-popup-rules!
     `((,(rx bol "*idris2-notes*" eol)
        :ttl nil)
-      (,(rx bol "*idris2-holes" eol)
-       :ttl nil :quit t :vslot -5 :height 7))))
+      (,(rx bol "*idris2-holes*" eol)
+       :ttl nil :quit t :vslot -5 :height 7)))
+  (dolist (c '(?_ ??))
+    (modify-syntax-entry c "w" idris2-syntax-table)))
 
 (provide 'syd-lang-idris2)

modules/home/users/crumb/emacs/transient/history.el

@@ -0,0 +1 @@
+nil