zilti/guixconfig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

.

Browse source
This commit is contained in:
Daniel Ziltener 2024-01-19 12:42:45 +01:00
parent 76708ac7be
commit da4f9642e9
Signed by: zilti
GPG key ID: B38976E82C9DAE42
3 changed files with 13 additions and 117 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
config.org
View file

@ -207,18 +207,18 @@ This adds the Nonguix channel.
These services are unmodified, or have just few settings.
#+NAME: root-simple-services
| Service | Options |
|-------------+------------------------------------------------------|
| tlp | () |
| thermald | ((adaptive? #t)) |
| bluetooth | () |
| docker | () |
| earlyoom | ((minimum-available-memory 5) (minimum-free-swap 5)) |
| inputattach | () |
| libvirt | ((unix-sock-group "libvirt")) |
| fstrim | () |
| fprintd | () |
| seatd | () |
| Service | Options |
|--------------------+------------------------------------------------------|
| tlp | () |
| thermald | ((adaptive? #t)) |
| bluetooth | () |
| docker | () |
| earlyoom | ((minimum-available-memory 5) (minimum-free-swap 5)) |
| inputattach | () |
| libvirt | ((unix-sock-group "libvirt")) |
| fstrim | () |
| fprintd | () |
| seatd | () |
#+NAME: root-simple-service-block
#+begin_src scheme :noweb yes :exports none :results output

103
home/emacs/init.el
View file

@ -602,14 +602,6 @@ Point must be at the beginning of balanced expression (sexp)."
(looking-back (rx (or ")" "}" "]"))))
;;;;; Basic
;; (use-package symex
;; :custom
;; (symex-modal-backend 'evil)
;; :config
;; (symex-initialize)
;; :bind
;; (:map evil-insert-state-map
;; ("C-ß" . #'symex-mode-interface)))
(use-package paredit
:config
@ -635,61 +627,6 @@ Point must be at the beginning of balanced expression (sexp)."
emacs-lisp-mode
scheme-mode)
;; (use-package smartparens
;; :hook
;; (smartparens-mode . show-smartparens-mode)
;; (smartparens-mode . smartparens-strict-mode)
;; clojure-ts-mode
;; emacs-lisp-mode
;; scheme-mode
;; :custom
;; (sp-undo-pairs-separately t)
;; :config
;; (add-to-list 'sp-clojure-modes 'clojure-ts-mode)
;; (add-to-list 'sp-clojure-modes 'clojurec-ts-mode)
;; (add-to-list 'sp-clojure-modes 'clojurescript-ts-mode)
;; (add-to-list 'sp-lisp-modes 'clojure-ts-mode)
;; (add-to-list 'sp-lisp-modes 'clojurec-ts-mode)
;; (add-to-list 'sp-lisp-modes 'clojurescript-ts-mode)
;; ;; TODO: Remove the following three lines once merge request got accepted
;; (load-file (concat init-dir "lib/smartparens-clojure.el"))
;; (load-file (concat init-dir "lib/smartparens-emacs-lisp.el"))
;; (load-file (concat init-dir "lib/smartparens-scheme.el"))
;; (require 'smartparens-clojure)
;; (require 'smartparens-emacs-lisp)
;; (require 'smartparens-scheme)
;; (evil-define-key 'insert smartparens-mode-map
;; (kbd "r") (conditional-keybind #'looking-at-opening-paren
;; #'sp-raise-sexp)
;; (kbd "w") (conditional-keybind #'looking-at-opening-paren
;; #'cc/move-sexp-backward)
;; (kbd "s") (conditional-keybind #'looking-at-opening-paren
;; #'cc/move-sexp-forward)
;; (kbd "c") (conditional-keybind #'looking-at-opening-paren
;; #'sp-clone-sexp)
;; (kbd "m") (conditional-keybind #'looking-at-opening-paren
;; #'sp-mark-sexp)
;; (kbd "DEL") (conditional-keybind #'being-past-closing-paren
;; #'sp-backward-delete-sexp
;; #'evil-delete-backward-char-and-join)
;; (kbd ">") (conditional-keybind #'being-past-closing-paren
;; (lambda (prefix)
;; (interactive "P")
;; (call-interactively #'backward-char)
;; (call-interactively #'sp-forward-slurp-sexp)
;; (call-interactively #'sp-forward-sexp)
;; (call-interactively #'forward-char)))
;; (kbd "<") (conditional-keybind #'being-past-closing-paren
;; (lambda (prefix)
;; (interactive "P")
;; (call-interactively #'backward-char)
;; (call-interactively #'sp-forward-barf-sexp)
;; (call-interactively #'forward-char)))))
;; (use-package evil-cleverparens
;; :after smartparens
;; :hook smartparens)
;;;;; Visual Aid
;; (use-package rainbow-delimiters
;; :hook
@ -749,46 +686,6 @@ Point must be at the beginning of balanced expression (sexp)."
:after (consult eglot))
;;;;; Clojure
;; (use-package clojure-ts-mode
;; :preface
;; (defun embark-eglot-rename (from to)
;; "Renames the symbol at point."
;; (interactive "sRename: \nsRename %s to: ")
;; (funcall-interactively #'eglot-rename to))
;; (defun cc/clojure-local-stuff ()
;; (setq-local sesman-system 'CIDER)
;; (setq-local prettify-symbols-alist '(("fn" . "λ"))))
;; :delight ""
;; :after (tree-sitter embark cider clojure-mode)
;; :config
;; (require 'sesman)
;; (sesman-install-menu clojure-ts-mode-map)
;; (defvar-keymap embark-clj-identifier-map
;; :parent embark-identifier-map
;; "c" #'embark-eglot-rename)
;; (add-to-list 'embark-keymap-alist '(identifier . embark-clj-identifier-map))
;; :hook
;; ((clojure-ts-mode . eglot-ensure)
;; (clojure-ts-mode . prettify-symbols-mode)
;; (clojure-ts-mode . #'cc/clojure-local-stuff)
;; (clojure-ts-mode . (lambda ()
;; (sesman-install-menu clojure-mode-map)))
;; (clojurec-ts-mode . (lambda ()
;; (sesman-install-menu clojurec-mode-map)))
;; (clojurescript-ts-mode . (lambda ()
;; (sesman-install-menu clojurescript-mode-map))))
;; :mode
;; ("\\.clj\\'" . clojure-ts-mode)
;; ("\\.cljc\\'" . clojurec-ts-mode)
;; ("\\.cljs\\'" . clojurescript-ts-mode)
;; :init
;; (add-to-list 'tree-sitter-major-mode-language-alist
;; '(clojure-ts-mode . clojure))
;; (add-to-list 'tree-sitter-major-mode-language-alist
;; '(clojurec-ts-mode . clojure))
;; (add-to-list 'tree-sitter-major-mode-language-alist
;; '(clojurescript-ts-mode . clojure)))
(use-package clojure-mode
:preface
(defun embark-eglot-rename (from to)

3
home/home-configuration.scm
View file

@ -101,7 +101,7 @@
("ll" . "ls -l")
("ls" . "ls --color=tty")
("create-guix-patch" . "git format-patch --minimal --to guix-patches@gnu.org --cc dziltener@lyrion.ch --inline --no-attach master; ls *.patch | xargs sed -i '1d'")
("send-guix-patch-series" . "for FILE in `find . -name '*.patch'`; do cat $FILE | msmtp -t; done")))
("send-guix-patch-series" . "for FILE in `find . -name '00*.patch'`; do cat $FILE | msmtp -t; done")))
(bashrc
(list
(local-file
@ -186,7 +186,6 @@
"openssh"
"password-store"
"pass-otp"
"passff-icecat"
"pavucontrol"
"pinentry-qt"
"pipewire"