summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
authorCase Duckworth2021-10-06 11:16:55 -0500
committerCase Duckworth2021-10-06 11:16:55 -0500
commit14e4e5d05025d34165ae39ade6a18cf50b4fdf8d (patch)
treeb97f238930193dac5e9aebd8266c3b445451f7bb /init.el
parentStub a function (diff)
downloademacs-14e4e5d05025d34165ae39ade6a18cf50b4fdf8d.tar.gz
emacs-14e4e5d05025d34165ae39ade6a18cf50b4fdf8d.zip
Fix up org-mode config
Diffstat (limited to 'init.el')
-rw-r--r--init.el47
1 files changed, 30 insertions, 17 deletions
diff --git a/init.el b/init.el index 2361107..5217556 100644 --- a/init.el +++ b/init.el
@@ -1914,7 +1914,7 @@ browser defined in `browse-url-secondary-browser-function'."
1914 org-clock-clocked-in-display 'mode-line 1914 org-clock-clocked-in-display 'mode-line
1915 org-clock-frame-title-format (cons '(t org-mode-line-string) 1915 org-clock-frame-title-format (cons '(t org-mode-line-string)
1916 (cons " --- " frame-title-format)) 1916 (cons " --- " frame-title-format))
1917 ;;org-clock-string-limit 7 ; gives time and not title 1917 org-clock-string-limit 25 ; gives enough information
1918 org-clock-persist t 1918 org-clock-persist t
1919 org-confirm-babel-evaluate nil 1919 org-confirm-babel-evaluate nil
1920 org-cycle-separator-lines 0 1920 org-cycle-separator-lines 0
@@ -1961,12 +1961,24 @@ browser defined in `browse-url-secondary-browser-function'."
1961 (:unbind "C-j" ; org-return-and-maybe-indent 1961 (:unbind "C-j" ; org-return-and-maybe-indent
1962 "M-j") 1962 "M-j")
1963 1963
1964 (:local-set unfill-fill-function #'org-fill-paragraph) 1964 (:local-set unfill-fill-function #'org-fill-paragraph
1965 wc-count-words-function
1966 (lambda (start end) "Count words stupidly with a limit."
1967 (acdw-org/count-words-stupidly start
1968 end
1969 999)))
1965 1970
1966 (with-eval-after-load 'org-export 1971 (with-eval-after-load 'org-export
1967 (:option (append org-export-filter-final-output-functions) 1972 (:option (append org-export-filter-final-output-functions)
1968 #'org-export-remove-zero-width-spaces)) 1973 #'org-export-remove-zero-width-spaces))
1969 1974
1975 (:local-hook before-save-hook
1976 (defun org/before-save@fix-blank-lines ()
1977 (acdw-org/fix-blank-lines t))
1978 before-save-hook
1979 (defun org/before-save@align-tags ()
1980 (org-align-tags :all)))
1981
1970 (:hook ;; #'variable-pitch-mode 1982 (:hook ;; #'variable-pitch-mode
1971 1983
1972 ;; (defun org-mode@before-save@fill-buffer () 1984 ;; (defun org-mode@before-save@fill-buffer ()
@@ -1978,22 +1990,23 @@ browser defined in `browse-url-secondary-browser-function'."
1978 ;; This is super ugly because I need to add a function to 1990 ;; This is super ugly because I need to add a function to
1979 ;; `before-save-hook', but only in org-mode buffers. So I make a hook 1991 ;; `before-save-hook', but only in org-mode buffers. So I make a hook
1980 ;; to make a hook. I'm sure there's a better way to do this. 1992 ;; to make a hook. I'm sure there's a better way to do this.
1981 (defun org-mode@fix-blank-lines-on-save () 1993 ;; (defun org-mode@fix-blank-lines-on-save ()
1982 (add-hook 'before-save-hook 1994 ;; (add-hook 'before-save-hook
1983 (defun acdw-org/fix-blank-lines-in-buffer () 1995 ;; (defun acdw-org/fix-blank-lines-in-buffer ()
1984 (acdw-org/fix-blank-lines t)) 1996 ;; (acdw-org/fix-blank-lines t))
1985 0 :local)) 1997 ;; 0 :local))
1986 1998
1987 (defun org-mode@wc-stupid () 1999 ;; (defun org-mode@wc-stupid ()
1988 (unless (and wc-mode 2000 ;; (unless (and wc-mode
1989 (> 0 (+ (or wc-orig-words 0) 2001 ;; (> 0 (+ (or wc-orig-words 0)
1990 (or wc-words-delta 0))))) 2002 ;; (or wc-words-delta 0)))))
1991 (setq-local 2003 ;; (setq-local
1992 wc-count-words-function 2004 ;; wc-count-words-function
1993 (lambda (start end) "Count words stupidly with a limit." 2005 ;; (lambda (start end) "Count words stupidly with a limit."
1994 (acdw-org/count-words-stupidly start 2006 ;; (acdw-org/count-words-stupidly start
1995 end 2007 ;; end
1996 999))))) 2008 ;; 999))))
2009 )
1997 2010
1998 (with-eval-after-load 'org 2011 (with-eval-after-load 'org
1999 (org-clock-persistence-insinuate)) 2012 (org-clock-persistence-insinuate))