games, utils, emacs

fish.conf.nix

@@ -118,8 +118,8 @@ function filelink
   echo "file://$(realpath $argv)"
 end
 alias xpy '~/Aims/rust/x.py'
-alias sbcl "rlwrap sbcl"
+# alias sbcl "rlwrap sbcl"
-alias guile "rlwrap guile"
+# alias guile "rlwrap guile"
 alias chez "rlwrap chez"
 #alias clj 'clojure -Sdeps "{:deps {com.bhauman/rebel-readline {:mvn/version \"0.1.4\"} $args}}" -m rebel-readline.main'
 alias csi "rlwrap chicken-csi"

home.nix

@@ -27,15 +27,20 @@ in
     brogue
     # cataclysm-dda
     keeperrl
+    # adom
     openrct2
     # not yet
     # celeste64
-    dolphin-emu
+    tetrio-desktop
     # foliate
     # thunderbird
+    prismlauncher
+
     starship
     eza
     dmenu
+    watchexec
+    wl-clipboard
     xsel
     manix
     shellcheck
@@ -47,13 +52,15 @@ in
     sbcl
     chez
     guile
+    gambit
     racket
     clojure
     ruby_3_3
     gcc
     jq
+    file
+    fd
 
-    watchexec
 
     cargo
     clippy
@@ -70,6 +77,7 @@ in
     steam-run
     gamemode
     rare
+    minigalaxy
     slipstream
     obs-studio
     # drm more like pooprm
@@ -229,6 +237,7 @@ in
       safe = {
       	directory = "*";
       };
+      core.autocrlf = false;
     };
   };
 
@@ -344,6 +353,7 @@ in
       rainbow-delimiters
       geiser-chez
       geiser-guile
+      geiser-gambit
       macrostep-geiser
       evil
       evil-leader
@@ -355,14 +365,19 @@ in
       elixir-mode
       gcmh
 
-      slime
+      sly
       general
       lispyville
 
+      clojure-mode
+      cider
+
       haskell-mode
       lsp-haskell
 
       direnv
+
+      esup
     ];
     # apparently errors in the config matter? nvm?
     extraConfig = (import ./init.el.nix) pkgs;

init.el.nix

@@ -748,7 +748,8 @@ If the new path's directories does not exist, create them."
          (lisp-interaction-mode . enable-paredit-mode)
          (scheme-mode . enable-paredit-mode)
          ;; (inferior-scheme-mode . enable-paredit-mode)
-         (slime-repl-mode . enable-paredit-mode)
+         ;(slime-repl-mode . enable-paredit-mode)
+         (sly-repl-mode . enable-paredit-mode)
          (clojure-mode . enable-paredit-mode)
          (clojurescript-mode . enable-paredit-mode)
          (cider-repl-mode . enable-paredit-mode)
@@ -769,7 +770,7 @@ If the new path's directories does not exist, create them."
 ; (use-package geiser-chez
 ;   :ensure t
 ;   :config
-  (setq geiser-active-implementations '(chez guile))
+  (setq geiser-active-implementations '(chez guile gambit))
   ;(setq geiser-chez-binary "/usr/bin/chez")
   (setq geiser-repl-query-on-kill-p nil)
   ; )
@@ -799,17 +800,30 @@ If the new path's directories does not exist, create them."
   (general-add-hook '(emacs-lisp-mode-hook lisp-mode-hook scheme-mode-hook) #'lispyville-mode)
   :config)
 
-(use-package slime :ensure t
+;(use-package slime :ensure t
+;  :init
+;  (setq slime-contribs                     '(slime-fancy)
+;        slime-complete-symbol-function     'slime-fuzzy-complete-symbol
+;        slime-net-coding-system            'utf-8-unix
+;        slime-lisp-implementations         '((sbcl ("${pkgs.sbcl}/bin/sbcl"))))
+;  :config
+;  (setq common-lisp-hyperspec-root         "${pkgs.sbclPackages.hyperspec}/docs/"
+;        ;common-lisp-hyperspec-symbol-table (concat common-lisp-hyperspec-root "Data/Map_Sym.txt")
+;        ;common-lisp-hyperspec-issuex-table (concat common-lisp-hyperspec-root "Data/Map_IssX.txt")
+;        ))
+
+(use-package sly :ensure t
   :init
-  (setq slime-contribs                     '(slime-fancy)
+  (setq inferior-lisp-program "${pkgs.sbcl}/bin/sbcl")
-        slime-complete-symbol-function     'slime-fuzzy-complete-symbol
-        slime-net-coding-system            'utf-8-unix
-        slime-lisp-implementations         '((sbcl ("${pkgs.sbcl}/bin/sbcl"))))
   :config
   (setq common-lisp-hyperspec-root         "${pkgs.sbclPackages.hyperspec}/docs/"
         ;common-lisp-hyperspec-symbol-table (concat common-lisp-hyperspec-root "Data/Map_Sym.txt")
         ;common-lisp-hyperspec-issuex-table (concat common-lisp-hyperspec-root "Data/Map_IssX.txt")
-        ))
+        )
+  ;(define-key sly-prefix-map (kbd "<down>") 'sly-next-completion)
+  )
+
+(add-hook 'sly-db-hook 'turn-off-evil-mode)
 
 ;;; Emacs Bedrock
 ;;;
@@ -963,6 +977,27 @@ If the new path's directories does not exist, create them."
     "ic" 'erc-switch-to-buffer
     "is" 'erc-server-select
     "ia" 'erc-track-switch-buffer
+
+    ;clojure
+    "cii" 'cider-jack-in
+    "cim" 'cider-inspire-me
+
+    ; cs => clojure send
+    ; css lol
+    "css" 'cider-eval-last-sexp
+    "csa" 'cider-eval-buffer
+    "csd" 'cider-eval-defun-at-point
+    "csn" 'cider-ns-reload
+
+    ; cf => clojure fix?
+    "cfl" 'clojure-move-to-let
+    "cfp" 'clojure-cyle-privacy
+    "cfi" 'clojure-toggle-ignore
+    "cff" 'clojure-thread-first-all
+    "cfl" 'clojure-thread-last-all
+
+    ; cd => clojure doc
+    "cd" 'cider-doc
     ))
 
 (use-package evil-goggles
@@ -1032,4 +1067,7 @@ If the new path's directories does not exist, create them."
 (use-package lsp-haskell
   :ensure t)
 
+; yay
+(setq confirm-kill-processes nil)
+(setq auto-save-interval 100)
 ''