From 1d1f51db6986d319712818c77d26bcb52df26eaa Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Fri, 15 Feb 2013 00:36:22 +0100
Subject: [PATCH] emacs: Add button to show special org file

---
 .emacs.d/init.el          | 1 +
 .emacs.d/site-lisp/oni.el | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index e30c13e..232f9cf 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -218,6 +218,7 @@
 (global-set-key (kbd "<f5>") 'ext:reload-buffer)
 (global-set-key (kbd "<f6>") 'jabber-switch-to-roster-buffer)
 (global-set-key (kbd "<f7>") 'magit-status)
+(global-set-key (kbd "<hiragana>") 'oni:show-org-index)
 (global-set-key (kbd "C-<") 'oni:indent-shift-left)
 (global-set-key (kbd "C->") 'oni:indent-shift-right)
 (global-set-key (kbd "C-M-4") 'split-window-vertically)
diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el
index 2729474..1afe1d6 100644
--- a/.emacs.d/site-lisp/oni.el
+++ b/.emacs.d/site-lisp/oni.el
@@ -500,6 +500,11 @@ insert at the end of the region and at the beginning."
   (interactive)
   (message (format "%d:%d" (line-number-at-pos) (current-column))))
 
+(defun oni:show-org-index ()
+  "Show the index of my org files."
+  (interactive)
+  (find-file "~/documents/org/index.org"))
+
 (defun oni:smex-init ()
   "Initialization function for smex."
   (global-set-key (kbd "M-x") 'smex)