Hello,
First of all, thanks for 5.13a release.
The examplefrom the Org-mode Manual(section 13.2.2, "complex
publishing configuration") doesn't follow the tramp filename syntax
(that I use below). Am I already missing something here ?
I've tried to publish the following org file (test.org):
blah blah blah
[[file:test.c][test]]
where test.c is just:
int main(void) {return 0;}
Both test.org and test.c are in the same directory.
I've the following setup in my init.el:
(setq org-publish-project-alist
`(.../...
("TESTorg"
:base-directory "~/Devel/Emacs/Org/"
:publishing-directory
"/[EMAIL PROTECTED]/")
("TESTsources"
:base-directory "~/Devel/Emacs/Org/"
:base-extension "c"
:publishing-directory
"/[EMAIL PROTECTED]/"
:publishing-function org-publish-attachment)
("TEST" :components ("TESTorg" "TESTsources"
After hitting C-c C-e P, the connexion is established and a bunch of
tramp messages are displayed in the minibuffer. The org file is
correctly exported and published, but the attached source file is not:
at some point, I get a wrong type arg error: number-char-or-marker-p,
(0 . 7498).
Oh, and I can't use EFS because I need ssh.
Backtrace, and system information below.
-- Frnçs
Debugger entered--Lisp error: (wrong-type-argument number-char-or-marker-p (0 .
7498))
eshell-shuffle-files("cp" "copying" ("/home/fran/Devel/Emacs/Org/test.c")
"/[EMAIL PROTECTED]/" copy-file nil t nil)
(let ((target ...) ange-cache) (setcdr (last args 2) nil)
(eshell-shuffle-files "cp" "copying" args target (quote copy-file) nil (if ...
1 ...) preserve))
(if (and t (string-match eshell-tar-regexp ...) (or ... ...))
(eshell-shorthand-tar-command "cp" args) (let (... ange-cache) (setcdr ... nil)
(eshell-shuffle-files "cp" "copying" args target ... nil ... preserve)) nil)
(let ((len ...)) (if (or ... ...) (error "%s: missing destination file or
directory" "cp")) (if (= len 1) (nconc args ...)) (setq args
(eshell-stringify-list ...)) (if (and t ... ...) (eshell-shorthand-tar-command
"cp" args) (let ... ... ...) nil))
(eshell-mvcpln-template "cp" "copying" (quote copy-file)
eshell-cp-interactive-query eshell-cp-overwrite-files preserve)
(progn (if archive (setq preserve t no-dereference t recursive t))
(eshell-mvcpln-template "cp" "copying" (quote copy-file)
eshell-cp-interactive-query eshell-cp-overwrite-files preserve))
eval((progn (if archive (setq preserve t no-dereference t recursive t))
(eshell-mvcpln-template "cp" "copying" (quote copy-file)
eshell-cp-interactive-query eshell-cp-overwrite-files preserve)))
byte-code("..." [body-forms name last-value options args nil 0 :show-usage
throw eshell-usage eshell-show-usage eshell-process-args eval append progn] 5)
byte-code("..." [usage-msg eshell-usage (byte-code "Ã
GÃU«Âà s«ÂÃÃà \"\"ÂÃ
#ÃÃÃC\"!Ã
Â" [body-forms name last-value options args nil 0 :show-usage
throw eshell-usage eshell-show-usage eshell-process-args eval append progn] 5)
error] 2)
eshell-do-opt("cp" ((?a "archive" nil archive "same as -dpR") (?d
"no-dereference" nil no-dereference "preserve links") (?f "force" nil force
"remove existing destinations, never prompt") (?i "interactive" nil interactive
"request confirmation if target already exists") (?n "preview" nil preview
"don't change anything on disk") (?p "preserve" nil preserve "preserve file
attributes if possible") (?R "recursive" nil recursive "copy directories
recursively") (?v "verbose" nil verbose "explain what is being done") (nil
"help" nil nil "show this usage screen") :preserve-args :external "cp"
:show-usage :usage "[OPTION]... SOURCE DEST\n or: cp [OPTION]... SOURCE...
DIRECTORY\nCopy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.") ((if
archive (setq preserve t no-dereference t recursive t)) (eshell-mvcpln-template
"cp" "copying" (quote copy-file) eshell-cp-interactive-query
eshell-cp-overwrite-files preserve)))
eshell/cp("/home/fran/Devel/Emacs/Org/test.c" "/[EMAIL PROTECTED]/")
(let ((destination ...)) (eshell/cp filename destination))
org-publish-attachment((:base-directory "~/Devel/Emacs/Org/" :base-extension
"c" :publishing-directory "/[EMAIL PROTECTED]/" :publishing-function
org-publish-attachment) "/home/fran/Devel/Emacs/Org/test.c")
funcall(org-publish-attachment (:base-directory "~/Devel/Emacs/Org/"
:base-extension "c" :publishing-directory "/[EMAIL PROTECTED]/"
:publishing-function org-publish-attachment)
"/home/fran/Devel/Emacs/Org/test.c")
(if (listp publishing-function) (mapc (lambda ... ...) publishing-function)
(funcall publishing-function plist f))
(progn (if (listp publishing-function) (mapc ... publishing-function)
(funcall publishing-function plist f)) (org-publish-update-timestamp f))
(if (org-publish-needed-p f) (progn (if ... ... ...)
(org-publish-update-timestamp f)))
