attic

1 files changed, 56 insertions, 0 deletions

diff --git a/attic/misc.org b/attic/misc.org
index c10b1c6..9dd6b24 100644
--- a/attic/misc.org
+++ b/attic/misc.org
@@ -1,5 +1,33 @@
 #+title: Miscellaneous config bits that i don't use anymore
 
+* spam
+  #+begin_src emacs-lisp :tangle no
+    (setq jao-gnus-ham-groups ".*\\(bigml\\|jao\\|feeds\\)\\..*"
+          gnus-spam-process-destinations `((,jao-gnus-ham-groups "nnml:spam"))
+          gnus-spam-newsgroup-contents
+          `((".*spam.*" gnus-group-spam-classification-spam)
+            (,jao-gnus-ham-groups gnus-group-spam-classification-ham))
+          gnus-ham-process-destinations
+          '((".*\\(jao\\|feeds\\)\\..*" "jao.inbox")
+            (".*bigml\\..*" "bigml.inbox"))
+          gnus-spam-process-newsgroups
+          `((,jao-gnus-ham-groups ((spam spam-use-bogofilter)
+                                   (ham spam-use-bogofilter)
+                                   (spam spam-use-spamassassin)
+                                   (ham spam-use-spamassassin)
+                                   (spam spam-use-blacklist)))
+            ("nnml:spam" ((ham spam-use-blacklist)
+                          (spam spam-use-bogofilter)
+                          (ham spam-use-bogofilter))))
+          spam-use-blacklist t
+          spam-use-BBDB nil
+          spam-use-bogofilter t
+          spam-use-spamassassin nil
+          spam-spamassassin-program "spamc"
+          spam-split-group "spam")
+
+    ;; (spam-initialize)
+  #+end_src
 * portability macros
   #+begin_src emacs-lisp
   (defmacro jao-syscase (clauses)
@@ -849,6 +877,34 @@
       (setq vertico-buffer-display-action
             '(display-buffer-at-bottom (window-height . ,(+ 3 vertico-count))))
       (vertico-buffer-mode -1))
+
+    (use-package vertico
+      :ensure t
+      :init
+      (setq vertico-count 10
+            vertico-cycle t
+            vertico-resize t
+            org-refile-use-outline-path t
+            resize-mini-windows t)
+
+      :config
+
+      (defun jao-vertico--display-candidates (lines)
+        (move-overlay vertico--candidates-ov (point-min) (point-min))
+        (overlay-put vertico--candidates-ov 'after-string (apply #'concat lines))
+        (vertico--resize-window (length lines)))
+
+      (advice-add 'vertico--display-candidates
+                  :override #'jao-vertico--display-candidates))
+
+    (use-package vertico-directory
+      :after vertico
+      :bind (:map vertico-map (("RET" . vertico-directory-enter)
+                               ("M-<backspace>" . vertico-directory-delete-word)
+                               ("<backspace>" . vertico-directory-delete-char))))
+
+    ;; (vertico-mode)
+
   #+end_src
 * orderless
   #+begin_src emacs-lisp