From 1433a3916049615cc3ab4880939b3842c9242c29 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 12 Oct 2021 18:40:17 -0500
Subject: totally unhelpful commit message

;)
---
 init.el | 43 +++++++++++++++++--------------------------
 1 file changed, 17 insertions(+), 26 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index a5b77ba..e25e73f 100644
--- a/init.el
+++ b/init.el
@@ -515,7 +515,12 @@
            "Setup eww bookmark integration."
            (setq-local bookmark-make-record-function #'bookmark-eww--make)))
 
-  (:bind "b" #'bookmark-set
+  (:bind "RET" (defun eww/browse-url (arg)
+                 (interactive "P")
+                 (if-let ((url (thing-at-point 'url)))
+                     (browse-url url)
+                   (call-interactively #'acdw/link-hint-open-link)))
+         "b" #'bookmark-set
          "B" #'bookmark-jump
          "M-n" nil
          "M-p" nil))
@@ -525,6 +530,9 @@
   (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)
@@ -978,8 +986,7 @@ specific to most general, they are these:
            shr-max-width fill-column
            shr-max-image-proportion 0.6
            shr-image-animate t
-           shr-discard-aria-hidden t
-           shr-folding-mode t))
+           shr-discard-aria-hidden t))
 
 (setup text
   (:hook turn-on-auto-fill
@@ -1235,7 +1242,11 @@ specific to most general, they are these:
              lui-fill-remove-face-from-newline nil)
     
     (:hook #'visual-fill-column-mode
-           #'visual-line-mode)
+           #'visual-line-mode
+           #'enable-lui-track)
+
+    (:face lui-time-stamp-face
+           ((t :inherit font-lock-comment-face)))
     
     (:local-set visual-fill-column-extra-text-width
                 (cons acdw-irc/left-margin 0)
@@ -1247,9 +1258,7 @@ specific to most general, they are these:
                 nyan-mode nil
                 line-number-mode nil
                 column-number-mode nil
-                file-percentage-mode nil)
-    
-    (:hook #'enable-lui-track)))
+                file-percentage-mode nil)))
 
 (setup (:straight (consult
                    :host github
@@ -1533,6 +1542,7 @@ See also `crux-reopen-as-root-mode'."
     (:hook #'reading-mode)
     (:local-set shr-max-image-proportion 0.9
                 shr-width nil
+                shr-max-width nil
                 fill-column 0)
     ;; see https://irreal.org/blog/?p=8885
     (:bind "SPC" (defun elfeed-scroll-up-command (&optional arg)
@@ -2293,25 +2303,6 @@ the default is \"/\"."
   (:also-load eldoc)
   (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))
 
-;; (setup (:straight paredit)
-;;   (:bind "DEL" #'paredit-backward-delete
-;;          "C-<backspace>" #'paredit-backward-kill-word
-;;          "M-w" #'paredit-copy-as-kill
-;;          "RET" #'paredit-newline)
-
-;;   (:unbind "M-s"                        ; paredit-splice-sexp
-;;            "C-j"                        ; paredit-newline (rebound to RET)
-;;            )
-
-;;   (:hook-into emacs-lisp-mode
-;;               ielm-mode sly-repl-mode
-;;               lisp-mode
-;;               lisp-interaction-mode
-;;               scheme-mode)
-
-;;   (:also-load eldoc)
-;;   (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))
-
 (setup (:straight paren-face)
   (:hook-into emacs-lisp-mode
               ielm-mode sly-repl-mode
-- 
cgit 1.4.1-21-gabe81