New :base-extension parameter: :none

New :base-extension parameter: :none

[Richard KLINDA]

Hello, I don't use filename extensions for my org files and I could not
publish my files that way because you have to give a string parameter to
:base-extension.

I modified the org-publish-get-base-files function to support a :none
keyword, that means that every file gets exported (except those thats
name start with a dot):

,----
|        '("test" . (:base-directory "~/test/"
|                    :base-extension :none  ;; <---- new :none keyword
|                    :publishing-directory "/tmp/"
|                    :with-section-numbers nil
|                    :table-of-contents nil
|                    ))
`----

Here is the modified function, 2 lines changed (look for the "<-----").
Carsten, please include this change in the next version of Org if you
think it's ok, thank you.

,----
| (defun org-publish-get-base-files (project &optional exclude-regexp)
|   "Return a list of all files in PROJECT.
| If EXCLUDE-REGEXP is set, this will be used to filter out
| matching filenames."
|   (let* ((project-plist (cdr project))
| 	 (base-dir (file-name-as-directory
| 		    (plist-get project-plist :base-directory)))
| 	 (include-list (plist-get project-plist :include))
| 	 (recurse (plist-get project-plist :recursive))
| 	 (extension (or (plist-get project-plist :base-extension) "org"))
| 	 (match (if (eq extension :none)  ;; <-----
|                     "^[^\\.]"           ;; <-----
|                     (concat "^[^\\.].*\\.\\(" extension "\\)$"))))
|     (setq org-publish-temp-files nil)
|     (org-publish-get-base-files-1 base-dir recurse match
| 				  ;; FIXME distinguish exclude regexp
| 				  ;; for skip-file and skip-dir?
| 				  exclude-regexp exclude-regexp)
|     (mapc (lambda (f)
| 	    (pushnew
| 	     (expand-file-name (concat base-dir f))
| 	     org-publish-temp-files))
| 	  include-list)
|     org-publish-temp-files))
`----

-- 
Udv, Richard

Re: New :base-extension parameter: :none

[Daniel Clemente]

Richard KLINDA <rklinda@gmail.com> writes:
> ,----
> |        '("test" . (:base-directory "~/test/"
> |                    :base-extension :none  ;; <---- new :none keyword

  Shouldn't that be
:base-extension 'none
  with a symbol instead of a keyword? I think : is for KEYwords, symbols that are going to be used as keys in a hash table.

--

Re: New :base-extension parameter: :none

[Daniel Clemente]

Daniel Clemente <n142857@gmail.com> writes:
>   Shouldn't that be
> :base-extension 'none
>   with a symbol instead of a keyword? I think : is for KEYwords, symbols that are going to be used as keys in a hash table.
>

Actually... don't we have nil for that?

Re: New :base-extension parameter: :none

[Richard KLINDA]

>>>>> Regarding 'Re: [Orgmode] New :base-extension parameter: :none'; Daniel Clemente adds:


  > Daniel Clemente <n142857@gmail.com> writes:
  >> Shouldn't that be :base-extension 'none with a symbol instead of a
  >> keyword? I think : is for KEYwords, symbols that are going to be
  >> used as keys in a hash table.

  > Actually... don't we have nil for that?

,----[ org-publish.el ] 
| 	 (extension (or (plist-get project-plist :base-extension) "org"))
`----

Nil (default case) gets replaced by "org" string, so we have to have
something else for the none case.

-- 
Udv, Richard

Re: New :base-extension parameter: :none

[Richard KLINDA]

>>>>> Regarding 'Re: [Orgmode] New :base-extension parameter: :none'; Daniel Clemente adds:


  > Richard KLINDA <rklinda@gmail.com> writes:
  >> ,---- | '("test" . (:base-directory "~/test/" :base-extension :none
  >> | ;; <---- new :none keyword

  > Shouldn't that be :base-extension 'none with a symbol instead of a
  > keyword? 

'none is fine with me too, Carsten please change the symbol to 'none if
you think that is more in line with org conventions.

  > I think : is for KEYwords, symbols that are going to be used as keys
  > in a hash table.

Actually no, you can use keywords in situations like this, keywords are
just symbols that evaluate to themselves, it's simply a stylistic choice.

-- 
Udv, Richard