yeah the symlinking isn't working :(

fish.conf.nix

@@ -28,9 +28,9 @@ alias ok='okular'
 alias ko='kitty .'
 alias du="du -h --total"
 
-#exa
+#eza
-alias ls="exa"
+alias ls="eza"
-alias tree="exa --tree -I target"
+alias tree="eza --tree -I target"
 
 # some more ls aliases
 # alias ls='ls --color=always'
@@ -120,6 +120,7 @@ end
 alias xpy '~/Aims/rust/x.py'
 alias sbcl "rlwrap sbcl"
 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"
 
@@ -155,7 +156,7 @@ fortune | cowsay
 end
 end
 
-export CHEZSCHEMELIBDIRS="/home/mbk/Aims/chez/thunderchez:/home/mbk/Aims/chez/thunderchez:/home/mbk/Aims/chez/chez-srfi:/home/mbk/Aims/chez/pfds"
+# export CHEZSCHEMELIBDIRS="/home/mbk/Aims/chez/thunderchez:/home/mbk/Aims/chez/thunderchez:/home/mbk/Aims/chez/chez-srfi:/home/mbk/Aims/chez/pfds"
 
 # opam configuration
 source /home/mbk/.opam/opam-init/init.fish > /dev/null 2> /dev/null; or true

home.nix

@@ -41,11 +41,17 @@ in
     racket
     clojure
 
+    idris2
+
+    # emacs like this
+    semgrep
+
     discord
     steam
     fzf
 
-    idris2
+    akku
+    # managing with elpas :(
     # emacsPackages.idris2-mode
     # emacsPackages.evil
   ];

init.el

@@ -52,7 +52,7 @@
  '(custom-safe-themes
    '("871b064b53235facde040f6bdfa28d03d9f4b966d8ce28fb1725313731a2bcc8" "a5270d86fac30303c5910be7403467662d7601b821af2ff0c4eb181153ebfc0a" "98ef36d4487bf5e816f89b1b1240d45755ec382c7029302f36ca6626faf44bbd" "ba323a013c25b355eb9a0550541573d535831c557674c8d59b9ac6aa720c21d3" "046a2b81d13afddae309930ef85d458c4f5d278a69448e5a5261a5c78598e012" "d445c7b530713eac282ecdeea07a8fa59692c83045bf84dd112dd738c7bcad1d" default))
  '(package-selected-packages
-   '(evil-commentary evil-surround evil-goggles evil paredit org-roam evil-org gruvbox-theme lsp-scheme counsel general all-the-icons-ivy frog-jump-buffer chess rainbow-delimiters which-key)))
+   '(evil-leader geiser-racket macrostep-geiser geiser-chez srfi erc-hl-nicks scheme-complete evil-commentary evil-surround evil-goggles evil paredit org-roam evil-org gruvbox-theme lsp-scheme counsel general all-the-icons-ivy frog-jump-buffer chess rainbow-delimiters which-key)))
 
 ;; create the autosave dir if necessary, since emacs won't.
 (make-directory "~/.emacs.d/autosaves/" t)
@@ -325,8 +325,8 @@ If the new path's directories does not exist, create them."
 ;; (use-package general
 ;;   :ensure t)
 
-;; (use-package lsp-mode
+(use-package lsp-mode
-;;   :ensure t)
+  :ensure t)
 ;;; Emacs Bedrock
 ;;;
 ;;; Extra config: Base UI enhancements
@@ -517,8 +517,7 @@ If the new path's directories does not exist, create them."
 ;; Magit: best Git client to ever exist
 (use-package magit
   :ensure t
-  :bind (("s-g" . magit-status)
+  :bind ())
-         ("C-c g" . magit-status)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
@@ -562,6 +561,7 @@ If the new path's directories does not exist, create them."
   ;              '(haskell-mode . ("haskell-language-server-wrapper" "--lsp")))
   )
 
+; oorg
   ;;   ;;;;     ;;;;
 ;;  ;; ;;  ;; ;;
 ;;  ;; ;;;;   ;;
@@ -744,6 +744,8 @@ If the new path's directories does not exist, create them."
 ;        org-roam-ui-update-on-save t
 ;        org-roam-ui-open-on-start t))
 
+
+; scm
 ;;;;;; ;;;;;; ;;  ;; ;;;;;; ;;      ;; ;;;;;;
 ;;     ;;     ;;  ;; ;;     ;;;;  ;;;; ;;
 ;;;;;; ;;     ;;;;;; ;;;;   ;;  ;;  ;; ;;;;
@@ -778,17 +780,34 @@ If the new path's directories does not exist, create them."
   (add-hook 'scheme-mode-hook     #'rainbow-delimiters-mode)
   )
 
+; gsr
+(use-package geiser-chez
+  :ensure t
+  :config
+  (setq geiser-active-implementations '(chez))
+  (setq geiser-chez-binary "/usr/bin/chez")
+  (setq geiser-repl-query-on-kill-p nil)
+  )
+
+(use-package macrostep-geiser
+  :ensure t
+  )
+
+; if necessary
+;; (use-package company
+;;   :ensure t)
+
 ;; (use-package lsp-scheme
 ;;   :ensure t
 ;;   :init
-;;   (add-hook 'scheme-mode-hook #'lsp-scheme)
+;;   (add-hook 'scheme-mode-hook #'lsp-scheme-guile)
 ;;   :config
 ;;   )
 
 ;; (use-package scheme-complete
 ;;   :ensure t
 ;;   :config
-;;   (define-key scheme-mode-map "\t" 'scheme-smart-complete))
+;;   )
 
 ;; (use-package lispyville
 ;;   :init
@@ -826,13 +845,14 @@ If the new path's directories does not exist, create them."
 ;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+  ;evl
 ;;;;;; ;;      ;; ;;;;;; ;;
 ;;     ;;      ;;   ;;   ;;
 ;;;;     ;;  ;;     ;;   ;;
 ;;       ;;  ;;     ;;   ;;
 ;;;;;;     ;;     ;;;;;; ;;;;;;
 
-; lisp sucks, scheme rulez
+  ; lisp sucks, scheme rulez
 ;; (defun make-file-opener (filename)
 ;;   (lambda ()
 ;;     (interactive (concat "sopen " filename " for editing"))
@@ -850,11 +870,12 @@ If the new path's directories does not exist, create them."
 ; emacs lisp really is a pain, but even this makes me appreciate the POWA
 (defun scheme-set-up-two-panels-with-repl-and-editor ()
     (interactive)
-    (let ((editor (current-buffer)))
+    (geiser-chez)
-      (scheme-mode)
+    (geiser-mode))
-      (run-scheme "chez")
+
-      (split-window-right)
+(defun join-libera.chat ()
-      (switch-to-buffer editor)))
+  (interactive)
+  ())
 
 (use-package evil
   :ensure t
@@ -864,7 +885,7 @@ If the new path's directories does not exist, create them."
   (setq evil-undo-system 'undo-redo)
 
   ;; Enable this if you want C-u to scroll up, more like pure Vim
-;(setq evil-want-C-u-scroll t)
+  ;(setq evil-want-C-u-scroll t)
 
   :config
   ; >:D
@@ -873,53 +894,87 @@ If the new path's directories does not exist, create them."
   ;; Configuring initial major mode for some modes
   ; (evil-set-initial-state 'vterm-mode 'emacs)
 
-  ; basic convenience
+    (evil-global-set-key 'visual " ssr" 'geiser-eval-region)
-  (evil-global-set-key 'normal ";w" 'evil-save)
+  )
 
-  (evil-global-set-key 'normal ";g" 'magit)
+(use-package evil-leader
+  :ensure t
+  :config
+  (global-evil-leader-mode)
+  (setq evil-leader/leader "<SPC>")
+  (evil-leader/set-key
+    ; very general
+    "w" 'evil-save
+    ; u => unicode
+    "u" 'insert-char
+
+    "g" 'magit
 
     ; mgmt of modes i want to toggle more often
-  (evil-global-set-key 'normal ";mp" 'paredit-mode)
+    "mp" 'paredit-mode
+    "ms" 'text-scale-adjust
 
     ; buffers
-  (evil-global-set-key 'normal ";be" 'counsel-switch-buffer)
+    "be" 'counsel-switch-buffer
-  (evil-global-set-key 'normal ";bn" 'evil-buffer)
+    ;; gonna try to stick to C-w commands
-  (evil-global-set-key 'normal ";bs" 'evil-split-buffer)
+    ;; "bn" 'evil-buffer
+    ;; "bs" 'evil-split-buffer
+    ;; "bv" 'evil-window
 
     ; config mgmt
-  (evil-global-set-key 'normal ";ce" 'open-init.el)
+    "ce" 'open-init.el
-  ; (evil-global-set-key 'normal ";cev" 'open-vim-like.el)
+    ; "cev" 'open-vim-like.el
-  ; (evil-global-set-key 'normal ";ces" 'open-scheme.el)
+    ; "ces" 'open-scheme.el
-  (evil-global-set-key 'normal ";cr"  'restart-emacs)
+    "cr" 'restart-emacs
 
     ; scheme
-  ; should probably just move these to scheme.el
     ; si => scheme inferior (avoids conflicts)
-  (evil-global-set-key 'normal ";sir"  'run-scheme)
+    "sir" 'geiser-chez
-  (evil-global-set-key 'normal ";sil"  'scheme-load-file)
+    "sil" 'geiser-load-file
-  (evil-global-set-key 'normal ";sii"  'scheme-set-up-two-panels-with-repl-and-editor)
+    "sii" 'scheme-set-up-two-panels-with-repl-and-editor
 
     ; ss => scheme send
-  (evil-global-set-key 'normal ";sss" 'scheme-send-last-sexp)
+    "sss" 'geiser-eval-last-sexp
-  (evil-global-set-key 'normal ";ssr" 'scheme-send-region)
+    ;; "ssr" 'geiser-eval-region
-  (evil-global-set-key 'normal ";ssd" 'scheme-send-definition)
+    "ssd" 'geiser-eval-definition
-
+    ; ssa => scheme send all
-  (evil-global-set-key 'visual ";ssr" 'scheme-send-region)
+    "ssa" 'geiser-eval-buffer
 
     ; scheme/lispy-editing
-  (evil-global-set-key 'normal ";swp" 'paredit-wrap-round)
+    "swp" 'paredit-wrap-round
-  (evil-global-set-key 'normal ";swb" 'paredit-wrap-square)
+    "swb" 'paredit-wrap-square
-  (evil-global-set-key 'normal ";swc" 'paredit-wrap-curly)
+    "swc" 'paredit-wrap-curly
-  (evil-global-set-key 'normal ";swa" 'paredit-wrap-angled)
+    "swa" 'paredit-wrap-angled
 
     ; gonna just port most of my vscode stuff even though i don't hate the C-<left> stuff
-  (evil-global-set-key 'normal ";sh" 'paredit-backward-slurp-sexp)
+    "sh" 'paredit-backward-slurp-sexp
-  (evil-global-set-key 'normal ";sl" 'paredit-forward-slurp-sexp)
+    "sl" 'paredit-forward-slurp-sexp
-  (evil-global-set-key 'normal ";bh" 'paredit-backward-barf-sexp)
+    "bh" 'paredit-backward-barf-sexp
-  (evil-global-set-key 'normal ";bl" 'paredit-forward-barf-sexp)
+    "bl" 'paredit-forward-barf-sexp
 
-  (evil-global-set-key 'normal ";st" 'paredit-forward-barf-sexp)
+    "st" 'transpose-sexps
-  )
+    "s?" 'paredit-convolute-sexps
+
+    "sH" 'backward-sexp
+    "sL" 'forward-sexp
+
+    ; sort of out-of-place feeling 
+    "sb" 'geiser-squarify
+
+    "sd" 'geiser-doc-symbol-at-point
+
+    ; killing is common enough to be worth its own prefix
+    ; non-lisp killing is more than covered by normal vim stuff lol
+    "kh" 'backward-kill-sexp
+    "kl" 'kill-sexp
+
+    ; irc
+    "il" 'erc-tls
+    "ij" 'erc-join-channel
+    "ic" 'erc-switch-to-buffer
+    "is" 'erc-server-select
+    "ia" 'erc-track-switch-buffer
+    ))
 
 (use-package evil-goggles
   :ensure t
@@ -949,3 +1004,24 @@ If the new path's directories does not exist, create them."
   (evil-commentary-mode))
 
 ; hi nix
+; hi .emacs.d
+
+; erc
+(use-package erc-hl-nicks
+  :ensure t)
+
+(erc-log-mode)
+(setq erc-nick-uniquifier "`"
+      erc-nick "mehbark"
+      erc-autojoin-channels-alist '(("Libera.Chat" "#scheme" "#chez" "#lisp" "#commonlisp" "#racket" "#clojure" "#chicken" "#emacs" "#s-expressions"))
+      erc-interpret-mirc-color t
+      erc-sasl-mechanism "plain"
+      erc-sasl-user "mehbark"
+      erc-save-buffer-on-part t
+      erc-save-queries-on-quit nil
+      erc-log-write-after-send t
+      erc-log-write-after-insert t
+      erc-kill-buffer-on-part t
+      erc-kill-server-buffer-on-quit t
+      erc-hide-list '("JOIN" "PART" "QUIT"))
+