Source

riak-0.9.2 / orgbatch.el

;; setup erlang mode
(let ((tp (shell-command-to-string "erl -noinput -eval \"io:format(\\\"~s\\\", [code:lib_dir(tools)])\" -run init stop")))
  (setq load-path (cons (concat tp "/emacs")
                        load-path))
  (require 'erlang-start))

;; Org-mode
;; specify ORG_PATH if you have org-mode installed somewhere
;; other than your site-lisp path
(let ((orgpath (getenv "ORG_PATH")))
  (if (stringp orgpath)
      (setq load-path
            (cons (concat orgpath "/lisp")
                  (cons (concat orgpath "/contrib/lisp")
                        load-path)))))
(require 'org-install)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))

;; allow css to set code highlighting style
(setq org-export-htmlize-output-type 'css)

;; command-line --eval functions
(defun riak-export-doc-file (filename format)
  (find-file filename)
  (cond ((eq format 'ascii) (org-export-as-ascii 3)
         (kill-this-buffer))
        ((eq format 'html) (org-export-as-html 3)
         (kill-this-buffer))
        (message "Unknown export format"))
  (kill-this-buffer))

(defun riak-export-doc-dir (directory format)
  (mapcar
   (lambda (filename) (riak-export-doc-file filename format))
   (file-expand-wildcards (concat directory "/*.org"))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.