From 3f1ea614b89fd763d0f8cba2f23c3eb12ba49534 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 24 Jan 2022 01:02:46 +0000
Subject: attic

---
 attic/misc.org | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 email.org      |  2 +-
 init.org       | 52 +++++++---------------------------------------------
 3 files changed, 57 insertions(+), 46 deletions(-)

diff --git a/attic/misc.org b/attic/misc.org
index a5bc802..b9fdbfb 100644
--- a/attic/misc.org
+++ b/attic/misc.org
@@ -965,3 +965,52 @@
       (add-hook 'notmuch-show-hook #'jao-notmuch--show-hidden-html))
 
   #+end_src
+* snippets
+  #+begin_src emacs-lisp
+    (defun jao-minibuffer--text-with-padding (text)
+      "Return TEXT with padding on the left."
+      (let* ((len (+ (string-pixel-width text)
+                     (string-pixel-width jao-minibuffer-right-margin)
+                     10))
+             (padding (propertize
+                       "-" 'display
+                       `(space :align-to (- (+ right right-margin) (,len))))))
+        (concat padding text jao-minibuffer-right-margin)))
+  #+end_src
+
+  #+begin_src emacs-lisp
+    ;; this is an ugly hack: when jao-minibuffer is active,
+    ;; somehow docview scrolling is not triggering a refresh,
+    ;; specially for scroll down movements, so we advice the
+    ;; scrolling functions to force a redisplay by going to
+    ;; another window.
+    (defun jao--refresh (&rest _rest)
+      (let ((jao-minibuffer-mode nil))
+        (other-window 1) (other-window -1)))
+
+    (dolist (f '(image-forward-hscroll
+                 image-backward-hscroll
+                 image-scroll-down
+                 image-scroll-up
+                 image-eol
+                 image-bol))
+          (advice-add f :after #'jao--refresh))
+
+    ;; (dolist (f '(doc-view-scroll-up-or-next-page
+    ;;              doc-view-scroll-down-or-previous-page
+    ;;              doc-view-previous-line-or-previous-page
+    ;;              doc-view-next-line-or-next-page
+    ;;              image-forward-hscroll
+    ;;              image-backward-hscroll
+    ;;              image-scroll-down
+    ;;              image-scroll-up
+    ;;              image-eol
+    ;;              image-bol))
+    ;;   (advice-add f :after #'jao--refresh))
+
+    ;; (dolist (f '(pdf-view-scroll-up-or-next-page
+    ;;              pdf-view-scroll-down-or-previous-page
+    ;;              pdf-view-previous-line-or-previous-page
+    ;;              pdf-view-next-line-or-next-page))
+    ;;   (advice-add f :after #'jao--refresh))
+  #+end_src
diff --git a/email.org b/email.org
index bbbdd60..25e1a2a 100644
--- a/email.org
+++ b/email.org
@@ -83,7 +83,7 @@
       (defun jao-message-insert-bcc ()
         (let ((f (or (message-fetch-field "From") "")))
           (when (or (string-blank-p f) (string-match-p jao-message--bcc-rx f))
-            (insert "Bcc: trove@jao.io\n"))))
+            (insert "Bcc: proton@jao.io\n"))))
 
       (add-hook 'message-header-setup-hook #'jao-message-insert-bcc)
 
diff --git a/init.org b/init.org
index 4cbc57b..0b4dcd6 100644
--- a/init.org
+++ b/init.org
@@ -1640,15 +1640,6 @@
 * PDFs
 *** doc-view and pdf-tools
     #+begin_src emacs-lisp
-      ;; this is an ugly hack: when jao-minibuffer is active,
-      ;; somehow docview scrolling is not triggering a refresh,
-      ;; specially for scroll down movements, so we advice the
-      ;; scrolling functions to force a redisplay by going to
-      ;; another window.
-      (defun jao--refresh (&rest _rest)
-          (let ((jao-minibuffer-mode nil))
-            (other-window 1) (other-window -1)))
-
       (use-package doc-view
         :init
         (setq doc-view-cache-directory "~/.emacs.d/cache/docview"
@@ -1656,42 +1647,12 @@
               doc-view-continuous t
               doc-view-conversion-refresh-interval 1)
 
-        :config
-
-        (dolist (f '(doc-view-scroll-up-or-next-page
-                     doc-view-scroll-down-or-previous-page
-                     doc-view-previous-line-or-previous-page
-                     doc-view-next-line-or-next-page
-                     image-forward-hscroll
-                     image-backward-hscroll
-                     image-scroll-down
-                     image-scroll-up
-                     image-eol
-                     image-bol))
-          (advice-add f :after #'jao--refresh))
-
         :bind (:map doc-view-mode-map
                     ("j" . doc-view-next-line-or-next-page)
                     ("J" . doc-view-scroll-up-or-next-page)
                     ("k" . doc-view-previous-line-or-previous-page)
                     ("K" . doc-view-scroll-down-or-previous-page)))
 
-      (use-package jao-doc-view
-        :config
-        (dolist (f '(image-forward-hscroll
-                     image-backward-hscroll
-                     image-scroll-down
-                     image-scroll-up
-                     image-eol
-                     image-bol))
-          (advice-add f :after #'jao--refresh))
-
-        :bind (:map doc-view-mode-map
-                    ("b" . jao-doc-view-back)
-                    ("B" . jao-doc-view-forward)
-                    ("S" . jao-doc-view-save-session)
-                    ("u" . jao-doc-view-visit-url)))
-
       (use-package pdf-tools
         :ensure t
         :demand t
@@ -1704,12 +1665,6 @@
         :config
         (pdf-tools-install)
 
-        (dolist (f '(pdf-view-scroll-up-or-next-page
-                     pdf-view-scroll-down-or-previous-page
-                     pdf-view-previous-line-or-previous-page
-                     pdf-view-next-line-or-next-page))
-          (advice-add f :after #'jao--refresh))
-
         :diminish ((pdf-view-midnight-minor-mode . ""))
 
         :bind (:map pdf-view-mode-map
@@ -1723,6 +1678,13 @@
         :ensure t
         :demand t
         :after doc-view)
+
+      (use-package jao-doc-view
+        :bind (:map doc-view-mode-map
+                    ("b" . jao-doc-view-back)
+                    ("B" . jao-doc-view-forward)
+                    ("S" . jao-doc-view-save-session)
+                    ("u" . jao-doc-view-visit-url)))
     #+end_src
 *** open pdfs
     #+begin_src emacs-lisp
-- 
cgit v1.2.3