adding some org and mu4e changes

This commit is contained in:
Chris Cochrun 2022-12-28 10:01:44 -06:00
parent 1f2721158c
commit b8961adb01
3 changed files with 81 additions and 9 deletions

View file

@ -593,7 +593,8 @@ Let's start by creating a self contained function of what I'd like started on ev
(org-level-2 1.2 extra-bold) (org-level-2 1.2 extra-bold)
(org-level-3 1.1 bold) (org-level-3 1.1 bold)
(org-level-4 1.0 semi-bold) (org-level-4 1.0 semi-bold)
(org-level-5 1.0 normal))) (org-level-5 1.0 normal)
(org-column 1.0 normal)))
(set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face))) (set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face)))
;; changing colors ;; changing colors
@ -604,6 +605,7 @@ Let's start by creating a self contained function of what I'd like started on ev
(set-face-attribute (nth 0 face) nil :foreground (nth 1 face))) (set-face-attribute (nth 0 face) nil :foreground (nth 1 face)))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line) (set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-column nil :background "#242631" :inherit 'fixed-pitch)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch)) (set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch))
(defun chris/org-convert-csv-table (beg end) (defun chris/org-convert-csv-table (beg end)
@ -687,6 +689,11 @@ Part of this config includes some special capture templates for my work as a you
(file ".templates/posts.org") (file ".templates/posts.org")
:prepend t :prepend t
:jump-to-captured t) :jump-to-captured t)
("s" "TFC Supporter" entry
(file "tfc_supporters.org")
(file ".templates/supporter.org")
:prepend t
:jump-to-captured t)
("r" "Templates for projects") ("r" "Templates for projects")
("rt" "Project-local todo" entry ("rt" "Project-local todo" entry
(file+headline chris/project-todo "Inbox") (file+headline chris/project-todo "Inbox")
@ -732,7 +739,23 @@ Part of this config includes some special capture templates for my work as a you
"/home/chris/dev/church-presenter/TODO.org" "/home/chris/dev/church-presenter/TODO.org"
"/home/chris/org/lessons/") "/home/chris/org/lessons/")
org-id-method 'ts org-id-method 'ts
org-agenda-tags-column -75) org-agenda-tags-column -75
org-columns-summary-types '(("+" . org-columns--summary-sum)
("$" . org-columns--summary-currencies)
("X" . org-columns--summary-checkbox)
("X/" . org-columns--summary-checkbox-count)
("X%" . org-columns--summary-checkbox-percent)
("max" . org-columns--summary-max)
("mean" . org-columns--summary-mean)
("min" . org-columns--summary-min)
(":" . org-columns--summary-sum-times)
(":max" . org-columns--summary-max-time)
(":mean" . org-columns--summary-mean-time)
(":min" . org-columns--summary-min-time)
("@max" . org-columns--summary-max-age)
("@mean" . org-columns--summary-mean-age)
("@min" . org-columns--summary-min-age)
("est+" . org-columns--summary-estimate)))
(defun chris/org-columns-view () (defun chris/org-columns-view ()
"Turn on org-columns overlay and turn off olivetti-mode" "Turn on org-columns overlay and turn off olivetti-mode"
@ -1007,7 +1030,8 @@ Org-Superstar makes the stars at the beginning of the line in =org-mode= a lot p
(use-package org-modern (use-package org-modern
:config :config
(setq org-modern-timestamp nil) (setq org-modern-timestamp nil
org-modern-table nil)
(custom-set-faces (custom-set-faces
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))) '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36")))
@ -2401,6 +2425,10 @@ We need a function to copy the full filename to kill-ring
"l" 'dired-single-buffer)) "l" 'dired-single-buffer))
#+end_src #+end_src
#+begin_src emacs-lisp
(use-package fd-dired)
#+end_src
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package dired-rainbow (use-package dired-rainbow
:after dired :after dired
@ -2511,7 +2539,16 @@ Ledger mode
mu4e-attachment-dir "/home/chris/nextcloud/home/Documents/attachments" mu4e-attachment-dir "/home/chris/nextcloud/home/Documents/attachments"
mu4e-completing-read-function #'completing-read mu4e-completing-read-function #'completing-read
mu4e-mu-binary "/etc/profiles/per-user/chris/bin/mu" mu4e-mu-binary "/etc/profiles/per-user/chris/bin/mu"
mu4e-compose-signature-auto-include nil) mu4e-compose-signature-auto-include nil
mu4e-headers-fields
'((:human-date . 12)
(:flags . 10)
(:from . 22)
(:subject))
mu4e-headers-flagged-mark '("F" . " ")
mu4e-headers-replied-mark '("R" . " ")
mu4e-headers-personal-mark '("p" . " ")
mu4e-headers-list-mark '("s" . " "))
:config :config
(setq mail-user-agent 'mu4e-user-agent) (setq mail-user-agent 'mu4e-user-agent)

43
init.el
View file

@ -328,7 +328,8 @@
(org-level-2 1.2 extra-bold) (org-level-2 1.2 extra-bold)
(org-level-3 1.1 bold) (org-level-3 1.1 bold)
(org-level-4 1.0 semi-bold) (org-level-4 1.0 semi-bold)
(org-level-5 1.0 normal))) (org-level-5 1.0 normal)
(org-column 1.0 normal)))
(set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face))) (set-face-attribute (nth 0 face) nil :weight (nth 2 face) :height (nth 1 face)))
;; changing colors ;; changing colors
@ -339,6 +340,7 @@
(set-face-attribute (nth 0 face) nil :foreground (nth 1 face))) (set-face-attribute (nth 0 face) nil :foreground (nth 1 face)))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line) (set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-column nil :background "#242631" :inherit 'fixed-pitch)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch)) (set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch))
(defun chris/org-convert-csv-table (beg end) (defun chris/org-convert-csv-table (beg end)
@ -417,6 +419,11 @@
(file ".templates/posts.org") (file ".templates/posts.org")
:prepend t :prepend t
:jump-to-captured t) :jump-to-captured t)
("s" "TFC Supporter" entry
(file "tfc_supporters.org")
(file ".templates/supporter.org")
:prepend t
:jump-to-captured t)
("r" "Templates for projects") ("r" "Templates for projects")
("rt" "Project-local todo" entry ("rt" "Project-local todo" entry
(file+headline chris/project-todo "Inbox") (file+headline chris/project-todo "Inbox")
@ -462,7 +469,23 @@
"/home/chris/dev/church-presenter/TODO.org" "/home/chris/dev/church-presenter/TODO.org"
"/home/chris/org/lessons/") "/home/chris/org/lessons/")
org-id-method 'ts org-id-method 'ts
org-agenda-tags-column -75) org-agenda-tags-column -75
org-columns-summary-types '(("+" . org-columns--summary-sum)
("$" . org-columns--summary-currencies)
("X" . org-columns--summary-checkbox)
("X/" . org-columns--summary-checkbox-count)
("X%" . org-columns--summary-checkbox-percent)
("max" . org-columns--summary-max)
("mean" . org-columns--summary-mean)
("min" . org-columns--summary-min)
(":" . org-columns--summary-sum-times)
(":max" . org-columns--summary-max-time)
(":mean" . org-columns--summary-mean-time)
(":min" . org-columns--summary-min-time)
("@max" . org-columns--summary-max-age)
("@mean" . org-columns--summary-mean-age)
("@min" . org-columns--summary-min-age)
("est+" . org-columns--summary-estimate)))
(defun chris/org-columns-view () (defun chris/org-columns-view ()
"Turn on org-columns overlay and turn off olivetti-mode" "Turn on org-columns overlay and turn off olivetti-mode"
@ -685,7 +708,8 @@
(use-package org-modern (use-package org-modern
:config :config
(setq org-modern-timestamp nil) (setq org-modern-timestamp nil
org-modern-table nil)
(custom-set-faces (custom-set-faces
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))) '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36")))
@ -1617,6 +1641,8 @@ targets."
"h" 'dired-single-up-directory "h" 'dired-single-up-directory
"l" 'dired-single-buffer)) "l" 'dired-single-buffer))
(use-package fd-dired)
(use-package dired-rainbow (use-package dired-rainbow
:after dired :after dired
:config :config
@ -1662,7 +1688,16 @@ targets."
mu4e-attachment-dir "/home/chris/nextcloud/home/Documents/attachments" mu4e-attachment-dir "/home/chris/nextcloud/home/Documents/attachments"
mu4e-completing-read-function #'completing-read mu4e-completing-read-function #'completing-read
mu4e-mu-binary "/etc/profiles/per-user/chris/bin/mu" mu4e-mu-binary "/etc/profiles/per-user/chris/bin/mu"
mu4e-compose-signature-auto-include nil) mu4e-compose-signature-auto-include nil
mu4e-headers-fields
'((:human-date . 12)
(:flags . 10)
(:from . 22)
(:subject))
mu4e-headers-flagged-mark '("F" . "")
mu4e-headers-replied-mark '("R" . "")
mu4e-headers-personal-mark '("p" . "")
mu4e-headers-list-mark '("s" . ""))
:config :config
(setq mail-user-agent 'mu4e-user-agent) (setq mail-user-agent 'mu4e-user-agent)

View file

@ -1,4 +1,4 @@
;;; Automatically generated by recentf on Fri Dec 16 21:05:02 2022. ;;; Automatically generated by recentf on Tue Dec 27 13:50:31 2022.
(setq recentf-list 'nil) (setq recentf-list 'nil)