浏览代码

Make new org-timeline non-intrusive

Josh Bicking 7 年之前
父节点
当前提交
c91a24a066
共有 1 个文件被更改,包括 5 次插入4 次删除
  1. 5 4
      emacs.d/packages/packages.el

+ 5 - 4
emacs.d/packages/packages.el

@@ -406,16 +406,17 @@
 
     (if (not (derived-mode-p 'org-mode))
 	(message "Not in Org buffer.")
-      (org-agenda nil "t" 'buffer)))
-  :config
-  (setq org-agenda-custom-commands
-	'(("t" "Events" agenda "display deadlines and exclude scheduled"
+      (let ((org-agenda-custom-commands
+	'(("z" "" agenda ""
 	   ((org-agenda-span 'year)
 	    (org-agenda-time-grid nil)
 	    (org-agenda-show-all-dates nil)
 	    (org-agenda-entry-types '(:deadline)) ;; this entry excludes :scheduled
 	    (org-deadline-warning-days 7))))))
 
+	(org-agenda nil "z" 'buffer))))
+  (global-set-key "\C-ct" 'org-timeline))
+
 (use-package org-preview-html
   :after org
   :ensure t)