Add org-mode settings

1 files changed, 46 insertions, 0 deletions

diff --git a/.emacs b/.emacs
index e099c0d..88230cb 100644
--- a/.emacs
+++ b/.emacs
@@ -36,6 +36,52 @@
 
 ;;; Org
 (setq org-completion-use-ido t)
+(setq org-directory "~/org")
+(setq org-agenda-files (list org-directory))
+(global-set-key (kbd "C-c a") 'org-agenda)
+(global-set-key (kbd "C-c l") 'org-store-link)
+(global-set-key (kbd "C-c c") 'org-capture)
+(setq org-default-notes-file (concat org-directory "/notes.org"))
+(add-hook 'org-mode-hook
+          (lambda ()
+            (set-face-attribute 'org-document-title nil :height 1.4)
+            (set-face-attribute 'org-level-1 nil :height 1.3)
+            (set-face-attribute 'org-level-2 nil :height 1.2)
+            (set-face-attribute 'org-level-3 nil :height 1.1)))
+(setq org-capture-templates '(("t" "Tasks" entry (file+headline "" "Tasks")
+                               "* TODO %?\n  %u\n  %a"
+                               :empty-lines 1)
+                              ("n" "Note" entry (file+headline "" "Notes")
+                               "* %?\n  %u\n  %a"
+                               :empty-lines 1)
+                              ("a" "記事" entry (file+headline "" "")
+                               "* %?\n  %u\n  %a"
+                               :empty-lines 1)
+                              ("j" "Journal entry" plain (function org-journal-find-location)
+                               "** %(format-time-string org-journal-time-format)%?"
+                               :empty-lines 1)))
+(setq org-todo-keywords
+      '((sequence "TODO(t)" "WAIT(w)" "|" "DONE(d)" "SOMEDAY(s)" "CANCELED(c)")))
+(org-babel-do-load-languages
+ 'org-babel-load-languages
+ '((shell . t)
+   (emacs-lisp . t)
+   (scheme . t)))
+
+;;; org-bullets
+(require 'org-bullets)
+(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
+
+;;; org-journal
+(setq org-journal-dir "~/org/journal/")
+(setq org-journal-date-format "%Y年%m月%d日 (%a)")
+(defun org-journal-find-location ()
+  ;; Open today's journal, but specify a non-nil prefix argument in order to
+  ;; inhibit inserting the heading; org-capture will insert the heading.
+  (org-journal-new-entry t)
+  (unless (eq org-journal-file-type 'daily)
+    (org-narrow-to-subtree))
+  (goto-char (point-max)))
 
 ;;; SKK
 (setq default-input-method "japanese-skk")