From d9e602e4128a8aaae39ba81296f7042bc2545053 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 13 Oct 2021 17:58:04 -0500
Subject: I told myself I'd have useful commit messages today

Apparently I lied.
---
 init.el | 61 +++++++++++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 49 insertions(+), 12 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ddaf872..a2b8368 100644
--- a/init.el
+++ b/init.el
@@ -180,7 +180,8 @@
                   "reddit.com"
                   "twitter.com"
                   "imgur.com"
-                  "pixelfed"))
+                  "pixelfed"
+                  "taskiq"))
           browse-url-secondary-browser-function)
     (cons "."                          ; everything else
           #'eww-browse-url)))
@@ -324,6 +325,9 @@
   (:option eldoc-idle-delay 0.1
            eldoc-echo-area-use-multiline-p nil))
 
+(setup elec-pair
+  (electric-pair-mode +1))
+
 (setup elisp-mode
   (:with-mode emacs-lisp-mode ;; -_-
     (:option eval-expression-print-length nil
@@ -530,9 +534,6 @@
   (add-hook 'after-save-hook
             #'executable-make-buffer-file-executable-if-script-p))
 
-(setup elec-pair
-  (electric-pair-mode +1))
-
 (setup files
   (:option auto-save-file-name-transforms `((".*" ,(acdw/dir "auto-save/" t) t))
            auto-save-list-file-prefix (acdw/dir "auto-save-list/.saves-" t)
@@ -1259,6 +1260,42 @@ specific to most general, they are these:
                 column-number-mode nil
                 file-percentage-mode nil)))
 
+(setup (:straight (command-log-mode
+                   :host github
+                   :repo "positron-solutions/command-log-mode"))
+  ;; I have many ideas as to how to change this.
+  (:option clm-window-text-scale 0
+           clm-logging-shows-buffer t
+           clm-log-globally t
+           clm-exceptions '(self-insert-command)
+           clm-window-size 0.25)
+  (el-patch-feature command-log-mode)
+  (with-eval-after-load 'command-log-mode
+    (el-patch-defun clm--show-buffer (&optional clear)
+      "Displays the command log buffer in a window.
+CLEAR will clear the buffer if it exists before returning it."
+      (let ((buffer (clm--setup-buffer clear)))
+        (let ((win (get-buffer-window buffer)))
+          (unless (windowp win)
+            (let ((new-win (el-patch-swap
+                             (split-window-horizontally
+                              (- 0 clm-window-size))
+                             (if (< (window-pixel-width) (window-pixel-height))
+                                 (split-window-vertically
+                                  (- (if (floatp clm-window-size)
+                                         (floor (* (window-height) clm-window-size))
+                                       clm-window-size)))
+                               (split-window-horizontally
+                                (- (if (floatp clm-window-size)
+                                       (floor (* (window-width) clm-window-size))
+                                     clm-window-size)))))))
+              (set-window-buffer new-win buffer)
+              (set-window-dedicated-p new-win t)
+              (el-patch-add
+                (with-current-buffer buffer
+                  (setq-local mode-line-format nil)))))
+          buffer)))))
+
 (setup (:straight (consult
                    :host github
                    :repo "minad/consult"))
@@ -1711,6 +1748,11 @@ See also `crux-reopen-as-root-mode'."
                  '("tildegit.org" "tildegit.org/api/v1" "tildegit.org"
                    forge-gitea-repository))))
 
+(setup (:straight (frowny
+                   :host github
+                   :repo "duckwork/frowny.el"))
+  (global-frowny-mode +1))
+
 (setup (:straight gcmh)
   (:option gcmh-idle-delay 'auto)
   (gcmh-mode +1))
@@ -1897,11 +1939,6 @@ browser defined in `browse-url-secondary-browser-function'."
                (append apheleia-mode-alist) '(markdown-mode . markdownfmt)
                (append apheleia-mode-alist) '(gfm-mode . markdownfmt)))))
 
-(setup (:straight (frowny
-                   :host github
-                   :repo "duckwork/frowny.el"))
-  (global-frowny-mode +1))
-
 (setup (:straight (mastodon
                    :host github
                    :repo "mooseyboots/mastodon.el"))
@@ -2598,7 +2635,7 @@ If used with a numeric prefix argument N, N backticks will be inserted."
   (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
 
 (setup (:straight visual-fill-column)
-  (:option visual-fill-column-width fill-column
+  (:option visual-fill-column-width (1+ fill-column)
            visual-fill-column-center-text t
            (append reading-modes) '(visual-fill-column-mode . +1)
            (append reading-modes) '(visual-line-mode . +1)
@@ -2696,5 +2733,5 @@ If used with a numeric prefix argument N, N backticks will be inserted."
              "Call `zzz-up-to-char' or `zzz-to-char', PREFIX-depending."
              (interactive "P")
              (if prefix
-                 (call-interactively #'zzz-to-char)
-               (call-interactively #'zzz-up-to-char)))))
+                 (call-interactively #'zzz-up-to-char)
+               (call-interactively #'zzz-to-char)))))
-- 
cgit 1.4.1-21-gabe81