More denote changes, pinentry-toggle fn, newsticker retrieval timer

4 files changed, 31 insertions, 19 deletions

diff --git a/.config/emacs/modules/bd--erc.el b/.config/emacs/modules/bd--erc.el
index 2a826c9..124358c 100644
--- a/.config/emacs/modules/bd--erc.el
+++ b/.config/emacs/modules/bd--erc.el
@@ -11,22 +11,21 @@
 (add-to-list 'global-mode-string bd/erc-status)
 
 (setopt erc-lurker-threshold-time 3600
-	erc-hide-list '("JOIN" "PART" "QUIT")
-	erc-server "operationnull.com"
-	erc-nick "Isaz"
-	erc-prompt-for-password t
-	erc-kill-buffer-on-part t
-	;; erc-autojoin-channels-alist '(("libera.chat"
-	;;				  "#emacs"
-	;;				  "##furry"
-	;;				  "#guile"
-	;;				  "#guix"
-	;;				  "#parabola"
-	;;				  "#systemcrafters"))
-	erc-autojoin-channels-alist nil
-	erc-fill-function 'erc-fill-static
-	erc-fill-column 80
-	erc-fill-static-center 15)
+        erc-hide-list '("JOIN" "PART" "QUIT")
+        erc-server "operationnull.com"
+        erc-nick "Isaz"
+        erc-prompt-for-password t
+        erc-kill-buffer-on-part t
+        ;; erc-autojoin-channels-alist '(("libera.chat"
+        ;;                                "#emacs"
+        ;;                                "##furry"
+        ;;                                "#guile"
+        ;;                                "#guix"
+        ;;                                "#parabola"))
+        erc-autojoin-channels-alist nil
+        erc-fill-function 'erc-fill-static
+        erc-fill-column 80
+        erc-fill-static-center 15)
 (erc-autojoin-mode -1)
 
 
diff --git a/.config/emacs/modules/bd--essentials.el b/.config/emacs/modules/bd--essentials.el
index 5c70483..9b991d0 100644
--- a/.config/emacs/modules/bd--essentials.el
+++ b/.config/emacs/modules/bd--essentials.el
@@ -34,6 +34,13 @@
   :custom
   (pinentry-popup-prompt-window nil))
 
+(defun pinentry-toggle ()
+  "Stops and starts Pinentry service. Workaround
+for a bug I've encountered."
+  (interactive)
+  (pinentry-stop)
+  (pinentry-start))
+
 
 ;;;; defaults
 ;; basic editing
diff --git a/.config/emacs/modules/bd--notes.el b/.config/emacs/modules/bd--notes.el
index 3ec4a8d..fcc9e9a 100644
--- a/.config/emacs/modules/bd--notes.el
+++ b/.config/emacs/modules/bd--notes.el
@@ -6,12 +6,17 @@
 (use-package denote
   :hook
   ((dired-mode . denote-dired-mode-in-directories))
-  :bind (("H-d f" . 'denote-open-or-create))
+  :bind (("H-d f" . 'denote-open-or-create)
+         ("H-d j" . 'denote-journal-extras-new-or-existing-entry))
+  :config
+  (require 'denote-journal-extras)
   :custom
   (denote-known-keywords '("ss" "writing" "reading" "art" "csu" "umass" "cs" "guix" "emacs" "programs" "mem"))
   (denote-directory (expand-file-name "~/dc/"))
   (denote-prompts '(title file-type keywords))
-  (denote-dired-directories (list denote-directory)))
+  (denote-dired-directories (list denote-directory))
+  (denote-journal-extras-directory (expand-file-name "~/dc/log"))
+  (denote-journal-extras-title-format 'day-date-month-year))
 
 
 (provide 'bd--notes)
diff --git a/.config/emacs/modules/bd--rss.el b/.config/emacs/modules/bd--rss.el
index 489f6b6..3c0bf18 100644
--- a/.config/emacs/modules/bd--rss.el
+++ b/.config/emacs/modules/bd--rss.el
@@ -6,9 +6,10 @@
 (keymap-global-set "C-z C-n" 'newsticker-show-news)
 
 (setopt newsticker-url-list-defaults nil
+        newsticker-retrieval-interval (* 60 60 24)
         newsticker-automatically-mark-items-as-old nil
         newsticker-url-list '(("James Enge Mastodon" "https://mastodon.sdf.org/@jamesenge.rss" nil nil nil)
-			      ("operationnull blog" "https://operationnull.com/atom.xml" nil nil nil)
+                              ("operationnull blog" "https://operationnull.com/atom.xml" nil nil nil)
                               ("Parabola GNU/Linux-libre" "https://www.parabola.nu/feeds/news/" nil nil nil)
                               ("suckless.org news" "https://suckless.org/atom.xml" nil nil nil)
                               ("Mental Outlaw" "https://vid.puffyan.us/feed/channel/UC7YOGHUfC1Tb6E4pudI9STA" nil nil nil)