wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

don't take notes by default.

Browse Source
This commit is contained in:
Ivan Malison 2014-12-05 01:00:03 -08:00
parent c311adc0cd
commit a23d562f25
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
dotfiles/emacs.d/init.el
View File

@ -155,6 +155,13 @@
;; functions ;; functions
;; ============================================================================= ;; =============================================================================
(defun org-todo-force-notes ()
(interactive)
(let ((org-todo-log-states
(mapcar (lambda (state)
(list state 'note 'time))
(apply 'append org-todo-sets))))))
(defun org-todo-no-note () (defun org-todo-no-note ()
(interactive) (interactive)
(org-todo 0)) (org-todo 0))
@ -578,9 +585,10 @@ The current directory is assumed to be the project's root otherwise."
("C-c n h" . org-insert-habit) ("C-c n h" . org-insert-habit)
("C-c n m" . org-make-habit) ("C-c n m" . org-make-habit)
("C-c C-t" . org-todo) ("C-c C-t" . org-todo)
("C-c C-S-t" . org-todo-no-note)) ("C-c C-S-t" . org-todo-force-notes))
:config :config
(progn (progn
(call-interactively 'org-todo)))
(setq org-habit-graph-column 50) (setq org-habit-graph-column 50)
(setq org-habit-show-habits-only-for-today nil) (setq org-habit-show-habits-only-for-today nil)
(unless (boundp 'org-gtd-file) (unless (boundp 'org-gtd-file)
@ -651,8 +659,8 @@ The current directory is assumed to be the project's root otherwise."
;; Record changes to todo states ;; Record changes to todo states
(setq org-log-into-drawer t) (setq org-log-into-drawer t)
(setq org-todo-keywords (setq org-todo-keywords
'((sequence "TODO(t@)" "STARTED(s@)" "WAIT(w@/!)" "|" '((sequence "TODO(t!)" "STARTED(s!)" "WAIT(w!)" "|"
"DONE(d@/!)" "CANCELED(c@)"))) "DONE(d!)" "CANCELED(c!)")))
;; Stop starting agenda from deleting frame setup! ;; Stop starting agenda from deleting frame setup!
(setq org-agenda-window-setup 'other-window) (setq org-agenda-window-setup 'other-window)
(define-key mode-specific-map [?a] 'org-agenda) (define-key mode-specific-map [?a] 'org-agenda)
@ -1218,7 +1226,8 @@ The current directory is assumed to be the project's root otherwise."
(defun disable-all-themes () (defun disable-all-themes ()
(interactive) (interactive)
(mapcar (mapcar
(lambda (theme) (unless (s-contains? "smart-mode" (symbol-name theme)) (disable-theme theme))) custom-enabled-themes)) (lambda (theme) (unless (s-contains? "smart-mode" (symbol-name theme))
(disable-theme theme))) custom-enabled-themes))
(defun disable-and-load-theme (theme &optional no-confirm no-enable) (defun disable-and-load-theme (theme &optional no-confirm no-enable)
(interactive (interactive