summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--custom/jao-custom-org.el15
-rw-r--r--init.el1
-rw-r--r--lib/eos/jao-afio.el2
3 files changed, 10 insertions, 8 deletions
diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el
index e4a242e..02e7a03 100644
--- a/custom/jao-custom-org.el
+++ b/custom/jao-custom-org.el
@@ -51,9 +51,11 @@
org-gnus-prefer-web-links nil))
;;; Agenda
-(setq ;; org-agenda-custom-commands
- ;; '(("w" todo "WAITING" nil)
- ;; ("W" agenda "" ((org-agenda-ndays 21))))
+(setq org-agenda-custom-commands
+ '(("j" agenda "" ((org-agenda-ndays 14)
+ (org-agenda-overriding-header " ")))
+ ("w" todo "WAITING" nil)
+ ("W" agenda "" ((org-agenda-ndays 21))))
org-agenda-files (mapcar (lambda (f)
(expand-file-name f jao-org-dir))
'("inbox.org" "bigml.org"))
@@ -77,8 +79,7 @@
(defun jao-org-agenda ()
(interactive)
- (let ((org-agenda-overriding-header " "))
- (org-agenda-list)))
+ (org-agenda nil "j"))
(defun jao-org-agenda-hook ()
(setq-local cursor-in-non-selected-windows nil))
@@ -86,9 +87,9 @@
(add-hook 'org-agenda-mode-hook #'jao-org-agenda-hook)
(add-to-list 'display-buffer-alist
- '((major-mode . org-agenda-mode)
+ '("\\*Org Agenda\\*"
(display-buffer-reuse-window)
- (body-function . (lambda (w) (set-window-margins w 2)))))
+ (body-function . (lambda (w) (set-window-margins w 2 1)))))
;;; Capture templates
diff --git a/init.el b/init.el
index 83c36a2..1813e8c 100644
--- a/init.el
+++ b/init.el
@@ -600,6 +600,7 @@
(appt-activate 1)
(setq calendar-latitude 55.9533
calendar-longitude -3.1883
+ calendar-left-margin 4
calendar-location-name "Edinburgh, Scotland"
calendar-mark-diary-entries-flag t
calendar-week-start-day 1 ;; 0 sunday
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
index 73cd2e5..b588989 100644
--- a/lib/eos/jao-afio.el
+++ b/lib/eos/jao-afio.el
@@ -138,7 +138,7 @@
(other-window 1)
(jao-org-agenda)
(set-window-dedicated-p nil t)
- (split-window-below -9)
+ (split-window-below -8)
(other-window 1)
(switch-to-buffer "*Calendar*")
(set-window-dedicated-p nil t)