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).

diff --git a/re/re-bindings.el b/re/re-bindings.el
index 26cd30f3b8fc6fb857e7beb14e517218265952f1..ed282b7873ea9f12b5044e174b6a990b2feeb03d 100644 (file)
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -11,7 +11,7 @@
 \f
 ;; Editing Bindings
 (keymap-global-set "<insert>" 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 "<remap> <capitalize-word>" #'capitalize-dwim) ; M-c
 (keymap-global-set "<remap> <downcase-word>" #'downcase-dwim) ; M-l
 (keymap-global-set "<remap> <upcase-word>" #'upcase-dwim) ; M-u
-(keymap-global-set "<remap> <keyboard-quit>" #'re/keyboard-quit) ; C-g works better
+(keymap-global-set "<remap> <keyboard-quit>" #'re/keyboard-quit) ; Make C-g better
 (keymap-global-set "<remap> <exchange-point-and-mark>" #'re/exchange-point-and-mark-maybe-activate)
 \f
 ;; Wayfindiŋ
@@ -76,7 +76,7 @@
 (keymap-global-set "C-<right>" #'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 "<f6>" #'re/dired-new-frame)
 \f
 ;; Mouse
 (keymap-global-unset "M-<down-mouse-1>")
@@ -86,7 +86,7 @@
 (keymap-global-unset "M-<mouse-3>")
 \f
 ;; Late files and Bookmarks
-(keymap-global-set "C-c r" #'recentf-open-files)
+(keymap-global-set "<f7>" #'recentf-open-files)
 (keymap-global-set "C-x r B" #'bookmark-jump-other-window)
 \f
 ;; 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 c3a4c2adee95f5e220afa48da0e1e7cbf1e62dbe..bddd3494f378f86d72840f593c9fc2bb089f0540 100644 (file)
--- 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)
-
+\f
+;; 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))
+\f
+;; 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-<right>" . markdown-demote)
+       ("M-<left>" . markdown-promote)
+       ("M-<up>" . markdown-move-up)
+       ("M-<down>" . 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)
+\f
+;; 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
-  (("<f7>" . sly)
-   ("S-<f7>" . re/sly-repl-new-frame)
-   ("<f9>" . re/sly-connect-stump)
-   ("S-<f9>" . 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))
-
+\f
+;; 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-<right>" . org-shiftmetaright)
    ("M-<left>" . org-shiftmetaleft)
    ("M-S-<right>" . 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
-  (
-   ("<f6>" . howm-menu)
+  (("<f6>" . howm-menu)
    ("S-<f6>" . 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-<right>" . markdown-demote)
-       ("M-<left>" . markdown-promote)
-       ("M-<up>" . markdown-move-up)
-       ("M-<down>" . 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