ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New option org-open-directory-means-index-dot-org.

This commit is contained in:
Carsten Dominik 2008-07-18 13:55:18 -07:00
parent 4fcad403bd
commit 45e6f57af9
3 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ORGWEBPAGE/Changes.org
View File

@ -117,6 +117,11 @@
This option can be used to switch the style of the index This option can be used to switch the style of the index
produced by org-publish. produced by org-publish.
*** New option `org-open-directory-means-index'
When set, a link pointing to a directory will actually open
the index.org file in that directory. This is a good setting
inside a publishing project.
* Version 6.05 * Version 6.05
If I were to name my releases, this one would be called "Adam". If I were to name my releases, this one would be called "Adam".

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-07-18 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-open-file): Use
`org-open-directory-means-index-dot-org'.
(org-open-directory-means-index-dot-org): New option.
2008-07-17 Carsten Dominik <dominik@science.uva.nl> 2008-07-17 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-make-link-string): Remove link attributes from * org.el (org-make-link-string): Remove link attributes from

10
lisp/org.el
View File

@ -1062,6 +1062,13 @@ When nil, an error will be generated."
:group 'org-link-follow :group 'org-link-follow
:type 'boolean) :type 'boolean)
(defcustom org-open-directory-means-index-dot-org nil
"Non-nil means, a link to a directory really means to index.org.
When nil, following a directory link will run dired or open a finder/explorer
window on that directory."
:group 'org-link-follow
:type 'boolean)
(defcustom org-link-mailto-program '(browse-url "mailto:%a?subject=%s") (defcustom org-link-mailto-program '(browse-url "mailto:%a?subject=%s")
"Function and arguments to call for following mailto links. "Function and arguments to call for following mailto links.
This is a list with the first element being a lisp function, and the This is a list with the first element being a lisp function, and the
@ -7571,6 +7578,9 @@ If the file does not exist, an error is thrown."
(apps (append org-file-apps (org-default-apps))) (apps (append org-file-apps (org-default-apps)))
(remp (and (assq 'remote apps) (org-file-remote-p file))) (remp (and (assq 'remote apps) (org-file-remote-p file)))
(dirp (if remp nil (file-directory-p file))) (dirp (if remp nil (file-directory-p file)))
(file (if (and dirp org-open-directory-means-index-dot-org)
(concat (file-name-as-directory file) "index.org")
file))
(dfile (downcase file)) (dfile (downcase file))
(old-buffer (current-buffer)) (old-buffer (current-buffer))
(old-pos (point)) (old-pos (point))