summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el47
1 files changed, 32 insertions, 15 deletions
diff --git a/init.el b/init.el index 42cac67..5e52215 100644 --- a/init.el +++ b/init.el
@@ -465,7 +465,7 @@
465 465
466(setup notmuch 466(setup notmuch
467 (:load-from "~/usr/share/emacs/site-lisp/") 467 (:load-from "~/usr/share/emacs/site-lisp/")
468 ;;(:load-after org-contacts) 468 (:load-after org-contacts)
469 (:also-load +notmuch +message) 469 (:also-load +notmuch +message)
470 (+define-dir notmuch/ (sync/ "emacs/notmuch") 470 (+define-dir notmuch/ (sync/ "emacs/notmuch")
471 "Notmuch configuration and data.") 471 "Notmuch configuration and data.")
@@ -568,11 +568,11 @@
568 org-startup-truncated nil 568 org-startup-truncated nil
569 org-startup-with-inline-images t 569 org-startup-with-inline-images t
570 org-tags-column (- (- fill-column (length org-ellipsis))) 570 org-tags-column (- (- fill-column (length org-ellipsis)))
571 org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)" 571 org-todo-keywords '((sequence "TODO(t)" "WAIT(w@/!)" "ONGOING(o@)"
572 "|" "DONE(d!)") 572 "|" "DONE(d!)")
573 (sequence "ONGOING(o@)")
574 (sequence "|" "CANCELED(k@)") 573 (sequence "|" "CANCELED(k@)")
575 (sequence "MEETING(m)")) 574 (sequence "MEETING(m)")
575 (sequence "ASSIGNED(a@/!)" "REVIEW(r)" "|" "DONE(d!)"))
576 org-emphasis-alist '(("*" org-bold) 576 org-emphasis-alist '(("*" org-bold)
577 ("/" org-italic) 577 ("/" org-italic)
578 ("_" org-underline) 578 ("_" org-underline)
@@ -698,8 +698,8 @@
698 :unnarrowed t)) 698 :unnarrowed t))
699 (+org-capture-sort)) 699 (+org-capture-sort))
700 700
701(setup org-contacts 701(setup org-contacts (:quit)
702 (:load-after org) 702 (:require)
703 (:also-straight org-vcard) ; for importing Vcard files 703 (:also-straight org-vcard) ; for importing Vcard files
704 (:option org-contacts-matcher "contact") ; Contacts are tagged "contact" 704 (:option org-contacts-matcher "contact") ; Contacts are tagged "contact"
705 ) 705 )
@@ -854,6 +854,12 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
854 (:when-loaded 854 (:when-loaded
855 (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark))) 855 (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark)))
856 856
857(setup (:straight bbdb)
858 (:require bbdb-autoloads
859 bbdb)
860 (:also-straight bbdb-vcard)
861 (bbdb-initialize 'gnus 'message))
862
857(setup (:straight (bongo :type git 863(setup (:straight (bongo :type git
858 :flavor melpa 864 :flavor melpa
859 :files ("*.el" "*.texi" "images" "*.rb" "bongo-pkg.el" "*.info") 865 :files ("*.el" "*.texi" "images" "*.rb" "bongo-pkg.el" "*.info")
@@ -1344,7 +1350,9 @@ See also `crux-reopen-as-root-mode'."
1344 (:+leader "f" #'elfeed "C-f" #'elfeed) 1350 (:+leader "f" #'elfeed "C-f" #'elfeed)
1345 (advice-add #'elfeed-search-fetch :after #'beginning-of-buffer) 1351 (advice-add #'elfeed-search-fetch :after #'beginning-of-buffer)
1346 (:with-mode elfeed-search-mode 1352 (:with-mode elfeed-search-mode
1347 (:bind "&" #'+elfeed-search-browse-generic) 1353 (:bind "&" #'+elfeed-search-browse-generic
1354 "w" #'elfeed-search-yank
1355 "y" nil)
1348 (:hook #'hl-line-mode) 1356 (:hook #'hl-line-mode)
1349 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/ 1357 ;; https://old.reddit.com/r/emacs/comments/rlli0u/whats_your_favorite_defadvice/hphfh4e/
1350 (advice-add #'elfeed-search-update--force :after #'elfeed-db-save) 1358 (advice-add #'elfeed-search-update--force :after #'elfeed-db-save)
@@ -1353,7 +1361,9 @@ See also `crux-reopen-as-root-mode'."
1353 (:bind "SPC" #'+elfeed-scroll-up-command 1361 (:bind "SPC" #'+elfeed-scroll-up-command
1354 "S-SPC" #'+elfeed-scroll-down-command 1362 "S-SPC" #'+elfeed-scroll-down-command
1355 "&" #'+elfeed-show-browse-generic 1363 "&" #'+elfeed-show-browse-generic
1356 "RET" #'shr-browse-url) 1364 "RET" #'shr-browse-url
1365 "w" #'elfeed-show-yank
1366 "y" nil)
1357 (:hook #'reading-mode) 1367 (:hook #'reading-mode)
1358 (:option +elfeed--update-repeat (* 60 30) ; 1/2 hour 1368 (:option +elfeed--update-repeat (* 60 30) ; 1/2 hour
1359 +elfeed--update-first-time 60)) 1369 +elfeed--update-first-time 60))
@@ -1744,9 +1754,10 @@ See also `crux-reopen-as-root-mode'."
1744 (:option +mwim-passthrough-modes '(comint-mode 1754 (:option +mwim-passthrough-modes '(comint-mode
1745 eshell-mode 1755 eshell-mode
1746 vterm-mode 1756 vterm-mode
1747 crossword-mode)) 1757 crossword-mode
1748 (:global "C-a" #'+mwim-beginning-maybe 1758 geiser-repl-mode))
1749 "C-e" #'+mwim-end-maybe)) 1759 (:global "C-a" #'mwim-beginning
1760 "C-e" #'mwim-end))
1750 1761
1751(setup (:straight notmuch-bookmarks) 1762(setup (:straight notmuch-bookmarks)
1752 (:load-after notmuch) 1763 (:load-after notmuch)
@@ -1780,6 +1791,7 @@ See also `crux-reopen-as-root-mode'."
1780 (:hook-into org-mode)) 1791 (:hook-into org-mode))
1781 1792
1782(setup (:straight org-download) 1793(setup (:straight org-download)
1794 (:require)
1783 (:option org-download-method 'attach 1795 (:option org-download-method 'attach
1784 org-download-backend (cond ((executable-find "curl") 'curl) 1796 org-download-backend (cond ((executable-find "curl") 'curl)
1785 ((executable-find "wget") 'wget) 1797 ((executable-find "wget") 'wget)
@@ -1787,6 +1799,9 @@ See also `crux-reopen-as-root-mode'."
1787 (add-hook 'dired-mode-hook 'org-download-enable)) 1799 (add-hook 'dired-mode-hook 'org-download-enable))
1788 1800
1789(setup (:straight org-mime) 1801(setup (:straight org-mime)
1802 (:option org-mime-export-ascii 'utf-8))
1803
1804(setup (:straight org-mime)
1790 (add-hook 'message-mode-hook 1805 (add-hook 'message-mode-hook
1791 (defun org-mime-setup@message-mode () 1806 (defun org-mime-setup@message-mode ()
1792 (local-set-key (kbd "C-c M-o") 'org-mime-htmlize))) 1807 (local-set-key (kbd "C-c M-o") 'org-mime-htmlize)))
@@ -1801,9 +1816,9 @@ See also `crux-reopen-as-root-mode'."
1801(setup (:straight (org-taskwise 1816(setup (:straight (org-taskwise
1802 :host github 1817 :host github
1803 :repo "duckwork/org-taskwise.el")) 1818 :repo "duckwork/org-taskwise.el"))
1804 (:load-after org) 1819 (with-eval-after-load 'org
1805 (:bind-into org-mode 1820 (require 'org-taskwise)
1806 "C-x n t" #'org-taskwise-narrow-to-task)) 1821 (define-key org-mode-map (kbd "C-x n t") #'org-taskwise-narrow-to-task)))
1807 1822
1808(setup (:straight org-visibility) 1823(setup (:straight org-visibility)
1809 (:require org-visibility) 1824 (:require org-visibility)
@@ -1834,7 +1849,8 @@ See also `crux-reopen-as-root-mode'."
1834 lisp-interaction-mode-hook 1849 lisp-interaction-mode-hook
1835 lisp-mode-hook 1850 lisp-mode-hook
1836 scheme-mode-hook 1851 scheme-mode-hook
1837 geiser-mode-hook)) 1852 geiser-mode-hook
1853 geiser-repl-mode-hook))
1838 (add-hook hook #'enable-paredit-mode)) 1854 (add-hook hook #'enable-paredit-mode))
1839 (:also-load eldoc) 1855 (:also-load eldoc)
1840 (eldoc-add-command #'paredit-backward-delete #'paredit-close-round)) 1856 (eldoc-add-command #'paredit-backward-delete #'paredit-close-round))
@@ -1916,6 +1932,7 @@ See also `crux-reopen-as-root-mode'."
1916 +modeline-text-scale 1932 +modeline-text-scale
1917 ,(+modeline-concat 1933 ,(+modeline-concat
1918 '(+modeline-god-mode 1934 '(+modeline-god-mode
1935 +modeline-kmacro-indicator
1919 +modeline-reading-mode 1936 +modeline-reading-mode
1920 +modeline-narrowed) 1937 +modeline-narrowed)
1921 ",") 1938 ",")