emacs: set up org-habit

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 535e7c5..66980c5 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -295,7 +295,19 @@ For disabling the behaviour for certain buffers and/or modes."
   :config (pixel-scroll-mode 1))
 
 ;; ask for GPG passphrase in minibuffer
-(setq epg-pinentry-mode 'loopback)
+(use-feature epg-config
+  :defer 0.4
+  :custom
+  ((epg-gpg-program (executable-find "gpg"))
+   (epg-pinentry-mode 'loopback)))
+(use-feature epg
+  :after epg-config)
+(use-package pinentry
+  :demand
+  :after (epg server)
+  :config
+  (setq pinentry--socket-dir server-socket-dir)
+  (pinentry-start))
 
 ;; useful libraries
 (require 'cl-lib)
@@ -557,6 +569,7 @@ For disabling the behaviour for certain buffers and/or modes."
         org-catch-invisible-edits 'show-and-error
         org-log-done 'time)
   (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
+  (add-to-list 'org-modules 'org-habit)
   :bind
   (("C-c a o a" . org-agenda)
    :map org-mode-map
@@ -568,8 +581,11 @@ For disabling the behaviour for certain buffers and/or modes."
          (org-mode . flyspell-mode))
   :custom
   (org-agenda-files '("~/usr/org/todos/personal.org"
+                      "~/usr/org/todos/habits.org"
                       "~/usr/org/todos/masters.org"))
   (org-agenda-start-on-weekday 0)
+  (org-agenda-time-leading-zero t)
+  (org-habit-graph-column 44)
   (org-latex-packages-alist '(("" "listings") ("" "color")))
   :custom-face
   '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
@@ -1213,6 +1229,10 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package go-mode)
 
+(use-package po-mode
+  :hook
+  (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit))))
+
 \f
 ;;; Theme
 
@@ -1863,6 +1883,7 @@ For disabling the behaviour for certain buffers and/or modes."
 (use-feature gnus-art
   :config
   (setq
+   gnus-buttonized-mime-types '("multipart/\\(signed\\|encrypted\\)")
    gnus-visible-headers
    (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:")
    gnus-sorted-header-list
@@ -1905,15 +1926,15 @@ For disabling the behaviour for certain buffers and/or modes."
   (defvar mab/signature "Amin Bandali
 Free Software Activist | GNU Webmaster & Volunteer
 GPG: BE62 7373 8E61 6D6D 1B3A  08E8 A21A 0202 4881 6103
-https://shemshak.org/~amin/")
+https://shemshak.org/~amin")
   (defvar mab/uw-signature "Amin Bandali, MMath Student
 Cheriton School of Computer Science
 University of Waterloo
-https://shemshak.org/~amin/")
+https://shemshak.org/~amin")
   (defvar mab/csc-signature "Amin Bandali
 Termcom, Computer Science Club
 University of Waterloo
-https://shemshak.org/~amin/")
+https://shemshak.org/~amin")
   (setq gnus-posting-styles
         '((".*"
            (address "amin@shemshak.org")
@@ -1966,7 +1987,9 @@ https://shemshak.org/~amin/")
 
 (use-feature mm-decode
   :config
-  (setq mm-discouraged-alternatives '("text/html" "text/richtext")))
+  (setq mm-discouraged-alternatives '("text/html" "text/richtext")
+        mm-decrypt-option 'known
+        mm-verify-option 'known))
 
 (use-feature sendmail
   :config