1 files changed, 61 insertions, 1 deletions

@@ -16,10 +16,13 @@
 
 ;;; Code:
 
+;; Delete when no longer ... remacs'd
 ;; Require early-init.el just in case it hasn't been yet.
 (require 'early-init (locate-user-emacs-file "early-init.el") :noerror)
+
 ;; Requre my private stuff
 (require 'private)
+(setq debug-on-error t)
 
 (setup (:require +defaults))
 
@@ -72,6 +75,20 @@
   (with-eval-after-load 'frowny
     (add-to-list 'frowny-inhibit-modes 'dired-mode)))
 
+(setup eldoc
+  (:hook-into elisp-mode
+              lisp-interaction-mode))
+
+(setup elisp-mode
+  (:also-load +elisp)
+  (:option eval-expression-print-length nil
+           eval-expression-print-level nil)
+  (:with-map (emacs-lisp-mode-map lisp-interaction-mode-map)
+    (:bind "C-c C-c" 'eval-defun
+           "C-c C-k" '+elisp-eval-region-or-buffer
+           "C-c C-z" 'ielm))
+  (advice-add 'eval-region :around '+eval-region@pulse))
+
 (setup eshell
   (:also-load +eshell
               em-smart
@@ -108,6 +125,22 @@
                    '("tildegit.org" "tildegit.org/api/v1" "tildegit.org"
                      forge-gitea-repository)))))
 
+(setup prog
+  (:local-set comment-auto-fill-only-comments t)
+  (:hook 'prettify-symbols-mode
+         'display-fill-column-indicator-mode
+         'turn-on-auto-fill))
+
+(setup pulse
+  (:also-load +pulse)
+  (:option pulse-flag nil
+           pulse-delay 0.5
+           pulse-iterations 1)
+  (+pulse-location-mode +1))
+
+(setup text
+  (:hook 'turn-on-auto-fill))
+
 (setup (:straight 0x0)
   (:option 0x0-default-server 'ttm)
   (with-eval-after-load 'embark
@@ -118,6 +151,7 @@
   )
 
 (setup (:straight anzu)
+  (:option anzu-cons-mode-line-p nil)
   (:global [remap query-replace] 'anzu-query-replace-regexp
            [remap query-replace-regexp] 'anzu-query-replace-regexp)
   (global-anzu-mode +1)
@@ -348,7 +382,7 @@
   (:option prefix-help-command 'embark-prefix-help-command)
   (:global "C-." 'embark-act
            "M-." 'embark-dwim
-           "C-h B" 'embark-bindings))
+           "<help> B" 'embark-bindings))
 
 (setup (:straight embark-consult)
   (:load-after consult embark)
@@ -565,6 +599,25 @@
     "M-!" 'shell-command+)
   (:global "M-!" 'shell-command+))
 
+(setup (:straight (simple-modeline
+                   :fork (:repo "duckwork/simple-modeline")))
+  (:also-load +modeline)
+  (:option simple-modeline-segments '((;; left
+                                       +modeline-modified
+                                       +modeline-buffer-name
+                                       +modeline-position
+                                       +modeline-anzu
+                                       )
+                                      (;; right
+                                       +modeline-track
+                                       +modeline-vc
+                                       simple-modeline-segment-misc-info
+                                       simple-modeline-segment-process
+                                       +modeline-narrowed
+                                       +modeline-minions
+                                       +modeline-major-mode)))
+  (simple-modeline-mode +1))
+
 (setup (:straight (sophomore
                    :host github
                    :repo "duckwork/sophomore.el"))
@@ -637,3 +690,10 @@
   (:option whitespace-cleanup-mode-preserve-point t)
   (remove-hook 'before-save-hook 'whitespace-cleanup)
   (global-whitespace-cleanup-mode +1))
+
+(setup (:straight zzz-to-char)
+  (:global "M-z" (lambda (prefix)
+                   "Call `zzz-to-char' or `zzz-up-to-char' with PREFIX arg."
+                   (interactive "P")
+                   (call-interactively
+                    (if prefix #'zzz-up-to-char #'zzz-to-char)))))