31 lines
1012 B
EmacsLisp
31 lines
1012 B
EmacsLisp
(require 'org-bullets)
|
|
(add-to-list 'auto-mode-alist '("(todo|TODO)" . org-mode))
|
|
(global-set-key "\C-cl" 'org-store-link)
|
|
(global-set-key "\C-ca" 'org-agenda)
|
|
(global-set-key "\C-cb" 'org-iswitchb)
|
|
|
|
;(setq org-bullets-bullet-list '("✙" "♱" "♰" "☥" "✞" "✟" "✝" "†" "✠" "✚" "✜" "✛" "✢" "✣" "✤" "✥"))
|
|
|
|
(defun jwall:setup-org-bullets ()
|
|
(message "Setting up bullets mode")
|
|
(org-bullets-mode))
|
|
|
|
(defun jwall:org-mode-hooks ()
|
|
(visual-line-mode)
|
|
(whitespace-turn-off)
|
|
(visual-line-mode)
|
|
(jwall:setup-org-bullets))
|
|
|
|
(add-hook 'org-mode-hook 'jwall:org-mode-hooks)
|
|
|
|
(when (version<= "9.2" (org-version))
|
|
(require 'org-tempo))
|
|
|
|
(setq org-mobile-files nil)
|
|
(walk-down-dirs org-directory
|
|
(lambda (file-or-dir)
|
|
(if (string-match-p "\\.org$" file-or-dir)
|
|
(progn
|
|
(message (concat "Adding " file-or-dir " to org-mobile-files"))
|
|
(add-to-list 'org-mobile-files file-or-dir)))))
|