lisp/org-rc.el

   1 ;;; Simple rc to configure org.
   2
   3 (when (yard-require 'org)
   4   ;; Goodbye latex preview droppings!
   5   (setq org-latex-preview-ltxpng-directory "/tmp/org1000/")
   6
   7   ;; Execute these languages from an org-mode buffer.
   8   (org-babel-do-load-languages
   9    'org-babel-load-languages
  10    `((scheme . t)
  11      ;; "lisp" in this case strictly means Common Lisp.
  12      (lisp . t)
  13      ;; C in this case means both C++ and C. Confusingly, the only
  14      ;; language specifiers recoginized by babble are C, C++ and
  15      ;; cpp. The first of which doesn't do anything on my system(s),
  16      ;; and the second of which does not have syntax
  17      ;; highlighting. Only source blocks with the language specified
  18      ;; as cpp behave as expected.
  19      (C . t)
  20      (perl . t)
  21      (haskell . t)
  22      (dot . t)
  23      ;; ob-sparql does not (yet) come with org.
  24      ,(when (locate-library "ob-sparql") '(sparql . t))))
  25
  26   (add-to-list 'org-src-lang-modes '("dot" . graphviz-dot))
  27   (add-to-list 'org-src-lang-modes '("mathematica" . math))
  28
  29   ;; Convenience over safety.
  30   (setq org-confirm-babel-evaluate nil)
  31
  32   ;; Make windmove work in org-mode, at uncertain cost.
  33   (add-hook 'org-shiftup-final-hook 'windmove-up)
  34   (add-hook 'org-shiftleft-final-hook 'windmove-left)
  35   (add-hook 'org-shiftdown-final-hook 'windmove-down)
  36   (add-hook 'org-shiftright-final-hook 'windmove-right)
  37
  38   (setq org-completion-use-ido t))