attic

3 files changed, 56 insertions, 57 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
diff --git a/completion.org b/completion.org
index f437d9d..c44d3e8 100644
--- a/completion.org
+++ b/completion.org
@@ -65,35 +65,6 @@
               (command (styles orderless+initialism)))
             orderless-matching-styles
             '(orderless-literal orderless-regexp orderless-prefixes)))
-  #+end_src
-* vertico
-  #+begin_src emacs-lisp
-    (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
 * mct
diff --git a/gnus.org b/gnus.org
index c8a0944..8a4bbc9 100644
--- a/gnus.org
+++ b/gnus.org
@@ -308,34 +308,6 @@
     (eval-after-load "message"
       '(setq message-draft-headers (remove 'Date message-draft-headers)))
   #+END_SRC
-* Spam
-  #+begin_src emacs-lisp
-    (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
 * Add-ons
 *** icalendar/org
     #+begin_src emacs-lisp