From 9884d8efbee7af9b152a48cf5d0a4f7e4f950b09 Mon Sep 17 00:00:00 2001
From: Lars Tveito <larstvei@ifi.uio.no>
Date: Mon, 5 Oct 2015 23:48:18 +0200
Subject: [PATCH] Set up org-agenda

---
 init.org | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/init.org b/init.org
index 768251c..8b870d7 100644
--- a/init.org
+++ b/init.org
@@ -686,12 +686,17 @@
 
 ** Org
 
-   I use =org-agenda= for appointments and such.
+   I use =org-agenda= along with =org-capture= for appointments and such.
 
    #+BEGIN_SRC emacs-lisp
    (setq org-agenda-start-on-weekday nil              ; Show agenda from today.
-         org-agenda-files '("~/Dropbox/cal.org")      ; A list of agenda files.
-         org-agenda-default-appointment-duration 120) ; 2 hours appointments.
+         org-agenda-files '("~/Dropbox/agenda.org")   ; A list of agenda files.
+         org-agenda-default-appointment-duration 120  ; 2 hours appointments.
+         org-capture-templates                        ; Template for adding tasks.
+         '(("t" "Oppgave" entry (file+headline "~/Dropbox/agenda.org" "Oppgaver")
+            "** TODO %?" :prepend t)
+           ("a" "Avtale" entry (file+headline "~/Dropbox/agenda.org" "Avtaler")
+            "** %?\n   SCHEDULED: %T" :prepend t)))
    #+END_SRC
 
    When editing org-files with source-blocks, we want the source blocks to
@@ -1272,8 +1277,10 @@
   #+BEGIN_SRC emacs-lisp
   (define-key custom-bindings-map (kbd "C-j")      'newline-and-indent)
   (define-key custom-bindings-map (kbd "C-c s")    'ispell-word)
-  (define-key custom-bindings-map (kbd "C-c t")    'org-agenda-list)
+  (define-key custom-bindings-map (kbd "C-c c")    'org-capture)
   (define-key custom-bindings-map (kbd "C-x m")    'mu4e)
+  (define-key custom-bindings-map (kbd "C-c t")
+    (lambda () (interactive) (org-agenda nil "n")))
   #+END_SRC
 
   Bind the functions defined [[sec:defuns][above]].