changeset 97027:adc2dffbdfc3

2008-07-25 Carsten Dominik <dominik@science.uva.nl> * org-publish.el (org-publish-file): Use the true name of the file. * org-jsinfo.el (org-infojs-handle-options): Use :style-extra instead of :style. * org-exp.el (org-export-plist-vars) (org-export-add-options-to-plist): Handle creator setting flag. (org-export-as-html): Handle attributes also for ftp and mailto links. * org-agenda.el (org-agenda-diary-entry) (org-agenda-execute-calendar-command): Cater for the second argument of `calendar-cursor-to-date'.
author Carsten Dominik <dominik@science.uva.nl>
date Fri, 25 Jul 2008 23:02:16 +0000
parents aebbea50eef4
children 70c4b1cbc9e3
files lisp/org/ChangeLog lisp/org/org-agenda.el lisp/org/org-archive.el lisp/org/org-bbdb.el lisp/org/org-bibtex.el lisp/org/org-clock.el lisp/org/org-colview.el lisp/org/org-compat.el lisp/org/org-exp.el lisp/org/org-export-latex.el lisp/org/org-faces.el lisp/org/org-gnus.el lisp/org/org-id.el lisp/org/org-info.el lisp/org/org-irc.el lisp/org/org-jsinfo.el lisp/org/org-mac-message.el lisp/org/org-macs.el lisp/org/org-mew.el lisp/org/org-mhe.el lisp/org/org-mouse.el lisp/org/org-publish.el lisp/org/org-remember.el lisp/org/org-rmail.el lisp/org/org-table.el lisp/org/org-vm.el lisp/org/org-wl.el lisp/org/org.el
diffstat 28 files changed, 57 insertions(+), 38 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/org/ChangeLog	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/ChangeLog	Fri Jul 25 23:02:16 2008 +0000
@@ -1,3 +1,20 @@
+2008-07-25  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-publish.el (org-publish-file): Use the true name of the
+	file.
+
+	* org-jsinfo.el (org-infojs-handle-options): Use :style-extra
+	instead of :style.
+
+	* org-exp.el (org-export-plist-vars)
+	(org-export-add-options-to-plist): Handle creator setting flag.
+	(org-export-as-html): Handle attributes also for ftp and mailto
+	links.
+
+	* org-agenda.el (org-agenda-diary-entry)
+	(org-agenda-execute-calendar-command): Cater for the second
+	argument of `calendar-cursor-to-date'.
+
 2008-07-24  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org-exp.el (org-export-region-as-html, org-export-as-html): Make
--- a/lisp/org/org-agenda.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-agenda.el	Fri Jul 25 23:02:16 2008 +0000
@@ -6,7 +6,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -5120,13 +5120,12 @@
       (unwind-protect
 	  (progn
 	    (fset 'calendar-cursor-to-date
-		  (lambda (&optional error)
+		  (lambda (&optional error dummy)
 		    (calendar-gregorian-from-absolute
 		     (get-text-property point 'day))))
 	      (call-interactively cmd))
 	(fset 'calendar-cursor-to-date oldf)))))
 
-
 (defun org-agenda-execute-calendar-command (cmd)
   "Execute a calendar command from the agenda, with the date associated to
 the cursor position."
@@ -5144,7 +5143,7 @@
       (unwind-protect
 	  (progn
 	    (fset 'calendar-cursor-to-date
-		  (lambda (&optional error)
+		  (lambda (&optional error dummy)
 		    (calendar-gregorian-from-absolute
 		     (get-text-property point 'day))))
 	    (call-interactively cmd))
--- a/lisp/org/org-archive.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-archive.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-bbdb.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-bbdb.el	Fri Jul 25 23:02:16 2008 +0000
@@ -6,7 +6,7 @@
 ;;         Thomas Baumann <thomas dot baumann at ch dot tum dot de>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-bibtex.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-bibtex.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Bastien Guerry <bzg at altern dot org>
 ;;         Carsten Dominik <carsten dot dominik at gmail dot com>
 ;; Keywords: org, wp, remember
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-clock.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-clock.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-colview.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-colview.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-compat.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-compat.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-exp.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-exp.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -883,6 +883,7 @@
 		  ("LaTeX" . :LaTeX-fragments)
 		  ("skip"  . :skip-before-1st-heading)
 		  ("author" . :author-info)
+		  ("creator" . :creator-info)
 		  ("timestamp" . :time-stamp-file)))
 	    o)
 	(while (setq o (pop op))
@@ -3072,7 +3073,7 @@
 	     ((member type '("ftp" "mailto" "news"))
 	      ;; standard URL
 	      (setq link (concat type ":" path))
-	      (setq rpl (concat "<a href=\"" link "\">" desc "</a>")))
+	      (setq rpl (concat "<a href=\"" link "\"" attr ">" desc "</a>")))
 
 	     ((functionp (setq fnc (nth 2 (assoc type org-link-protocols))))
 	      ;; The link protocol has a function for format the link
--- a/lisp/org/org-export-latex.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-export-latex.el	Fri Jul 25 23:02:16 2008 +0000
@@ -4,7 +4,7 @@
 ;;
 ;; Emacs Lisp Archive Entry
 ;; Filename: org-export-latex.el
-;; Version: 6.06a
+;; Version: 6.06b
 ;; Author: Bastien Guerry <bzg AT altern DOT org>
 ;; Maintainer: Bastien Guerry <bzg AT altern DOT org>
 ;; Keywords: org, wp, tex
--- a/lisp/org/org-faces.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-faces.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-gnus.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-gnus.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-id.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-id.el	Fri Jul 25 23:02:16 2008 +0000
@@ -4,7 +4,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-info.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-info.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-irc.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-irc.el	Fri Jul 25 23:02:16 2008 +0000
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Philip Jackson <emacs@shellarchive.co.uk>
 ;; Keywords: erc, irc, link, org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-jsinfo.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-jsinfo.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -180,8 +180,8 @@
 	   (setq s (replace-match s t t template))
 	   (setq exp-plist
 		 (plist-put
-		  exp-plist :style
-		  (concat (or (plist-get exp-plist :style) "") "\n" s)))))
+		  exp-plist :style-extra
+		  (concat (or (plist-get exp-plist :style-extra) "") "\n" s)))))
     ;; This script absolutely needs the table of contents, to we change that
     ;; setting
     (if (not (plist-get exp-plist :table-of-contents))
--- a/lisp/org/org-mac-message.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-mac-message.el	Fri Jul 25 23:02:16 2008 +0000
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2008 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
-;; Version: 6.06a
+;; Version: 6.06b
 ;; Keywords: outlines, hypermedia, calendar, wp
 
 ;; This file is part of GNU Emacs.
--- a/lisp/org/org-macs.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-macs.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-mew.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-mew.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Tokuya Kameshima <kames at fa2 dot so-net dot ne dot jp>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 
 ;; This file is part of GNU Emacs.
 
--- a/lisp/org/org-mhe.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-mhe.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Thomas Baumann <thomas dot baumann at ch dot tum dot de>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-mouse.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-mouse.el	Fri Jul 25 23:02:16 2008 +0000
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Piotr Zielinski <piotr dot zielinski at gmail dot com>
 ;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-publish.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-publish.el	Fri Jul 25 23:02:16 2008 +0000
@@ -4,7 +4,7 @@
 ;; Author: David O'Toole <dto@gnu.org>
 ;; Maintainer: Bastien Guerry <bzg AT altern DOT org>
 ;; Keywords: hypermedia, outlines, wp
-;; Version: 6.06a
+;; Version: 6.06b
 
 ;; This file is part of GNU Emacs.
 ;;
@@ -554,6 +554,7 @@
 					  (abbreviate-file-name filename))))
 		      (error "Can't publish file outside of a project")))))
 	   (project-plist (cdr project))
+	   (ftname (file-truename filename))
 	   (publishing-function
 	    (or (plist-get project-plist :publishing-function)
 		'org-publish-org-to-html))
@@ -565,8 +566,8 @@
       (setq tmp-pub-dir
 	    (file-name-directory
 	     (concat pub-dir
-		     (and (string-match (regexp-quote base-dir) filename)
-			  (substring filename (match-end 0))))))
+		     (and (string-match (regexp-quote base-dir) ftname)
+			  (substring ftname (match-end 0))))))
       (if (listp publishing-function)
 	  ;; allow chain of publishing functions
 	  (mapc (lambda (f)
--- a/lisp/org/org-remember.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-remember.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-rmail.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-rmail.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-table.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-table.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-vm.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-vm.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org-wl.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org-wl.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Tokuya Kameshima <kames at fa2 dot so-net dot ne dot jp>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
--- a/lisp/org/org.el	Fri Jul 25 22:33:59 2008 +0000
+++ b/lisp/org/org.el	Fri Jul 25 23:02:16 2008 +0000
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 6.06a
+;; Version: 6.06b
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -91,7 +91,7 @@
 
 ;;; Version
 
-(defconst org-version "6.06a"
+(defconst org-version "6.06b"
   "The version number of the file org.el.")
 
 (defun org-version (&optional here)
@@ -2650,7 +2650,7 @@
 (org-autoload (if (featurep 'xemacs) "org-colview-xemacs" "org-colview")
  '(org-columns-number-to-string org-columns-get-format-and-top-level
    org-columns-compute org-agenda-columns org-columns-remove-overlays
-   org-columns org-insert-columns-dblock))
+   org-columns org-insert-columns-dblock org-dblock-write:columnview))
 
 ;; Autoload ID code
 
@@ -5513,7 +5513,8 @@
     (when font-lock-mode
       (font-lock-unfontify-region (point-min) (point-max)))
     (put-text-property (point-min) (point-max) 'font-lock-fontified t))
-  (kill-buffer (current-buffer)))
+  (kill-buffer (current-buffer))
+  (and (org-mode-p) (org-restart-font-lock)))
 
 ;;;; Plain list items, including checkboxes