mbk/nix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

yeah the symlinking isn't working :(

Browse source
This commit is contained in:
mehbark 2023-09-21 22:39:53 -04:00
parent c8d12c53e2
commit bc990b627f
3 changed files with 150 additions and 67 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
fish.conf.nix
View file

@ -28,9 +28,9 @@ alias ok='okular'
alias ko='kitty .'
alias du="du -h --total"
#exa
alias ls="exa"
alias tree="exa --tree -I target"
#eza
alias ls="eza"
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

8
home.nix
View file

@ -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
];

164
init.el
View file

@ -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
;; :ensure t)
(use-package lsp-mode
: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)
("C-c g" . magit-status)))
:bind ())
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
@ -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)))
(scheme-mode)
(run-scheme "chez")
(split-window-right)
(switch-to-buffer editor)))
(geiser-chez)
(geiser-mode))
(defun join-libera.chat ()
(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 'normal ";w" 'evil-save)
(evil-global-set-key 'visual " ssr" 'geiser-eval-region)
)
(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)
(evil-global-set-key 'normal ";bn" 'evil-buffer)
(evil-global-set-key 'normal ";bs" 'evil-split-buffer)
"be" 'counsel-switch-buffer
;; gonna try to stick to C-w commands
;; "bn" 'evil-buffer
;; "bs" 'evil-split-buffer
;; "bv" 'evil-window
; config mgmt
(evil-global-set-key 'normal ";ce" 'open-init.el)
; (evil-global-set-key 'normal ";cev" 'open-vim-like.el)
; (evil-global-set-key 'normal ";ces" 'open-scheme.el)
(evil-global-set-key 'normal ";cr" 'restart-emacs)
"ce" 'open-init.el
; "cev" 'open-vim-like.el
; "ces" 'open-scheme.el
"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)
(evil-global-set-key 'normal ";sil" 'scheme-load-file)
(evil-global-set-key 'normal ";sii" 'scheme-set-up-two-panels-with-repl-and-editor)
"sir" 'geiser-chez
"sil" 'geiser-load-file
"sii" 'scheme-set-up-two-panels-with-repl-and-editor
; ss => scheme send
(evil-global-set-key 'normal ";sss" 'scheme-send-last-sexp)
(evil-global-set-key 'normal ";ssr" 'scheme-send-region)
(evil-global-set-key 'normal ";ssd" 'scheme-send-definition)
(evil-global-set-key 'visual ";ssr" 'scheme-send-region)
"sss" 'geiser-eval-last-sexp
;; "ssr" 'geiser-eval-region
"ssd" 'geiser-eval-definition
; ssa => scheme send all
"ssa" 'geiser-eval-buffer
; scheme/lispy-editing
(evil-global-set-key 'normal ";swp" 'paredit-wrap-round)
(evil-global-set-key 'normal ";swb" 'paredit-wrap-square)
(evil-global-set-key 'normal ";swc" 'paredit-wrap-curly)
(evil-global-set-key 'normal ";swa" 'paredit-wrap-angled)
"swp" 'paredit-wrap-round
"swb" 'paredit-wrap-square
"swc" 'paredit-wrap-curly
"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)
(evil-global-set-key 'normal ";sl" 'paredit-forward-slurp-sexp)
(evil-global-set-key 'normal ";bh" 'paredit-backward-barf-sexp)
(evil-global-set-key 'normal ";bl" 'paredit-forward-barf-sexp)
"sh" 'paredit-backward-slurp-sexp
"sl" 'paredit-forward-slurp-sexp
"bh" 'paredit-backward-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"))