.
This commit is contained in:
parent
76708ac7be
commit
da4f9642e9
GPG Key ID:
B38976E82C9DAE42
24
config.org
24
config.org
@ -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
|
||||
|
||||
@ -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)
|
||||
|
||||
@ -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"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user