Merge branch 'master' of github.com:IvanMalison/dotfiles
This commit is contained in:
commit
a5ea7bb616
@ -1158,6 +1158,12 @@ it on by default. Its probably safe to turn it on when in a programming mode.
|
|||||||
:demand t
|
:demand t
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
|
(defun imalison:maybe-use-frames-for-org (&rest args)
|
||||||
|
(let ((fn (if frame-mode 'org-switch-to-buffer-other-window
|
||||||
|
'switch-to-buffer-other-frame)))
|
||||||
|
(apply fn args)))
|
||||||
|
(advice-add 'org-switch-to-buffer-other-window
|
||||||
|
:override 'imalison:maybe-use-frames-for-org)
|
||||||
(add-hook 'frame-mode-hook (lambda () (display-time-mode -1)))
|
(add-hook 'frame-mode-hook (lambda () (display-time-mode -1)))
|
||||||
(frame-mode +1)
|
(frame-mode +1)
|
||||||
(frame-keys-mode +1)))
|
(frame-keys-mode +1)))
|
||||||
@ -2917,7 +2923,7 @@ Intero seems to be causing hangs, so it has been disabled
|
|||||||
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
|
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
|
||||||
|
|
||||||
(defun imalison:make-org-linked-todo-template ()
|
(defun imalison:make-org-linked-todo-template ()
|
||||||
(imalison:make-org-todo-template "%? %A"))
|
(imalison:make-org-todo-template "[#C] %? %A"))
|
||||||
|
|
||||||
(defun org-cmp-creation-times (a b)
|
(defun org-cmp-creation-times (a b)
|
||||||
(let ((a-created (get-date-created-from-agenda-entry a))
|
(let ((a-created (get-date-created-from-agenda-entry a))
|
||||||
@ -3406,12 +3412,14 @@ alphanumeric characters only."
|
|||||||
(use-package org-super-agenda
|
(use-package org-super-agenda
|
||||||
:defer t
|
:defer t
|
||||||
:config
|
:config
|
||||||
(setq org-super-agenda-groups
|
(progn
|
||||||
'((:order-multi (-1 (:name "High priority"
|
(org-super-agenda-mode +1)
|
||||||
(:priority<= "B"))))
|
(setq org-super-agenda-groups
|
||||||
(:order-multi (1 (:name "Done today"
|
'((:order-multi (1 (:name "High priority"
|
||||||
:and (:regexp "State \"DONE\""
|
:priority> "C")))
|
||||||
:log t)))))))
|
(:order-multi (1 (:name "Done today"
|
||||||
|
:and (:regexp "State \"DONE\""
|
||||||
|
:log t))))))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
**** helm-org-rifle
|
**** helm-org-rifle
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
Loading…
Reference in New Issue
Block a user