From da4f9642e9ec24e456ca226244ba21d90bf17190 Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Fri, 19 Jan 2024 12:42:45 +0100 Subject: [PATCH] . --- config.org | 24 ++++----- home/emacs/init.el | 103 ------------------------------------ home/home-configuration.scm | 3 +- 3 files changed, 13 insertions(+), 117 deletions(-) diff --git a/config.org b/config.org index 2b408db..a28e37c 100644 --- a/config.org +++ b/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 diff --git a/home/emacs/init.el b/home/emacs/init.el index 6d54182..407b5e9 100644 --- a/home/emacs/init.el +++ b/home/emacs/init.el @@ -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) diff --git a/home/home-configuration.scm b/home/home-configuration.scm index f22dc4d..d1abaa2 100644 --- a/home/home-configuration.scm +++ b/home/home-configuration.scm @@ -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"