Various updates

12 files changed, 154 insertions, 14 deletions

diff --git a/.bashrc b/.bashrc
index 236cb9f..5c3e2e7 100644
--- a/.bashrc
+++ b/.bashrc
@@ -155,7 +155,7 @@ alias mpva="mpv --ytdl-format=bestaudio"
 # mail
 alias mbsync='mbsync -c "$XDG_CONFIG_HOME"/isync/mbsyncrc'
 alias getmail='getmail --getmaildir "$XDG_CONFIG_HOME"/getmail --rcfile getmailrc'
-alias m="mbsync kelar; getmail"
+alias m="mbsync kelar; mbsync ia; getmail"
 # theme
 alias da='change-theme dark'
 alias li='change-theme light'
diff --git a/.config/git/config b/.config/git/config
index f61c550..6c0961d 100644
--- a/.config/git/config
+++ b/.config/git/config
@@ -75,6 +75,8 @@
 [init]
 	defaultBranch = main
 
+[url "git@git.archive.org:"]
+	insteadof = ia:
 [url "bandali@git.launchpad.net:"]
 	insteadof = lp:
 [url "git@salsa.debian.org:"]
@@ -91,6 +93,8 @@
 	path = ~/.config/git/config.gnu
 [includeIf "gitdir:src/debian/"]
 	path = ~/.config/git/config.debian
+[includeIf "gitdir:src/ia/"]
+	path = ~/.config/git/config.ia
 [cinnabar]
 	version-check = 1728006286
 [help]
diff --git a/.config/isync/mbsyncrc b/.config/isync/mbsyncrc
index dba818c..146f52e 100644
--- a/.config/isync/mbsyncrc
+++ b/.config/isync/mbsyncrc
@@ -108,3 +108,29 @@ Channel csclub
 Far :csclub-remote:
 Near :csclub-local:
 Patterns *
+
+######
+IMAPAccount ia
+Host mail.archive.org
+User bandali@archive.org
+PassCmd "gpg -q --for-your-eyes-only -d ~/.passwd/ia.gpg"
+SSLType IMAPS
+Timeout 300
+
+IMAPStore ia-remote
+Account ia
+
+IMAPAccount ia-local
+Host 127.0.0.1
+Port 143
+User bandali@archive.local
+PassCmd "gpg -q --for-your-eyes-only -d ~/.passwd/ia-local.gpg"
+SSLType None
+
+IMAPStore ia-local
+Account ia-local
+
+Channel ia
+Far :ia-remote:
+Near :ia-local:
+Patterns *
diff --git a/.config/mako/config b/.config/mako/config
new file mode 100644
index 0000000..38a5700
--- /dev/null
+++ b/.config/mako/config
@@ -0,0 +1,2 @@
+max-history=50
+ignore-timeout=1
diff --git a/.emacs.d/eshell/alias b/.emacs.d/eshell/alias
index 450b8e2..a1a1e40 100644
--- a/.emacs.d/eshell/alias
+++ b/.emacs.d/eshell/alias
@@ -17,4 +17,4 @@ alias vi find-file $1
 alias vim find-file $1
 alias mbsync mbsync -c $XDG_CONFIG_HOME/isync/mbsyncrc $*
 alias getmail getmail --getmaildir $XDG_CONFIG_HOME/getmail --rcfile getmailrc $*
-alias m mbsync kelar; getmail
+alias m mbsync kelar; mbsync ia; getmail
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 3b6c40a..7ced652 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -113,7 +113,12 @@ plain variables.  This means that `setopt' will execute any
  ;; are used, and also to have NonGNU ELPA on older Emacsel as well.
  package-archives
  '(("gnu" . "https://elpa.gnu.org/packages/")
-   ("nongnu" . "https://elpa.nongnu.org/nongnu/"))
+   ("nongnu" . "https://elpa.nongnu.org/nongnu/")
+   ("melpa" . "https://melpa.org/packages/"))
+ package-archive-priorities
+ '(("gnu" . 3)
+   ("nongnu" . 2)
+   ("melpa" . 1))
  ;; List of the packages I use from GNU ELPA and NonGNU ELPA.
  package-selected-packages
  '(delight
@@ -121,7 +126,8 @@ plain variables.  This means that `setopt' will execute any
    elpher
    eat
    vertico marginalia orderless corfu consult embark embark-consult
-   wgrep))
+   wgrep
+   slack))
 
 (unless package-archive-contents
   (package-refresh-contents))
diff --git a/.emacs.d/lisp/bandali-essentials.el b/.emacs.d/lisp/bandali-essentials.el
index e7024af..27e1836 100644
--- a/.emacs.d/lisp/bandali-essentials.el
+++ b/.emacs.d/lisp/bandali-essentials.el
@@ -364,16 +364,16 @@
 ;; `version'
 (b/keymap-global-set "C-c e v" #'emacs-version)
 
-;; Add prompt indicator to `completing-read-multiple'.
+;; Prompt indicator for `completing-read-multiple' for older Emacsen.
 ;; https://bugs.gnu.org/76028
-(defun crm-indicator (args)
-  (cons (format "[CRM%s] %s"
-                (replace-regexp-in-string
-                 "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
-                 crm-separator)
-                (car args))
-        (cdr args)))
-(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
+(when (< emacs-major-version 31)
+  (advice-add
+   #'completing-read-multiple :filter-args
+   (lambda (args)
+     (cons (format "[CRM%s] %s"
+                   (string-replace "[ \t]*" "" crm-separator)
+                   (car args))
+           (cdr args)))))
 
 (with-eval-after-load 'vertico
   (setopt
diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index 61a7d34..97d3527 100644
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -53,6 +53,17 @@
       (nnmail-fancy-expiry-targets
        (("from" ".*" "nnimap+kelar:Archive.%Y"))))
      (nnimap
+      "ia"
+      (nnimap-stream plain)
+      (nnimap-address "127.0.0.1")
+      (nnimap-server-port 143)
+      (nnimap-authenticator plain)
+      (nnimap-user "bandali@archive.local")
+      ;; (nnmail-expiry-wait immediate)
+      (nnmail-expiry-target nnmail-fancy-expiry-target)
+      (nnmail-fancy-expiry-targets
+       (("from" ".*" "nnimap+ia:Archive.%Y"))))
+     (nnimap
       "shemshak"
       (nnimap-stream plain)
       (nnimap-address "127.0.0.1")
@@ -250,6 +261,10 @@
         (address "bandali@kelar.org")
         ("X-Message-SMTP-Method" "smtp mail.kelar.org 587")
         (gcc "nnimap+kelar:INBOX"))
+       ("nnimap\\+ia:.*"
+        (address "bandali@archive.org")
+        ("X-Message-SMTP-Method" "smtp mail.archive.org 587")
+        (gcc "nnimap+ia:INBOX"))
        ("nnimap\\+shemshak:.*"
         (address "amin@shemshak.org")
         ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
@@ -336,6 +351,7 @@
        `(("Gnus" visible nil nil)
          (("misc" visible nil nil))
          (("csc" visible nil nil))
+         (("ia" visible nil nil))
          (("kelar" visible nil nil))
          (("shemshak" visible nil nil))
          (("debian" visible nil nil))
diff --git a/.emacs.d/lisp/bandali-ibuffer.el b/.emacs.d/lisp/bandali-ibuffer.el
index 909f7b8..930b000 100644
--- a/.emacs.d/lisp/bandali-ibuffer.el
+++ b/.emacs.d/lisp/bandali-ibuffer.el
@@ -42,6 +42,12 @@
         (mode . eshell-mode)
         (mode . shell-mode)
         (mode . term-mode)))
+      ("slack"
+       (or
+        (mode . slack-mode)
+        (mode . slack-buffer-mode)
+        (mode . slack-message-buffer-mode)
+        (name . "\\*slack.+")))
       ("tex"
        (or
         (mode . tex-mode)
diff --git a/.emacs.d/lisp/bandali-misc.el b/.emacs.d/lisp/bandali-misc.el
index eccee15..7a74888 100644
--- a/.emacs.d/lisp/bandali-misc.el
+++ b/.emacs.d/lisp/bandali-misc.el
@@ -125,5 +125,85 @@
     (b/keymap-set m "C-x C-q" #'wgrep-change-to-wgrep-mode)
     (b/keymap-set m "C-c C-c" #'wgrep-finish-edit)))
 
+(with-eval-after-load 'slack
+  (slack-register-team
+   :name "archive"
+   :token
+   (auth-source-pick-first-password
+    :host "iaslack" :user "bandalies")
+   :cookie
+   (auth-source-pick-first-password
+    :host "iaslack" :user "bandalies^cookie")
+   :default t
+   :subscribed-channels nil)
+  (slack-register-team
+   :name "archive-canada"
+   :token
+   (auth-source-pick-first-password
+    :host "iacslack" :user "bandalies")
+   :cookie
+   (auth-source-pick-first-password
+    :host "iacslack" :user "bandalies^cookie")
+   :subscribed-channels nil)
+  (setopt
+   slack-display-team-name nil
+   slack-prefer-current-team nil)
+  (b/keymap-global-set "C-c s l j" #'slack-select-rooms)
+  (b/keymap-global-set "C-c s l u" #'slack-select-unread-rooms)
+  (b/keymap-global-set "C-c s l U" #'slack-user-select)
+  (b/keymap-global-set "C-c s l E" #'slack-insert-emoji)
+  ;; (b/keymap-global-set "C-c s l E" #'emojify-insert-emoji)
+  (b/keymap-global-set "C-c s l i" #'slack-im-select)
+  (b/keymap-global-set "C-c s l e" #'slack-message-edit)
+  (b/keymap-global-set "C-c s l g" #'slack-message-redisplay)
+  (b/keymap-global-set "C-c s l r" #'slack-message-add-reaction)
+  (b/keymap-global-set "C-c s l t" #'slack-thread-show-or-create)
+  (b/keymap-global-set "C-c s l G" #'slack-conversations-list-update-quick)
+  (b/keymap-global-set "C-c s l q" #'slack-quote-and-reply)
+  (b/keymap-global-set "C-c s l Q" #'slack-quote-and-reply-with-link)
+  (let ((m slack-mode-map))
+    (b/keymap-set m "@" #'slack-message-embed-mention)
+    (b/keymap-set m "#" #'slack-message-embed-channel))
+  (let ((m slack-thread-message-buffer-mode-map))
+    (b/keymap-set m "C-c '" #'slack-message-write-another-buffer)
+    (b/keymap-set m "@" #'slack-message-embed-mention)
+    (b/keymap-set m "#" #'slack-message-embed-channel))
+  (let ((m slack-message-buffer-mode-map))
+    (b/keymap-set m "C-c '" #'slack-message-write-another-buffer)))
+(defvar b/slack-ws--reconnect-timer nil)
+(advice-add
+ 'slack-start
+ :before
+ (lambda (&rest _)
+   (unless b/slack-ws--reconnect-timer
+     (setq
+      b/slack-ws--reconnect-timer
+      (run-with-timer
+       0 (* 25 60)
+       (lambda ()
+         (slack-ws--reconnect (oref slack-current-team :id) t)
+         ;; (slack-im-list-update)
+         ))))))
+(advice-add
+ 'slack-stop
+ :before
+ (lambda (&rest _)
+   (when b/slack-ws--reconnect-timer
+     (cancel-timer b/slack-ws--reconnect-timer)
+     (setq b/slack-ws--reconnect-timer nil))))
+(b/keymap-global-set "C-c s l s" #'slack-start)
+(b/keymap-global-set "C-c s l k" #'slack-stop)
+(add-hook 'slack-message-buffer-mode-hook #'emojify-mode)
+(add-hook 'slack-thread-message-buffer-mode-hook #'emojify-mode)
+(add-hook 'slack-message-buffer-mode-hook #'visual-line-mode)
+(add-hook 'slack-thread-message-buffer-mode-hook #'visual-line-mode)
+
+(with-eval-after-load 'alert
+  (setopt alert-default-style 'notifications))
+
+(with-eval-after-load 'emojify
+  (setopt
+   emojify-display-style 'unicode))
+
 (provide 'bandali-misc)
 ;;; bandali-misc.el ends here
diff --git a/.profile b/.profile
index bdbe88d..e7b2adb 100644
--- a/.profile
+++ b/.profile
@@ -16,6 +16,7 @@ fi
 export EDITOR=vi
 export VISUAL=emcl
 export GPG_TTY=$(tty)
+export LC_COLLATE=C
 
 PATH="$HOME/.cabal/bin:$HOME/.cargo/bin:$HOME/.elan/bin:$PATH"
 if [ -z "$IS_GUIX_SYSTEM" ]; then
diff --git a/.signature b/.signature
deleted file mode 100644
index 85dd2d3..0000000
--- a/.signature
+++ /dev/null
@@ -1 +0,0 @@
-https://kelar.org/~bandali