ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

emacs: Add button to show special org file

Browse source
This commit is contained in:
Tom Willemsen 2013-02-15 00:36:22 +01:00
parent de0ac7e06e
commit 1d1f51db69
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.emacs.d/init.el
View file

@ -218,6 +218,7 @@
(global-set-key (kbd "<f5>") 'ext:reload-buffer) (global-set-key (kbd "<f5>") 'ext:reload-buffer)
(global-set-key (kbd "<f6>") 'jabber-switch-to-roster-buffer) (global-set-key (kbd "<f6>") 'jabber-switch-to-roster-buffer)
(global-set-key (kbd "<f7>") 'magit-status) (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-left)
(global-set-key (kbd "C->") 'oni:indent-shift-right) (global-set-key (kbd "C->") 'oni:indent-shift-right)
(global-set-key (kbd "C-M-4") 'split-window-vertically) (global-set-key (kbd "C-M-4") 'split-window-vertically)

5
.emacs.d/site-lisp/oni.el
View file

@ -500,6 +500,11 @@ insert at the end of the region and at the beginning."
(interactive) (interactive)
(message (format "%d:%d" (line-number-at-pos) (current-column)))) (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 () (defun oni:smex-init ()
"Initialization function for smex." "Initialization function for smex."
(global-set-key (kbd "M-x") 'smex) (global-set-key (kbd "M-x") 'smex)