Merged

1 files changed, 105 insertions, 47 deletions

@@ -14,6 +14,14 @@
 ;; - Be kind to yourself.
 ;; - Make good choices.
 
+;;; Commentary
+
+;; My init.el.  There are many like it, but this one is mine.
+
+;; Ideas:
+;; [[https://emacs.stackexchange.com/questions/17278/truncate-only-certain-lines-and-use-continuation-lines-elsewhere][Truncate org-mode headings]]
+;; [[https://emacs.stackexchange.com/questions/7432/make-visual-line-mode-more-compatible-with-org-mode][another link that might be useful for truncating]]
+
 ;;; Code:
 
 (let ((early-features `((early-init . ,(locate-user-emacs-file "early-init"))
@@ -104,6 +112,8 @@
   (:with-mode Custom-mode
     (:local-set imenu-generic-expression +cus-edit-imenu-generic-expression)))
 
+(setup (:require find-script))
+
 (setup (:require goto-addr)
   (if (fboundp #'global-goto-address-mode)
       (global-goto-address-mode)
@@ -242,17 +252,15 @@
   (:option +browse-url-transformations `((,(rx (or "youtube.com"
                                                    "youtu.be"))
                                           . ,+invidious-host)
-                                         ("twitter\\.com"
-                                          . "nitter.net")
-                                         ("instagram\\.com"
-                                          . "bibilogram.art")
+                                         ("twitter\\.com" . "nitter.net")
+                                         ("instagram\\.com" . "bibilogram.art")
                                          (,(rx (or "reddit.com"
                                                    "old.reddit.com"))
                                           . "teddit.net")
-                                         ("medium\\.com"
-                                          . "scribe.rip")
-                                         ("www\\.npr\\.org"
-                                          . "text.npr.org")))
+                                         ("medium\\.com" . "scribe.rip")
+                                         ("www\\.npr\\.org" . "text.npr.org")
+                                         ;;TODO: Various paste sites
+                                         ))
   (+browse-url-transform-url-global-mode +1))
 
 (setup calendar
@@ -294,7 +302,7 @@
          #'lin-mode
          #'+dired-dim-git-ignores)
   (+with-ensure-after-init              ; Necessary because jabber loads later
-      (:+key "C-x C-j" #'dired-jump))
+    (:+key "C-x C-j" #'dired-jump))
   (dolist (refresh-after-func '(dired-do-flagged-delete))
     (advice-add refresh-after-func :after #'revert-buffer))
   (with-eval-after-load 'frowny
@@ -308,10 +316,12 @@
   (: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))
+  (:with-mode emacs-lisp-mode
+    (:hook #'checkdoc-minor-mode))
+  (:bind-into (emacs-lisp-mode-map lisp-interaction-mode-map)
+    "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
@@ -362,7 +372,7 @@
     ;; Bind keys
     (dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
       (define-key eshell-mode-map
-                  (kbd (car binding)) (cdr binding)))
+        (kbd (car binding)) (cdr binding)))
     ;; Environment variables
     (dolist (environment '(("PAGER" . "cat")))
       (setenv (car environment) (cdr environment)))))
@@ -461,7 +471,8 @@
              '(context-menu-ffap
                context-menu-region
                context-menu-undo
-               context-menu-dictionary))
+               ;; context-menu-dictionary
+               ))
     (context-menu-mode +1))
   (dolist (click '(;; Fix scrolling in the margin
                    wheel-down double-wheel-down triple-wheel-down
@@ -470,9 +481,25 @@
     (global-set-key (vector 'left-margin click) 'mwheel-scroll)))
 
 (setup net-utils
+  (:needs "traceroute")
   (:require +finger)                        ; fixes `finger' to use var below
   (:option finger-X.500-host-regexps '(".") ; only send username
-           ))
+           )
+  (require 'transient)
+  (transient-define-prefix net-utils ()
+    "Networking utilities"
+    ["Actions"
+     ("p" "Ping" ping)
+     ("i" "Ifconfig" ifconfig)
+     ("w" "Iwconfig" iwconfig)
+     ("n" "Netstat" netstat)
+     ("a" "Arp" arp)
+     ("r" "Route" route)
+     ("h" "Nslookup host" nslookup-host)
+     ("d" "Dig" dig)
+     ("s" "Smb Client" smbclient)
+     ("t" "Traceroute" traceroute)])
+  (:+key "C-z M-n" #'net-utils))
 
 (setup notmuch
   (:load-from "~/usr/share/emacs/site-lisp/")
@@ -561,7 +588,7 @@
            org-fontify-done-headline t
            org-fontify-quote-and-verse-blocks t
            org-fontify-whole-heading-line t
-           org-hide-emphasis-markers t
+           org-hide-emphasis-markers nil
            org-html-coding-system 'utf-8-unix
            org-image-actual-width (list (* (window-font-width)
                                            (- fill-column 8)))
@@ -620,11 +647,20 @@
          "C-c C-p" #'+org-previous-heading-widen
          "C-c C-o" #'+org-open-at-point-dwim
          "`" #'+org-insert-tilde
-         "~" #'+org-insert-backtick)
+         "~" #'+org-insert-backtick
+         "C-c C-x l" #'org-toggle-link-display
+         "C-c C-x m" (lambda () (interactive)
+                       (setq-local org-hide-emphasis-markers
+                                   (not org-hide-emphasis-markers))
+                       (font-lock-update))
+         "C-c C-x r" #'+org-drawer-list-add-resource
+         "C-M-k" #'kill-paragraph
+         "C-M-t" #'transpose-paragraphs)
   (:global [f8] #'org-clock-in
            [f9] #'org-clock-out
            "C-c l" #'org-store-link)
   (:hook #'variable-pitch-mode
+         #'visual-fill-column-mode
          #'turn-off-auto-fill
          #'org-indent-mode
          #'prettify-symbols-mode
@@ -632,6 +668,12 @@
   (:local-set prettify-symbols-alist '(("DEADLINE:" . ?→)
                                        ("SCHEDULED:" . ?↷)
                                        ("CLOSED:" . ?✓))
+              ;; electric-pair-pairs
+              ;; (append electric-pair-pairs
+              ;;                             (mapcar (lambda (emph)
+              ;;                                       (let ((ch (string-to-char (car emph))))
+              ;;                                         (cons ch ch)))
+              ;;                                     org-emphasis-alist))
               ;;+modeline-position-function #'+org-count-words-stupidly
               )
   (:local-hook user-save-hook #'+org-before-save@prettify-buffer)
@@ -649,6 +691,9 @@
     (org-link-set-parameters "sms" :follow #'+org-sms-open)
     (setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
           #'+org-open-html))
+  (:face 'org-done '((t (:inherit (modus-themes-subtle-green))))
+         'org-tag '((t (:inherit (secondary-selection))))
+         'org-todo '((t (:inherit (modus-themes-subtle-red)))))
   ;; Extra keywords
   (font-lock-add-keywords
    'org-mode
@@ -1167,10 +1212,6 @@
     (:hook #'visual-line-mode
            #'enable-lui-track
            #'visual-fill-column-mode
-           (defun +disable-electric-pair-mode ()
-             "Disable `electric-pair-mode' in the current buffer."
-             (interactive)
-             (electric-pair-local-mode -1))
            #'enable-lui-autopaste)
     (:local-set fringes-outside-margins t
                 right-margin-width (length lui-time-stamp-format)
@@ -1187,6 +1228,7 @@
       (setf (alist-get 'lui-next-button-or-complete vertico-multiform-commands)
             '(flat))))
 
+  (tracking-mode +1)
   (:with-mode tracking-mode
     (:option tracking-position 'before-modes)
     (:bind "C-c C-SPC" (lambda () (interactive)
@@ -1304,19 +1346,20 @@
     (with-eval-after-load 'vertico-multiform
       (setf (alist-get 'consult-buffer vertico-multiform-commands) '(flat))
       (dolist (buf-cmd '(consult-find
-                         consult-yank-pop
-                         consult-locate
-                         consult-grep
+                         consult-flymake
+                         consult-focus-lines
                          consult-git-grep
-                         consult-ripgrep
+                         consult-grep
+                         consult-imenu
+                         consult-imenu-multi
+                         consult-keep-lines
                          consult-line
                          consult-line-multi
+                         consult-locate
                          consult-multi-occur
-                         consult-keep-lines
-                         consult-focus-lines
-                         consult-imenu
-                         consult-imenu-multi
-                         consult-outline))
+                         consult-outline
+                         consult-ripgrep
+                         consult-yank-pop))
         (setf (alist-get buf-cmd vertico-multiform-commands) nil)))))
 
 (setup (:straight consult-dir)
@@ -1514,6 +1557,11 @@
   (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))
 
 (setup (:straight embrace)
+  (dolist (mode '(LaTeX-mode org-mode ruby-mode))
+    (add-hook (intern (format "%s-hook" mode))
+              (intern (format "embrace-%s-hook" mode))))
+  (:face 'embrace-help-pair-face '((t ( :inverse-video nil
+                                        :inherit font-lock-keyword-face))))
   (:+key "C-," #'embrace-commander))
 
 (setup (:straight (ement
@@ -1619,7 +1667,7 @@
 (setup (:straight (forge
                    :host github :repo "magit/forge")
          (eq system-type 'gnu/linux))
-  (require 'forge)
+  (:quit)                               ; XXX: Somehow missing compat-26
   (add-to-list 'forge-alist
                '("tildegit.org" "tildegit.org/api/v1" "tildegit.org"
                  forge-gitea-repository)))
@@ -1632,6 +1680,7 @@
 (setup (:straight (frowny
                    :host github
                    :repo "duckwork/frowny.el"))
+  (:option frowny-eyes (rx (any ":=") (opt "'") (? "-")))
   (global-frowny-mode +1))
 
 (setup (:straight gcmh)
@@ -1759,9 +1808,6 @@
                           :fork ( :host nil
                                   :repo "https://codeberg.org/acdw/emacs-jabber")))
   (:also-load +jabber)
-  (defvar +jabber-ws-prefix 0 "Width to pad left side of chats.")
-  (defvar +jabber-pre-prompt "\n"
-    "String to show before a prompt.")
   (:option jabber-account-list '(("acdw@hmm.st"))
            jabber-groupchat-buffer-format "%n"
            jabber-chat-buffer-format "%n"
@@ -1770,7 +1816,7 @@
            jabber-muc-decorate-presence-patterns
            '(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$")
              ("." . jabber-muc-presence-dim))
-           jabber-muc-colorize-foreign t
+           jabber-muc-colorize-foreign nil ; colorizing doesn't match my color theme
            jabber-chat-foreign-prompt-format (concat +jabber-pre-prompt
                                                      "[%t] %n\n"
                                                      (make-string +jabber-ws-prefix
@@ -1804,7 +1850,6 @@
                   jabber-console-mode))
     (let ((hook (intern (format "%s-hook" mode))))
       (add-hook hook #'visual-fill-column-mode)))
-  (add-hook 'jabber-activity-mode-hook #'tracking-mode)
   (with-eval-after-load 'tracking
     (add-to-list 'tracking-ignored-buffers "discuss@conference.soprani.ca"))
   (:with-mode jabber-chat-mode
@@ -1816,7 +1861,10 @@
                 wrap-prefix (make-string +jabber-ws-prefix ?\ )))
   (:+leader "C-j" jabber-global-keymap)
   (advice-add 'jabber-activity-add :after #'+jabber-tracking-add)
-  (advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc))
+  (advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc)
+  ;;; Alerting hooks --- remove echo messages
+  (remove-hook 'jabber-alert-muc-hooks 'jabber-muc-echo)
+  (remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
 
 (setup (:straight (keepassxc-shim
                    :host github :repo "duckwork/keepassxc-shim.el"))
@@ -1899,6 +1947,7 @@
 
 (setup (:straight mastodon)
   (:option mastodon-instance-url "https://tiny.tilde.website"
+           mastodon-active-user "acdw"
            mastodon-client--token-file (.etc "mastodon.plstore")
            mastodon-auth-source-file (seq-some (lambda (i)
                                                  (when (and (stringp i)
@@ -1950,8 +1999,8 @@
              (,(intern (format "modus-themes-heading-%s" facen))
               fixed-pitch))
           :now)))))
-  (:face 'modus-themes-tab-active '((t :bold nil))
-         'modus-themes-tab-inactive '((t :italic t)))
+  (:face 'modus-themes-tab-active '((t ( :bold nil)))
+         'modus-themes-tab-inactive '((t ( :italic t))))
 
   (define-advice modus-themes--current-theme (:around (fn &rest r))
     "Fix a \"nil is not a Modus theme\" error."
@@ -2027,7 +2076,7 @@
   (:option completion-styles '(substring orderless basic)
            completion-category-defaults nil
            completion-category-overrides
-           '((file (styles partial-completion))
+           '((file (styles basic partial-completion))
              (command (styles +orderless-with-initialism))
              (variable (styles +orderless-with-initialism))
              (symbol (styles +orderless-with-initialism)))
@@ -2067,6 +2116,7 @@
               (local-set-key (kbd "C-c M-o") 'org-mime-org-buffer-htmlize))))
 
 (setup (:straight org-modern)
+  (:quit "I think I can do most of this myself.")
   (:option org-modern-hide-stars nil
            org-modern-star nil
            org-modern-list nil
@@ -2092,7 +2142,9 @@
   (org-visibility-enable-hooks))
 
 (setup (:straight orglink)
-  (global-orglink-mode +1))
+  (:option orglink-activate-in-modes '(text-mode prog-mode))
+  (global-orglink-mode +1)
+  (global-goto-address-mode -1))
 
 (setup (:straight package-lint))
 
@@ -2211,9 +2263,7 @@
                 ",")
               +modeline-input-method
               +modeline-position
-              ,(+modeline-concat
-                '(+modeline-minions
-                  +modeline-major-mode))
+              +modeline-major-mode
               +modeline-file-percentage
               )))
   (simple-modeline-mode +1))
@@ -2222,6 +2272,8 @@
   (:also-load +slack)
   (:option slack-prefer-current-team t
            slack-buffer-emojify t
+           slack-thread-also-send-to-room nil
+           slack-typing-visibility 'buffer
            slack-buffer-create-on-notify t
            slack-enable-wysiwyg t
            slack-file-dir (xdg-user-dir "DOWNLOAD")
@@ -2255,9 +2307,15 @@
   (sophomore-enable #'narrow-to-region)
   (sophomore-disable                    ; These are mostly annoying commands
    #'view-hello-file
-   #'describe-gnu-project)
+   #'describe-gnu-project
+   #'suspend-frame)
   (sophomore-mode +1))
 
+(setup (:straight (spongebob-case
+                   :host github
+                   :repo "duckwork/spongebob-case.el"))
+  (define-key +casing-map (kbd "M-s") #'spongebob-case-dwim))
+
 (setup (:straight ssh-config-mode)
   (:file-match (rx "/.ssh/config" eos)
                (rx "/ssh" (? "d") "_config" eos))
@@ -2269,7 +2327,7 @@
 (setup (:straight super-save)
   (:option auto-save-default nil
            super-save-auto-save-when-idle t
-           super-save-idle-duration 60
+           super-save-idle-duration 30
            super-save-exclude '(".gpg")
            super-save-remote-files nil)
   (auto-save-visited-mode -1)