|
@@ -1818,6 +1818,17 @@ works you probably want to add it to `org-agenda-custom-commands' for good."
|
|
|
|
|
|
;;; Multiple agenda buffers support
|
|
|
|
|
|
+(defcustom org-agenda-sticky nil
|
|
|
+ "Non-nil means agenda q key will bury agenda buffers.
|
|
|
+Agenda commands will then show existing buffer instead of generating new ones.
|
|
|
+When nil, `q' will kill the single agenda buffer."
|
|
|
+ :group 'org-agenda
|
|
|
+ :type 'boolean
|
|
|
+ :set (lambda (var val)
|
|
|
+ (if (boundp var)
|
|
|
+ (org-toggle-sticky-agenda (if val 1 0))
|
|
|
+ (set var val))))
|
|
|
+
|
|
|
(defun org-toggle-sticky-agenda (&optional arg)
|
|
|
"Toggle `org-agenda-sticky'."
|
|
|
(interactive "P")
|
|
@@ -1832,17 +1843,6 @@ works you probably want to add it to `org-agenda-custom-commands' for good."
|
|
|
(message "Sticky agenda was %s"
|
|
|
(if org-agenda-sticky "enabled" "disabled")))))
|
|
|
|
|
|
-(defcustom org-agenda-sticky nil
|
|
|
- "Non-nil means agenda q key will bury agenda buffers.
|
|
|
-Agenda commands will then show existing buffer instead of generating new ones.
|
|
|
-When nil, `q' will kill the single agenda buffer."
|
|
|
- :group 'org-agenda
|
|
|
- :type 'boolean
|
|
|
- :set (lambda (var val)
|
|
|
- (if (boundp var)
|
|
|
- (org-toggle-sticky-agenda (if val 1 0))
|
|
|
- (set var val))))
|
|
|
-
|
|
|
(defvar org-agenda-buffer nil
|
|
|
"Agenda buffer currently being generated.")
|
|
|
|
|
@@ -5136,6 +5136,7 @@ please use `org-class' instead."
|
|
|
dayname skip-weeks)))
|
|
|
(make-obsolete 'org-diary-class 'org-class "")
|
|
|
|
|
|
+(defvar org-agenda-show-log-scoped) ;; dynamically scope in ̀org-timeline' or`org-agenda-list'
|
|
|
(defalias 'org-get-closed 'org-agenda-get-progress)
|
|
|
(defun org-agenda-get-progress ()
|
|
|
"Return the logged TODO entries for agenda display."
|