1 files changed, 66 insertions, 17 deletions

@@ -202,7 +202,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
              (concat
               (acdw-irc/margin-format (plist-get plist :nick) "-" " >" t)
               " " (plist-get plist :body)))
-           circe-highlight-nick-type 'sender
+           ;; circe-highlight-nick-type 'message
            circe-network-options
            `(("Libera Chat"
               :channels ("#emacs" "#systemcrafters" "##webpals")
@@ -223,10 +223,11 @@ AKA, DO NOT USE THIS FUNCTION!!!"
            circe-reduce-lurker-spam t
            circe-server-auto-join-default-type :after-auth)
 
-  (:face circe-nick-highlight-face
-         ((t (:inherit (modus-themes-hl-line)))))
+  ;; (:face circe-nick-highlight-face
+  ;;        ((t (:inherit (modus-themes-hl-line)))))
 
-  (:bind "C-c C-p" #'circe-command-PART)
+  (:bind "C-c C-p" #'circe-command-PART
+         "C-l" #'lui-track-jump-to-indicator)
 
   (:advise circe-command-PART :after
            (defun circe-part@kill-buffer (&rest _)
@@ -438,9 +439,10 @@ AKA, DO NOT USE THIS FUNCTION!!!"
 (setup debugger
   (:hook visual-line-mode))
 
-(setup (:straight (define-repeat-map
-                      :host nil
-                      :repo "https://tildegit.org/acdw/define-repeat-map.el"))
+(setup (:straight-if (define-repeat-map
+                       :host nil
+                       :repo "https://tildegit.org/acdw/define-repeat-map.el")
+                     (acdw/system :home))
 
   (defun acdw/other-window-or-switch-buffer-backward ()
     (interactive)
@@ -725,7 +727,8 @@ AKA, DO NOT USE THIS FUNCTION!!!"
            "C-c d" #'acdw/insert-iso-date
            "M-`" nil
            "C-x o" #'acdw/other-window-or-switch-buffer
-           "C-x O" #'acdw/other-window-or-switch-buffer-backward)
+           "C-x O" #'acdw/other-window-or-switch-buffer-backward
+           "C-c _" #'add-file-local-variable)
 
   (:with-map toggle-map
     (:bind "c" #'column-number-mode
@@ -934,7 +937,53 @@ successive invocations."
            "C-c l v" #'find-variable))
 
 (setup flymake
-  ;; (:hook-into prog-mode) ; this is very annoying.
+
+  (defvar flymake-inhibit-major-modes nil
+    "Which major-modes NOT to enable `flymake' in.")
+
+  (defvar flymake-inhibit-file-name-regexps '("init\\.el\\'"
+                                              "early-init\\.el\\'")
+    "List of file regexps NOT to enable `flymake' in.")
+
+  (defvar flymake-inhibit-buffer-name-regexps (list (rx "*scratch*"))
+    "List of buffer-name regexps NOT to enable `flymake' in.")
+
+  (defun list-string-match-p (string regexp-list)
+    "Return t if at least one regex in RETGEXP-LIST matches STRING, else nil."
+    (when string                        ; if STRING is nil, return nil.
+      (catch 'found
+        (dolist (regexp regexp-list)
+          (when (string-match regexp string)
+            (throw 'found t))))))
+
+  (defun flymake-unless ()
+    "Turn on `flymake-mode', UNLESS it's inhibited.
+There are three methods to inhibit flymake in a file.  From most
+specific to most general, they are these:
+
+- `flymake-inhibit': a file-local-variable
+
+- `flymake-inhibit-buffer-name-regexps': a list of regexps to
+  match the buffer name against.  If one of them matches, inhibit
+  `flymake-mode'.
+
+- `flymake-inhibit-file-name-regexps': a list of regexps to match
+  the filename against.  If one of them matches, inhibit
+  `flymake-mode'.
+
+- `flymake-inhibit-major-modes': a list of major-modes in which
+  to inhibit `flymake-mode'.  Really only useful if you want to
+  generally add `flymake-mode' to `prog-mode-hook'."
+    (unless (or (bound-and-true-p flymake-inhibit) ; file-local variable
+                (list-string-match-p (buffer-name)
+                                     flymake-inhibit-buffer-name-regexps)
+                (list-string-match-p (buffer-file-name)
+                                     flymake-inhibit-file-name-regexps)
+                (apply #'derived-mode-p flymake-inhibit-major-modes))
+      (flymake-mode-on)))
+
+  (add-hook 'prog-mode-hook #'flymake-unless)
+  
   (:bind "M-n" #'flymake-goto-next-error
          "M-p" #'flymake-goto-prev-error))
 
@@ -1132,6 +1181,12 @@ successive invocations."
 (setup (:straight (kaomoji
                    :host nil
                    :repo "https://tildegit.org/acdw/kaomoji-insert"))
+  (dolist (km'(("(Ծ‸ Ծ)" "suspicious")
+               ("(¬‿¬)═ɜ ɛ═(⌐‿⌐ )" "pound it" "fist bump")
+               ("▬▬▬▬▬▬▬▋ Ò╭╮Ó" "hammer")
+               ("👁👄👁" "lewk")
+               ("( ͡~ ͜ʖ ͡°)" "wink")))
+    (add-to-list 'kaomoji-alist km))
   (:global "C-x 8 k" #'kaomoji-insert))
 
 (setup (:straight lacarte)
@@ -1523,14 +1578,7 @@ browser defined in `browse-url-secondary-browser-function'."
   
   (:hook show-paren-mode
          electric-pair-local-mode
-         acdw/setup-fringes
-
-         (defun flymake-mode-except ()
-           "Turn on flymake mode, except in some modes."
-           (let ((no-flymake-modes '(emacs-lisp-mode)))
-             (unless (or (member major-mode no-flymake-modes)
-                         (apply #'derived-mode-p no-flymake-modes))
-               (flymake-mode-on))))       
+         acdw/setup-fringes       
 
          (defun prog-mode@auto-fill ()
            (setq-local comment-auto-fill-only-comments t)
@@ -1761,6 +1809,7 @@ browser defined in `browse-url-secondary-browser-function'."
 
 (setup text
   (:hook turn-on-auto-fill
+         tildify-mode
          acdw/setup-fringes))
 
 (setup (:straight (topsy