From 4ededaab50513e94a2e9a2376c536eefeaa5743f Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Fri, 15 Dec 2023 16:14:07 +0100 Subject: [PATCH] . --- emacs/init.el | 28 +++++++++++++++++++++++----- 1 file changed, 23 insertions(+), 5 deletions(-) diff --git a/emacs/init.el b/emacs/init.el index 22abfda..906e3ce 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -147,7 +147,7 @@ (tool-bar-mode nil) :custom-face ;;(default ((t (:weight bold :height 113 :width normal :family "VictorMono Nerd Font")))) - (default ((t (:weight regular :height 105 :width normal :family "MonaspiceXe Nerd Font Mono")))) + (default ((t (:weight regular :height 105 :width narrow :family "MonaspiceXe Nerd Font Mono")))) :hook (minibuffer-setup . cursor-intangible-mode) :config @@ -301,14 +301,22 @@ ;; load preferred theme (load-theme 'lambda-dark)) +;;;;; Long line handling + (use-package visual-fill-column :custom (visual-fill-column-center-text t) (visual-fill-column-enable-sensible-window-split t) - :hook visual-line-mode) + :hook + (prog-mode . visual-line-mode) + visual-line-mode) (use-package adaptive-wrap - :hook visual-fill-column) + :config + (setq-default adaptive-wrap-extra-indent 2) + :hook + visual-fill-column + (visual-line-mode . adaptive-wrap-prefix-mode)) ;;;; Security (use-package keychain-environment @@ -495,10 +503,10 @@ (evil-snipe-repeat-scope 'whole-buffer) (evil-snipe-spillover-scope 'whole-buffer) (evil-snipe-tab-increment t) + :custom :hook evil-mode (evil-mode . evil-snipe-override-mode) - (evil-mode . evil-snipe-mode) (magit-mode . turn-off-evil-snipe-override-mode) ;; See https://github.com/hlissner/evil-snipe/issues/95 ;; :config @@ -722,11 +730,21 @@ Point must be at the beginning of balanced expression (sexp)." ;;;;; 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)) + :delight "" - :after tree-sitter + :after (tree-sitter embark) :config (require 'sesman) (sesman-install-menu clojure-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)