update exports
authorJoerg Jaspert <joerg@debian.org>
Mon, 13 May 2013 06:23:20 +0000 (08:23 +0200)
committerJoerg Jaspert <joerg@debian.org>
Mon, 13 May 2013 06:23:20 +0000 (08:23 +0200)
.emacs.d/config/emacs.org
.emacs.d/elisp/local/ganneff-org.el
.emacs.d/elisp/local/ganneff.el

index 837b57b..b46aee3 100644 (file)
@@ -1793,6 +1793,7 @@ to them.
 
 *** Publishing and exporting
 
+
 Org-mode can export to a variety of publishing formats including (but not limited to)
 
 - ASCII
@@ -1824,6 +1825,8 @@ A new exporter created by Nicolas Goaziou was introduced in org 8.0.
 (setq org-export-exclude-category (list "google" "google"))
 (setq org-icalendar-use-scheduled '(todo-start event-if-todo))
 
+; define how the date strings look
+(setq org-export-date-timestamp-format "%Y-%m-%d")
 ; Inline images in HTML instead of producting links to the image
 (setq org-html-inline-images t)
 ; Do not use sub or superscripts - I currently don't need this functionality in my documents
@@ -1846,16 +1849,20 @@ A new exporter created by Nicolas Goaziou was introduced in org 8.0.
         ("config-notes"
          :base-directory "~/.emacs.d/"
          :base-extension "org"
+         :exclude "elisp"
          :publishing-directory "/develop/www/emacs"
          :recursive t
          :publishing-function org-html-publish-to-html
          :headline-levels 4             ; Just the default for this project.
          :auto-preamble t
+         :auto-sitemap t
+         :makeindex t
          )
         ("config-static"
          :base-directory "~/.emacs.d/"
          :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
          :publishing-directory "/develop/www/emacs"
+         :exclude "elisp\\|elpa\\|elpa.off\\|auto-save-list\\|cache\\|eshell\\|image-dired\\|themes\\|url"
          :recursive t
          :publishing-function org-publish-attachment
          )
index 6a2cff2..8ff4bb1 100644 (file)
@@ -756,6 +756,40 @@ so change the default 'F' binding in the agenda to allow both"
     (org-publish-current-project force)))
 
 
+;;;###autoload
+(defun org-mycal-export-limit ()
+  "Limit the export to items that have a date, time and a range. Also exclude certain categories."
+  (setq org-tst-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ... [0-9]\\{2\\}:[0-9]\\{2\\}[^\r\n>]*?\\)>")
+  (setq org-tstr-regexp (concat org-tst-regexp "--?-?" org-tst-regexp))
+  (save-excursion
+    ; get categories
+    (setq mycategory (org-get-category))
+    ; get start and end of tree
+    (org-back-to-heading t)
+    (setq mystart    (point))
+    (org-end-of-subtree)
+    (setq myend      (point))
+    (goto-char mystart)
+    ; search for timerange
+    (setq myresult (re-search-forward org-tstr-regexp myend t))
+    ; search for categories to exclude
+    (setq mycatp (member mycategory org-export-exclude-category))
+    ; return t if ok, nil when not ok
+    (if (and myresult (not mycatp)) t nil)))
+
+;;;###autoload
+(defun mycal-export-limit ()
+  "Limit the export to items that don't match an unwanted category "
+  (setq mycategory (org-get-category))
+  (not (member mycategory org-export-exclude-category)))
+
+;;; activate filter and call export function
+;;;###autoload
+(defun org-mycal-export () 
+  (interactive)
+  (let ((org-icalendar-verify-function 'mycal-export-limit))
+    (org-icalendar-combine-agenda-files)))
+
 
 
 
index ea1e307..eafbf9f 100644 (file)
 ;;; checks if the category of the entry is in an exclude list and
 ;;; returns either t or nil to skip or include the entry.
 
-;;;###autoload
-(defun org-mycal-export-limit ()
-  "Limit the export to items that have a date, time and a range. Also exclude certain categories."
-  (setq org-tst-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ... [0-9]\\{2\\}:[0-9]\\{2\\}[^\r\n>]*?\\)>")
-  (setq org-tstr-regexp (concat org-tst-regexp "--?-?" org-tst-regexp))
-  (save-excursion
-    ; get categories
-    (setq mycategory (org-get-category))
-    ; get start and end of tree
-    (org-back-to-heading t)
-    (setq mystart    (point))
-    (org-end-of-subtree)
-    (setq myend      (point))
-    (goto-char mystart)
-    ; search for timerange
-    (setq myresult (re-search-forward org-tstr-regexp myend t))
-    ; search for categories to exclude
-    (setq mycatp (member mycategory org-export-exclude-category))
-    ; return t if ok, nil when not ok
-    (if (and myresult (not mycatp)) t nil)))
-
-;;;###autoload
-(defun mycal-export-limit ()
-  "Limit the export to items that don't match an unwanted category "
-  (setq mycategory (org-get-category))
-  (not (member mycategory org-export-exclude-category)))
-
-;;; activate filter and call export function
-;;;###autoload
-(defun org-mycal-export () 
-  (interactive)
-  (let ((org-icalendar-verify-function 'mycal-export-limit))
-    (org-export-icalendar-combine-agenda-files)))
-
 ;;;###autoload
 (defun revert-all-buffers ()
   "Refreshes all open buffers from their respective files."