(setq custom-file "~/.emacs-custom.el") (load custom-file) ; (add-to-list 'exec-path "~/bin/") ; (add-to-list 'exec-path "~/lib/elisp/") ; (add-to-list 'load-path "~/lib/elisp/") ; (add-to-list 'load-path "~/lib/elisp/ess/lisp/") ; (add-to-list 'load-path "~/git/org-mode-release/") (add-to-list 'load-path "~/git/org-mode/lisp/") (add-to-list 'load-path "~/git/org-mode/contrib/lisp/") ; (load "~/lib/elisp/htmlize.el") ; (load "~/lib/elisp/gnuplot.el") ; (global-font-lock-mode 1) (show-paren-mode 1) (menu-bar-mode 0) (set-face-foreground 'font-lock-keyword-face "DeepSkyBlue1") (set-face-foreground 'font-lock-string-face "pale goldenrod") (require 'org) (require 'org-html) (require 'htmlize) (eval-after-load "org-html" '(setq org-export-html-scripts (concat org-export-html-scripts "\n" " "))) (setq make-backup-files nil) (setq org-export-default-language "en" org-export-html-extension "html" org-export-with-timestamps nil org-export-with-section-numbers nil org-export-with-tags 'not-in-toc org-export-skip-text-before-1st-heading nil org-export-with-sub-superscripts '{} org-export-with-LaTeX-fragments t org-export-with-archived-trees nil org-export-highlight-first-table-line t org-export-latex-listings-w-names nil org-export-html-style-include-default nil org-export-htmlize-output-type 'css org-startup-folded nil org-publish-list-skipped-files t org-publish-use-timestamps-flag t org-export-babel-evaluate nil org-confirm-babel-evaluate nil) (define-key global-map "\C-ca" 'org-agenda) (setq org-agenda-custom-commands '( ;; List of TODO from Worg" ("1" "Worg TODO" todo "TODO" ((org-agenda-files '("~/git/worg/")))) ;; List of INPROGRESS from Worg" ("2" "Worg INPROGRESS" todo "INPROGRESS" ((org-agenda-files '("~/git/worg/")))))) ;; re-export everything regardless of whether or not it's been modified ;(setq org-publish-use-timestamps-flag nil) (defun set-org-publish-project-alist () (interactive) (setq org-publish-project-alist `(("worg" :components ("worg-org-faq" "worg-pages" "worg-code" "worg-color-themes" "worg-images-dir" "worg-images" "worg-sources" "worg-extra" "worg-bibtex")) ("orgweb" :components ("orgwebpages" "orgwebpages_fr" "orgwebpages_es" "orgwebpages_ja" "orgweb-extra")) ("worg-org-faq" :base-directory ,worg-base-directory :base-extension "dummy" :include ("org-faq.org") :html-extension "html" :publishing-directory ,worg-publish-directory :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents nil :style " " :recursive t :html-preamble nil :html-postamble "

Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the GNU Free Documentation License version 1.3 or later. The code examples and css stylesheets are licensed under the GNU General Public License v3 or later.

" ) ("worg-pages" :base-directory ,worg-base-directory :base-extension "org" :exclude "FIXME" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory ,worg-publish-directory :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style " " :recursive t :html-preamble nil :html-postamble "

Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the GNU Free Documentation License version 1.3 or later. The code examples and css stylesheets are licensed under the GNU General Public License v3 or later.

" ) ("worg-code" :base-directory ,worg-base-code-directory :base-extension "html\\|css\\|png\\|js\\|bz2\\|el\\|sty\\|awk\\|pl" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/code/" :recursive t :publishing-function org-publish-attachment) ("worg-color-themes" :base-directory ,worg-base-color-themes-directory :base-extension "el" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/color-themes/" :recursive t :publishing-function org-publish-attachment) ("worg-images-dir" :base-directory ,worg-base-images-directory :base-extension "png\\|jpg\\|gif\\|pdf\\|cvs\\|css" :publishing-directory "/var/www/orgmode.org/worg/images/" :recursive t :publishing-function org-publish-attachment) ("worg-images" :base-directory ,worg-base-directory :base-extension "png\\|jpg\\|gif\\|pdf\\|csv\\|css\\|tex" :publishing-directory ,worg-publish-directory :recursive t :publishing-function org-publish-attachment) ("worg-sources" :base-directory ,worg-base-directory :base-extension "org" :publishing-directory "/var/www/orgmode.org/worg/sources/" :recursive t :publishing-function org-publish-attachment) ("worg-extra" :base-directory ,worg-base-directory :base-extension "css" :publishing-directory ,worg-publish-directory :publishing-function org-publish-attachment) ("worg-bibtex" :base-directory "/home/emacs/git/worg/org-contrib/bibtex/" :base-extension "bib" :publishing-directory "/var/www/orgmode.org/worg/org-contrib/bibtex/" :recursive nil :publishing-function org-publish-attachment) ("orgwebpages" :base-directory "~/git/orgweb/" :base-extension "org" :html-extension "html" :publishing-directory "/var/www/orgmode.org/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents t :style " " :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/preamble.html") :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html") :exclude "DS_Store" :recursive t) ("orgwebpages_fr" :base-directory "~/git/orgweb/fr/" :base-extension "org" :html-extension "html" :publishing-directory "/var/www/orgmode.org/fr/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents t :style " " :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/fr/preamble.html") :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html") :exclude "DS_Store" :recursive t) ("orgwebpages_es" :base-directory "~/git/orgweb/es/" :base-extension "org" :html-extension "html" :publishing-directory "/var/www/orgmode.org/es/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents t :style " " :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/es/preamble.html") :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html") :exclude "DS_Store" :recursive t) ("orgwebpages_ja" :base-directory "~/git/orgweb/ja/" :base-extension "org" :html-extension "html" :publishing-directory "/var/www/orgmode.org/ja/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents t :style " " :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/ja/preamble.html") :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html") :exclude "DS_Store" :recursive t) ("orgweb-extra" :base-directory "~/git/orgweb/" :base-extension "css\\|html\\|png" :publishing-directory "/var/www/orgmode.org/" :publishing-function org-publish-attachment :recursive t) ))) (setq worg-base-directory "~/git/worg/") (setq worg-base-code-directory "~/git/worg/code/") (setq worg-base-color-themes-directory "~/git/worg/color-themes/") (setq worg-base-images-directory "~/git/worg/images/") (setq worg-publish-directory "/var/www/orgmode.org/worg/") (set-org-publish-project-alist) (defun worg-fix-symbol-table () (when (string-match "org-symbols\\.html" buffer-file-name) (goto-char (point-min)) (while (re-search-forward "&\\([^<;]+;\\)" nil t) (replace-match (concat "&" (match-string 1)) t t)))) (defun publish-worg-old nil "Publish Worg." (interactive) (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table) (let ((org-format-latex-signal-error nil) (worg-base-directory "~/git/worg/") (worg-base-code-directory "~/git/worg/code/") (worg-base-color-themes-directory "~/git/worg/color-themes/") (worg-base-images-directory "~/git/worg/images/") (worg-publish-directory "/var/www/orgmode.org/worg/")) (set-org-publish-project-alist) (org-publish-project "worg"))) (defun publish-worg nil "Publish Worg." (interactive) (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table) (let ((org-format-latex-signal-error nil) (worg-base-directory "~/git/worg/") (worg-base-code-directory "~/git/worg/code/") (worg-base-color-themes-directory "~/git/worg/color-themes/") (worg-base-images-directory "~/git/worg/images/") (worg-publish-directory "/var/www/orgmode.org/worg/")) (set-org-publish-project-alist) (message "Emacs %s" emacs-version) (org-version) (org-publish-project "worg"))) (defun publish-orgweb nil "Publish Org web pages." (interactive) (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table) (let ((org-format-latex-signal-error nil)) (org-publish-project "orgweb"))) (defun parse-org-quotes () "Create /var/www/orgmode.org/org-quotes.js from org-quotes.org." (interactive) (load "/home/emacs/git/worg/code/elisp/worg-fortune.el") (worg-write-fortune-file "/home/emacs/git/worg/org-quotes.org" "/var/www/orgmode.org/org-quotes.js" 120 "r_text[%d] = \"%s\";" "\n" 'worg-fortune-insert-javascript-pre 'worg-fortune-insert-javascript-post)) ;; ("worg-htmlize" ;; :base-directory "~/git/Worg/" ;; :base-extension "org" ;; :html-extension "org.html" ;; :publishing-directory "/var/www/orgmode.org/worg/" ;; :recursive t ;; :htmlized-source t ;; :publishing-function org-publish-org-to-org))) ;; (defun publish-worg-htmlize nil ;; "Publish Worg in htmlized pages." ;; (interactive) ;; (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table) ;; (let ((org-format-latex-signal-error nil) ;; (org-startup-folded nil)) ;; (org-publish-project "worg-htmlize")))