acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Compare commits

base: acdw:bb756ce658f2e1a4bf904ce19392fed3015d2463
Branches Tags
acdw:main
acdw:bankruptcy8
acdw:work
acdw:5c
acdw:5b
acdw:no-org
acdw:again
...
compare: acdw:d26bfd92e129887fd3cf088db33a0ad0bbd8d300
Branches Tags
acdw:main
acdw:bankruptcy8
acdw:work
acdw:5c
acdw:5b
acdw:no-org
acdw:again

3 Commits
bb756ce658 ... d26bfd92e1

Author SHA1 Message Date
Case Duckworth d26bfd92e1 Merge branch 'main' of tildegit.org:acdw/emacs 2022-04-13 10:16:19 -05:00
Case Duckworth 3c5c175b84 Configure org-mode ... some more 2022-04-13 10:15:59 -05:00
Case Duckworth e3e399ac52 Don't indent notuch content 2022-04-13 10:15:44 -05:00
1 changed files with 11 additions and 5 deletions
Show Stats Expand all files Collapse all files

16
init.el
View File

@ -494,6 +494,9 @@
notmuch-address-use-company (featurep 'company)
notmuch-search-oldest-first nil
notmuch-archive-tags '("-inbox" "-unread"))
;; Reading mail
(:option notmuch-show-indent-content nil)
(add-hook 'notmuch-show-mode-hook #'visual-fill-column-mode)
;; Composing mail
(:option message-kill-buffer-on-exit t
message-auto-save-directory "~/var/mail/drafts")
@ -573,8 +576,7 @@
org-indent-indentation-per-level 0
org-indent-mode-turns-on-hiding-stars nil
org-list-demote-modify-bullet '(("-" . "+")
("+" . "*")
("*" . "-"))
("+" . "-"))
org-log-done 'time
org-log-into-drawer t
org-num-skip-commented t
@ -642,11 +644,14 @@
;; complains about "Invalid face reference: t" in org-mode buffers, because
;; `compose-region' returns t.
("^[ \t]*\\([-]\\) "
(0 (progn (compose-region (match-beginning 1) (match-end 1) "–") 'fixed-pitch)))
(0 ;; (progn (compose-region (match-beginning 1) (match-end 1) "–") 'fixed-pitch)
'fixed-pitch t))
("^[ \t]*\\([+]\\) "
(0 (progn (compose-region (match-beginning 1) (match-end 1) "¬") 'fixed-pitch)))
(0 ;; (progn (compose-region (match-beginning 1) (match-end 1) "¬") 'fixed-pitch)
'fixed-pitch t))
("^[ \t]+\\([*]\\) "
(0 (progn (compose-region (match-beginning 1) (match-end 1) "→") 'fixed-pitch)))
(0 ;; (progn (compose-region (match-beginning 1) (match-end 1) "→") 'fixed-pitch)
'fixed-pitch t))
;; Fancy numbered lists (well, monospaced)
("^[ \t]*\\(\\(?:[0-9]+\\|[A-Za-z]\\)[.)]\\) " 0 'fixed-pitch t)))
;; Make nobreak-space fixed-pitch as well, for better alignment (is this the
@ -746,6 +751,7 @@
(:also-load ox-md)
(:option org-export-coding-system 'utf-8-unix
org-export-headline-levels 8
org-export-with-drawers nil
org-export-with-section-numbers nil
org-export-with-smart-quotes t
org-export-with-sub-superscripts t