diff --git a/ChangeLog b/ChangeLog index 8366bbd0d..f10bb0297 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,4 @@ + 2008-04-01 Carsten Dominik * lisp/org.el (org-modules): Allow additional symbols for external @@ -13,6 +14,14 @@ also a clocktable block shift. (org-clocktable-try-shift): New function. +2008-03-31 Bastien Guerry + + * lisp/org-publish.el (org-publish-get-base-files-1): Bug fix: get + the proper list of files when recursing thru a directory. + (org-publish-get-base-files): Use the :exclude property to skip + both files and directories. + (org-publish-project): Removed third arg of defalias. + 2008-03-30 Carsten Dominik * lisp/org.el (org-columns-hscoll-title): New function. diff --git a/ORGWEBPAGE/.DS_Store b/ORGWEBPAGE/.DS_Store deleted file mode 100644 index 942082f9d..000000000 Binary files a/ORGWEBPAGE/.DS_Store and /dev/null differ diff --git a/ORGWEBPAGE/index.org b/ORGWEBPAGE/index.org index ae89f6d36..e5cac50c0 100644 --- a/ORGWEBPAGE/index.org +++ b/ORGWEBPAGE/index.org @@ -39,11 +39,17 @@ but may lag a bit behind the website release. * Downloads **** Distribution + Download as [[file:org-5.23a.zip][zip file]] or [[file:org-5.23a.tar.gz][gzipped tar archive]]. These archives contain both the Lisp file org.el and the documentation in PDF and (TeX)Info formats. A shell script to simplify upgrading to the newest release has been posted [[http://www.philfam.co.uk/pete/GTD/org-mode/update-org.sh][here]]. +**** Get the development version + +You can check out the latest Org development version by using git. +More information on this page: http://repo.or.cz/w/org-mode.git + * Documentation ** Manual and Reference card - Read the documentation [[file:manual/index.html][online]]. This is a version consisting of many @@ -207,6 +213,7 @@ page]], and start from there. somehow, when I get to it... * Related Software + [[http://sachachua.com/wp/][Sacha Chua]] about [[http://sachachua.com/wp/2007/12/26/emacs-choosing-between-org-and-planner/][Choosing between Planner and Org]]. diff --git a/lisp/org-publish.el b/lisp/org-publish.el index a2fd0327f..b64acd717 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -428,11 +428,13 @@ matching the regexp SKIP-DIR when recursiing through BASE-DIR." (fnd (file-name-nondirectory f))) (if (and fd-p recurse (not (string-match "^\\.+$" fnd)) - (if skip-dir (not (string-match match skip-dir fnd)) t)) - (org-publish-get-base-files-1 f recurse skip-file skip-dir) - (unless (or fd-p (and skip-file (string-match skip-file fnd))) + (if skip-dir (not (string-match skip-dir fnd)) t)) + (org-publish-get-base-files-1 f recurse match skip-file skip-dir) + (unless (or fd-p ;; this is a directory + (and skip-file (string-match skip-file fnd)) + (not (string-match match fnd))) (pushnew f org-publish-temp-files))))) - (directory-files base-dir t match))) + (directory-files base-dir t (unless recurse match)))) (defun org-publish-get-base-files (project &optional exclude-regexp) "Return a list of all files in PROJECT. @@ -446,7 +448,10 @@ matching filenames." (extension (or (plist-get project-plist :base-extension) "org")) (match (concat "^[^\\.].*\\.\\(" extension "\\)$"))) (setq org-publish-temp-files nil) - (org-publish-get-base-files-1 base-dir recurse match exclude-regexp) + (org-publish-get-base-files-1 base-dir recurse match + ;; FIXME distinguish exclude regexp + ;; for skip-file and skip-dir? + exclude-regexp exclude-regexp) org-publish-temp-files)) (defun org-publish-get-project-from-filename (filename) @@ -602,7 +607,7 @@ Default for INDEX-FILENAME is 'index.org'." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Interactive publishing functions -(defalias 'org-publish-project 'org-publish "Publish project.") +(defalias 'org-publish-project 'org-publish) ;;;###autoload (defun org-publish (project &optional force)