From 47d6a0217c8748adfc80dab47ee9bd6935f1a2dd Mon Sep 17 00:00:00 2001 From: rearman Date: Thu, 5 Mar 2026 10:31:50 -0500 Subject: [PATCH] organize packages, change some bindings Put recentf on F7, dired new frame on F6. These are much more used than sly (I open that once, these get opened repeatedly). --- re/re-bindings.el | 15 ++++++--- re/re-packages.el | 82 +++++++++++++++++++++++------------------------ 2 files changed, 50 insertions(+), 47 deletions(-) diff --git a/re/re-bindings.el b/re/re-bindings.el index 26cd30f..ed282b7 100644 --- a/re/re-bindings.el +++ b/re/re-bindings.el @@ -11,7 +11,7 @@ ;; Editing Bindings (keymap-global-set "" nil) ; I keep toggliŋ overwrite-mode haply -(keymap-global-set "C-\\" #'undo-redo) +(keymap-global-set "C-\\" #'undo-redo) ; issues with C-? sometimes (keymap-global-set "C-S-K" #'kill-whole-line) (keymap-global-set "C-w" #'re/kill-bword-or-region) (keymap-global-set "C-u" (lambda () (interactive) (kill-line 0))) ; kill-line backwards @@ -29,7 +29,7 @@ (keymap-global-set " " #'capitalize-dwim) ; M-c (keymap-global-set " " #'downcase-dwim) ; M-l (keymap-global-set " " #'upcase-dwim) ; M-u -(keymap-global-set " " #'re/keyboard-quit) ; C-g works better +(keymap-global-set " " #'re/keyboard-quit) ; Make C-g better (keymap-global-set " " #'re/exchange-point-and-mark-maybe-activate) ;; Wayfindiŋ @@ -76,7 +76,7 @@ (keymap-global-set "C-" #'enlarge-window-horizontally) (keymap-global-set "C-c d" #'eldoc) ; force eldoc to show in minibuffer (keymap-global-set "C-c D" #'eldoc-doc-buffer) ; open eldoc buffer when it's getting spammed -(keymap-global-set "C-x D" #'re/dired-new-frame) +(keymap-global-set "" #'re/dired-new-frame) ;; Mouse (keymap-global-unset "M-") @@ -86,7 +86,7 @@ (keymap-global-unset "M-") ;; Late files and Bookmarks -(keymap-global-set "C-c r" #'recentf-open-files) +(keymap-global-set "" #'recentf-open-files) (keymap-global-set "C-x r B" #'bookmark-jump-other-window) ;; Draftweilding @@ -102,7 +102,12 @@ ;; (E)Lisp (defvar *re/lisp-mode-hooks* - '(emacs-lisp-mode-hook lisp-mode-hook sly-mode-hook scheme-mode-hook geiser-mode-hook lisp-interaction-mode-hook)) + '(emacs-lisp-mode-hook + lisp-mode-hook + sly-mode-hook + scheme-mode-hook + geiser-mode-hook + lisp-interaction-mode-hook)) (dolist (hook *re/lisp-mode-hooks*) (add-hook hook diff --git a/re/re-packages.el b/re/re-packages.el index c3a4c2a..bddd349 100644 --- a/re/re-packages.el +++ b/re/re-packages.el @@ -9,12 +9,14 @@ (setq use-package-always-ensure t use-package-always-demand t) - + +;; UI/Editing (use-package diminish :config (diminish 'eldoc-mode) (diminish 'visual-line-mode) - (diminish 'aggressive-indent-mode)) + (diminish 'aggressive-indent-mode) + (diminish 'page-break-lines-mode)) (use-package visual-fill-column :config @@ -51,12 +53,21 @@ :bind (("C-=" . er/expand-region))) +(use-package aggressive-indent + :config + (global-aggressive-indent-mode t)) + (use-package magit :defer t :config (message "Magit Loaded")) +(use-package page-break-lines + :config + (global-page-break-lines-mode)) + +;; Filetypes (use-package auctex :config (setq TeX-auto-save t @@ -64,6 +75,28 @@ TeX-PDF-mode t) (setq-default TeX-master nil)) +(use-package csv-mode + :config + (add-hook 'csv-mode-hook 'csv-align-mode)) + +(use-package markdown-mode + :config + (setq markdown-special-ctrl-a/e t) + :bind + (:map markdown-mode-map + ("M-" . markdown-demote) + ("M-" . markdown-promote) + ("M-" . markdown-move-up) + ("M-" . markdown-move-down) + ("C-M-u" . markdown-up-heading) + ("C-M-b" . markdown-outline-previous-same-level) + ("C-M-f" . markdown-outline-next-same-level) + ("C-M-p" . markdown-outline-previous) + ("C-M-n" . markdown-outline-next))) + +(use-package edit-indirect :after 'markdown-mode) + +;; REPLs (use-package sly :config (setq inferior-lisp-program "sbcl" @@ -71,12 +104,7 @@ sly-command-switch-to-existing-lisp 'always) (let ((core (expand-file-name "~/sbcl.core-for-sly"))) (when (file-exists-p core) - (setq sly-lisp-implementations (list `(sbcl ("sbcl" "--core" ,core)))))) - :bind - (("" . sly) - ("S-" . re/sly-repl-new-frame) - ("" . re/sly-connect-stump) - ("S-" . sly-connect))) + (setq sly-lisp-implementations (list `(sbcl ("sbcl" "--core" ,core))))))) (use-package geiser :config @@ -88,15 +116,8 @@ (add-hook 'scheme-mode-hook 'geiser-mode)) (use-package geiser-chicken :after 'geiser) - -(use-package csv-mode - :config - (add-hook 'csv-mode-hook 'csv-align-mode)) - -(use-package aggressive-indent - :config - (global-aggressive-indent-mode t)) - + +;; PIM (use-package org :config (require 're-org-defuns) @@ -106,8 +127,7 @@ ("C-c a" . org-agenda) ("C-c c" . org-capture) ("C-c b" . org-switchb) - :map - org-mode-map + :map org-mode-map ("M-" . org-shiftmetaright) ("M-" . org-shiftmetaleft) ("M-S-" . org-metaright) @@ -141,33 +161,11 @@ (add-hook 'after-save-hook 'howm-mode-set-buffer-name) (add-hook 'howm-mode-hook 'howm-mode-set-buffer-name) :bind - ( - ("" . howm-menu) + (("" . howm-menu) ("S-" . re/howm-menu-new-frame) :map howm-mode-map ("C-c , k" . re/howm-create-keyword) ("C-c , =" . howm-narrow-to-memo))) -(use-package markdown-mode - :config - (setq markdown-special-ctrl-a/e t) - :bind - (:map markdown-mode-map - ("M-" . markdown-demote) - ("M-" . markdown-promote) - ("M-" . markdown-move-up) - ("M-" . markdown-move-down) - ("C-M-u" . markdown-up-heading) - ("C-M-b" . markdown-outline-previous-same-level) - ("C-M-f" . markdown-outline-next-same-level) - ("C-M-p" . markdown-outline-previous) - ("C-M-n" . markdown-outline-next))) - -(use-package edit-indirect :after 'markdown-mode) - -(use-package page-break-lines - :config - (global-page-break-lines-mode)) - (provide 're-packages) ;;; re-packages.el ends here -- 2.39.5