all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* eshell/cp not able to use Tramp syntax ?
@ 2007-10-26 15:00 Bastien
  0 siblings, 0 replies; 6+ messages in thread
From: Bastien @ 2007-10-26 15:00 UTC (permalink / raw)
  To: help-gnu-emacs; +Cc: Dave O'Toole, François Puitg

Hi all,

someone encountered a problem when trying to use eshell/cp to copy files
to a destination directory like "/[user@ssh-server]public_html/"

The problem was mentionned on emacs-orgmode mailing list but I think
it's not related to org-publish.el at all.

Can someone knowing eshell/Tramp digg this a bit further?

See below for the original report.

Thanks,

========================================================================
I've tried to publish the following org file:

	blah blah blah
	[[file:test.c][test]]

where test.c is just:

	int main(void) {return 0;}


I've the following setup in my init.el:

(setq org-publish-project-alist
      `(.../...
	("TESTorg"
	 :base-directory "~/Devel/Emacs/Org/"
	 :publishing-directory
	 "/[puitg@ssh-leibniz.imag.fr]public_html/")
	("TESTsources"
	 :base-directory "~/Devel/Emacs/Org/"
	 :base-extension "c"
	 :publishing-directory
	 "/[puitg@ssh-leibniz.imag.fr]public_html/"
	 :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 source file attached 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") "/[puitg@ssh-leibniz.imag.fr]public_html/" 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)
  [...]
  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" "/[puitg@ssh-leibniz.imag.fr]public_html/")
  (let ((destination ...)) (eshell/cp filename destination))
  org-publish-attachment((:base-directory "~/Devel/Emacs/Org/" :base-extension "c" :publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/" :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 "/[puitg@ssh-leibniz.imag.fr]public_html/" :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)))
  (when (org-publish-needed-p f) (if (listp publishing-function) (mapc ... publishing-function) (funcall publishing-function plist f)) (org-publish-update-timestamp f))
  (while (setq f (pop files)) (when (org-publish-needed-p f) (if ... ... ...) (org-publish-update-timestamp f)))
  (let ((files ...)) (while (setq f ...) (when ... ... ...)))
  (let* ((exclude-regexp ...) (publishing-function ...) (index-p ...) (index-filename ...) (index-function ...) (preparation-function ...) (f nil)) (when preparation-function (funcall preparation-function)) (if index-p (funcall index-function plist index-filename)) (let (...) (while ... ...)))
  org-publish-plist((:base-directory "~/Devel/Emacs/Org/" :base-extension "c" :publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/" :publishing-function org-publish-attachment))
  mapcar(org-publish-plist ((:base-directory "~/Devel/Emacs/Org/" :publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/") (:base-directory "~/Devel/Emacs/Org/" :base-extension "c" :publishing-directory "/[puitg@ssh-leibniz.imag.fr]public_html/" :publishing-function org-publish-attachment)))
  (let ((org-publish-use-timestamps-flag ...) (plists ...)) (mapcar (quote org-publish-plist) plists))
  (save-window-excursion (let (... ...) (mapcar ... plists)))
  org-publish("TEST")
  (let* ((project-name ...) (org-publish-use-timestamps-flag ...)) (if (not project-name) (error ...)) (org-publish project-name))
  (save-window-excursion (let* (... ...) (if ... ...) (org-publish project-name)))
  org-publish-current-project(nil)
  call-interactively(org-publish-current-project)
  (if (setq ass (assq r2 cmds)) (call-interactively (cdr ass)) (error "No command associated with key %c" r1))
  (let ((help "[t]   insert the export option template\n[v]   limit export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary buffer\n[R] export region as HTML\n[b] export as HTML and browse immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[L] export as LaTeX to temporary buffer\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files\n[c] export agenda files into combined iCalendar file\n\n[F] publish current file\n[P] publish current project\n[X] publish... (project will be prompted for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window-excursion (delete-other-windows) (with-output-to-temp-buffer "*Org Export/Publishing Help*" ...) (message "Select command: ") (setq r1 ...))
  (setq r2 (if ... ... r1)) (if (setq ass ...) (call-interactively ...) (error "No command associated with key %c" r1)))
  (lambda (&optional arg) (interactive) (let (... ... r1 r2 ass) (save-window-excursion ... ... ... ...) (setq r2 ...) (if ... ... ...)))()
  call-interactively(org-export)

========================================================================

-- 
Bastien

^ permalink raw reply	[flat|nested] 6+ messages in thread
end of thread, other threads:[~2007-11-01  2:07 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
     [not found] <mailman.2596.1193407255.18990.help-gnu-emacs@gnu.org>
2007-10-26 15:27 ` eshell/cp not able to use Tramp syntax ? Michael Albinus
2007-10-28 10:42   ` Bastien
2007-10-28 10:58     ` François Puitg
2007-10-31 20:30       ` Michael Albinus
2007-11-01  2:07         ` Bastien
2007-10-26 15:00 Bastien

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.