2016 Emacs

(require 'org)
(require 'org-compat)
(require 'org-list)

;; キーバインドの設定
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)

;; 拡張子がorgのファイルを開いた時，自動的にorg-modeにする
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))

;; org-modeでの強調表示を可能にする
(add-hook 'org-mode-hook 'turn-on-font-lock)

;; 見出しの余分な*を消す
(setq org-hide-leading-stars t)

;; org-default-notes-fileのディレクトリ
;;(setq org-directory "~/org/")

;; org-default-notes-fileのファイル名
;;(setq org-default-notes-file "notes.org")

;; TODO状態
(setq org-todo-keywords
      '((sequence "Todo(t)" "Quest(?)" "Sched(@)" "Search(/)" "Doing(i)" "Waiting(w)" "|" "Done(d)" "Someday(s)" "Cancel(c)")))

;; DONEの時刻を記録
(setq org-log-done 'time)

;; アジェンダ表示の対象ファイル
(setq org-agenda-files (list org-directory))

;; アジェンダ表示で下線を用いる
(add-hook 'org-agenda-mode-hok '(lambda () (hl-line-mode 1)))
(setq hl-line-face 'uderline)

;; tags
(setq org-tag-alist
      '(;; where
	("@UNIV" . ?u) ("@HOME" . ?h) 
	;; do
	("BUY" . ?b) ("MAIL". ?m) 
	;; what to use
	("PROJECT" . ?p) ("LECT" . ?l) ("SEMI" . ?z)))

(defun org-insert-upheading (arg)
  (interactive "p")
  (org-insert-heading arg)
  (cond ((org-on-heading-p) (org-do-promote))
	((org-at-item-p) (org-indent-item -1))))

(defun org-insert-heading-dwim (arg)
  (interactive "p")
  (case arg
    (4 (org-insert-subheading nil))
    (16 (org-insert-upheading nil))
    (t (org-insert-heading nil))))

(define-key org-mode-map
  (kbd "<C-return>") 'org-insert-heading-dwim)

;; latex export setting

(setq org-export-latex-coding-system 'utf-8-unix)
(setq org-export-latex-date-format "%Y-%m-%d")
(setq org-export-latex-classes nil)
(add-to-list 'org-export-latex-classes
	     '("jarticle"
	       "\\documentclass[a4j]{jarticle}"
	       ("\\section{%s}" . "\\section*{%s}")
	       ("\\subsection{%s}" . "\\subsection*{%s}")
	       ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
	       ("\\paragraph{%s}" . "\\paragraph*{%s}")
	       ("\\subparagraph{%s}" . "\\subparagraph*{%s}")
	       ))

(add-to-list 'org-export-latex-classes
	     '("article"
	       "\\documentclass[a4j]{jarticle}"
	       ("\\section{%s}" . "\\section*{%s}")
	       ("\\subsection{%s}" . "\\subsection*{%s}")
	       ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
	       ("\\paragraph{%s}" . "\\paragraph*{%s}")
	       ("\\subparagraph{%s}" . "\\subparagraph*{%s}")
	       ))

(setq org-export-latex-hyperref-format "\\ref{%s}")

(setq org-beamer-sectioning
      '(
	("\\section{%s}" . "\\section*{%s}")
	("\\subsection{%s}" . "\\subsection*{%s}")
	("\\subsubsection{%s}" . "\\subsubsection*{%s}")
	("\\paragraph{%s}" . "\\paragraph*{%s}")
	("\\subparagraph{%s}" . "\\subparagraph*{%s}")))

(add-to-list 'org-export-latex-classes
	     `("beamer"
	       "\\documentclass[compress,dvipdfm]{beamer}"
	       ,@org-beamer-sectioning))


(global-set-key "\C-c L" 'org-insert-link-global)
(global-set-key "\C-c o" 'org-open-at-point-global)


(require 'org-install)
(setq org-startup-truncated nil)
(setq org-return-follows-link t)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(setq org-directory "~/howm/org/")
(setq org-default-notes-file (concat org-directory "CAPTURE.org"))
(setq org-capture-templates
      '(("t" "Todo" entry
	 (file+headline nil "Inbox")
	 "** TODO %?\n   %i\n   %a\n   %t")
	("b" "Bug" entry
	 (file+headline nil "Inbox")
	 "** TODO %?   :bug:\n   %i\n   %a\n   %t")
	("i" "Idea" entry
	 (file+headline nil "New Ideas")
	 "** %?\n   %i\n   %a\n   %t")))

(global-set-key (kbd "C-c c") 'org-capture)

(setq org-capture-templates
      '(("a" "ふつうのエントリー後に追加" entry
	 (file+headline nil "entry")
	 "* %?\n%U\n%a\n")
	("b" "ふつうのエントリー前に追加" entry
	 (file+headline nil "entry")
	 "* %?\n%U\n%a\n" :prepend t)
	("c" "即座に書き込み" entry
	 (file+headline nil "entry")
	 "* immediate-finish\n" :immediate-finish t)
	("d" "ナローイングしない" entry
	 (file+headline nil "entry")
	 "* 全体を見る\n\n" :unnarrowed t)
	("e" "クロック中のエントリに追加" entry (clock)
	 "* clocking" :unnarrowed t)
	("f" "リスト" item
	 (file+headline nil "list")
	 "- リスト")
	;; うまく動かない
	("g" "チェックリスト" checkitem
	 (file+headline nil "list")
	 "チェックリスト")
	("h" "表の行" table-line
	 (file+headline nil "table")
	 "|表|")
	("i" "そのまま" plain
	 (file+headline nil "plain")
	 "あいうえお")
	("j" "ノードをフルパス指定して挿入" entry
	 (file+olp nil "test" "entry")
	 "* %?\n%U\n%a\n")
	;; これもうまく動かない
	("k" "ノードを正規表現指定して挿入" entry
	 (file+regexp nil "list")
	 "* %?\n%U\n%a\n")
	;; 年月日エントリは追記される
	("l" "年/月/日のエントリを作成する1" entry
	 (file+datetree nil))
	("m" "年/月/日のエントリを作成する2" item
	 (file+datetree nil))
	("o" "年/月/日のエントリを作成する prepend" entry
	 (file+datetree nil) "* a" :prepend t)))


;; (require 'ox-freemind)

(defun org-font-lock-ensure ()
  (font-lock-fontify-buffer))

;;(setq org-doing-file "~/howm/org/doing.org")

;; babel, makefile 中のtabをexpandしないように
(setq org-src-preserve-indentation t)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((R . t)
   (emacs-lisp . t)
   (ruby . t)
   (dot . t)
   (ditaa . t)
   (sh . t)))

; Enable literal links 
(defun org-turn-on-literal-links ()
  "enable literal links."
  (interactive)
  (org-remove-from-invisibility-spec '(org-link))
  (org-restart-font-lock))

(defun org-turn-off-literal-links ()
  "disable literal links."
  (interactive)
  (setq buffer-invisibility-spec
	(cons '(org-link) buffer-invisibility-spec))
  (org-restart-font-lock))

;; (add-hook 'org-mode-hook 'org-turn-on-literal-links)