5 files changed, 146 insertions, 24 deletions

@@ -4,11 +4,17 @@
 
 * Packages
 
-** TODO insert-kaomoji
+** DONE insert-kaomoji
 
-- [ ] Add =( ¬‿¬)═ɜ ɛ═(⌐‿⌐ )= to list
-- [ ] and =▬▬▬▬▬▬▬▋ Ò╭╮Ó=
-- [ ] Clean up code and package it properly
+- [X] Add =(¬‿¬)═ɜ ɛ═(⌐‿⌐ )= to list
+- [X] and =▬▬▬▬▬▬▬▋ Ò╭╮Ó=
+- [X] Clean up code and package it properly
+
+** TODO keep-acs (name?)
+
+- keepassxc-cli
+- interface with emacs
+- plug into =auth-sources=
 
 * Configuring
 
@@ -42,6 +48,33 @@
 
 *** Also cf. [[https://blog.jethro.dev/posts/org_mode_workflow_preview/][Org-mode Workflow: A Preview · Jethro Kuan]]
 
+* Buffer display stuff
+
+#+begin_src emacs-lisp
+  ;; from alphapapa
+  (cl-defun ap/display-buffer-in-side-window (&optional (buffer (current-buffer)))
+    "Display BUFFER in dedicated side window."
+    (interactive)
+    (let ((display-buffer-mark-dedicated t))
+      (display-buffer-in-side-window buffer
+                                     '((side . right)
+                                       (window-parameters
+                                        (no-delete-other-windows . t))))))
+#+end_src
+
+- [[https://old.reddit.com/r/emacs/comments/pka1sm/my_first_package_aside_for_easier_configuration/][My first package: Aside, for easier configuration and use of side windows :
+  emacs]]
+- [[https://github.com/alphapapa/burly.el][GitHub - alphapapa/burly.el: Save and restore frames and windows with their
+  buffers in Emacs]]
+- [[https://depp.brause.cc/shackle/][shackle: Enforce rules for popup windows]]
+  - [[https://github.com/kaushalmodi/.emacs.d/blob/master/setup-files/setup-shackle.el][.emacs.d/setup-shackle.el at master · kaushalmodi/.emacs.d · GitHub]]
+  - [[https://www.reddit.com/r/emacs/comments/3icpv8/help_with_shackle_configuration/][help with shackle configuration : emacs]]
+  - [[https://mullikine.github.io/posts/making-shackle-split-sensibly/][Sensible Splits: Extending shackle.el // Bodacious Blog]]
+  - [[https://news.ycombinator.com/item?id=18598863][Oh man, your link led me to shackle[1] to make transient buffers behave and
+    I ha... | Hacker News]]
+  - [[https://emacsninja.com/posts/design-is-hard.html][Emacs Ninja - Design Is Hard]]
+- Alternatively: [[https://web.archive.org/web/20160409014815/https://www.lunaryorn.com/2015/04/29/the-power-of-display-buffer-alist.html][Emacs Spotlight: Configure buffer display - Emacs.  What else?]]
+
 * Random shit
 
 ** A way to map over buffers
@@ -84,3 +117,25 @@ daviwil | minikN: I connect to the hostname/port of my ZNC server,
 -    acdw > daviwil: I just see *******
   benoitj | I use two networks
 #+end_quote
+
+** Teach =link-hint= about =lui-buttons=
+
+See =lui-next-button-or-complete=, etc.  Also possibly:
+- [[https://github.com/abo-abo/avy/issues/255][Feature request: ability to select objects in overlays · Issue #255 · abo-abo/avy · GitHub]]
+- [[https://github.com/noctuid/link-hint.el/issues/24][Enhancement: Detect links in overlays · Issue #24 · noctuid/link-hint.el ·
+  GitHub]]
+
+
+(I /think/ a button is an overlay….)
+
+** Write =self-promote-shamelessly= function
+
+Link to the line of a file on a git forge with a command, for linking.
+
+https://tildegit.org/acdw/emacs/src/branch/main/init.el#L1166, e.g.
+
+- *OR* install this: [[https://github.com/sshaw/git-link][GitHub - sshaw/git-link: Emacs package to get the GitHub/Bitbucket/GitLab/... URL for a buffer location]]
+
+** Fix =acdw-org/count-words-stupidly=
+
+It adds one for blank lines.
@@ -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
@@ -6,7 +6,7 @@
   "Arguments to pass to mpv in `browse-url-mpv'.")
 
 (defun browse-url-mpv (url &optional new-window)
-  "Play `URL' in mpv."
+  "Play URL in mpv."
   (interactive (browse-url-interactive-arg "Video URL: "))
   (ignore new-window) ;; mpv always opens a new window
   (let* ((url (browse-url-encode-url url))
@@ -112,6 +112,13 @@ Then, build `browse-url-button-regexp' with the new protocol."
 
 ;;; Browse-URL tweaks
 
+;; convert reddit.com to teddit
+(defun acdw/eww-browse-reddit-url (url &rest args)
+  "Browse a Reddit.com URL using Teddit."
+  (let* ((teddit "teddit.com")
+         (url (replace-regexp-in-string "reddit\\.com" teddit url)))
+    (eww-browse-url url args)))
+
 ;; convert twitter.com to nitter
 (defun acdw/eww-browse-twitter-url (url &rest args)
   "Browse a Twitter.com URL using Nitter."
@@ -288,7 +288,7 @@ instead of the true count."
                                                        desc "\\W")))))))
                    (goto-char (match-end 0)))
                   ;; Ignore source blocks
-                  ((org-in-src-block-p) (foreward-line))
+                  ((org-in-src-block-p) (forward-line))
                   ;; Count everything else
                   (t
                    ;; ... unless it's in a few weird contexts
@@ -461,7 +461,7 @@ Prompt only if there are unsaved changes."
                                  (repeat 1 2 digit)
                                  (: (any ?a ?A ?p ?P) (any ?m ?M)))
                           (* nonl)))
-         (ss (sunrise-sunset))
+         (ss (acdw/supress-messages #'sunrise-sunset))
          (_m (string-match times-regex ss))
          (sunrise-time (match-string 1 ss))
          (sunset-time (match-string 2 ss)))
@@ -469,6 +469,17 @@ Prompt only if there are unsaved changes."
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
+(defun acdw/supress-messages (oldfn &rest args) ; from pkal
+  "Advice wrapper for suppressing `message'.
+OLDFN is the wrapped function, that is passed the arguments
+ARGS."
+  (let ((msg (current-message)))
+    (prog1
+        (let ((inhibit-message t))
+          (apply oldfn args))
+      (when msg
+        (message "%s" msg)))))
+
 (defun acdw/setup-fringes ()
   "Set up fringes how I likes 'em."
   (define-fringe-bitmap 'left-curly-arrow