You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.2 KiB
38 lines
1.2 KiB
;; org.el
|
|
;; Configure org-mode key bindings and custom functions
|
|
;;
|
|
;; This module depends on org mode.
|
|
;;
|
|
;;
|
|
;; This file is part of LIBKOOKIE, a collection of nix expressions.
|
|
;; LIBKOOKIE is licensed under the GPL-3.0 (or later) -- see LICENSE
|
|
|
|
(provide 'kookie-org)
|
|
(require 'org)
|
|
(require 'ox-reveal)
|
|
|
|
(load-library "ox-reveal")
|
|
|
|
;;; Set .org as my file ending of choice
|
|
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
|
|
|
|
(defun org-open-at-point-in-current-window ()
|
|
"A utility function to easily navigate org-mode file trees"
|
|
(interactive)
|
|
(let ((org-link-frame-setup (quote
|
|
((vm . vm-visit-folder)
|
|
(vm-imap . vm-visit-imap-folder)
|
|
(gnus . gnus)
|
|
(file . find-file)
|
|
(wl . wl)))
|
|
))
|
|
(org-open-at-point)))
|
|
|
|
(defun org-insert-block ()
|
|
"Insert a matching set of blocks statements"
|
|
(interactive))
|
|
|
|
;;; Org mode key bindings replicated here to make it easier for me
|
|
(define-key org-mode-map "\C-c\C-o" 'org-open-at-point-in-current-window)
|
|
(define-key org-mode-map "\C-S-<up>" nil)
|
|
(define-key org-mode-map "\C-S-<down>" nil)
|
|
|