From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Tim O'Callaghan" Subject: Re: This is probably a misconfiguration rather than a bug, but... Date: Fri, 3 Sep 2010 11:01:22 +0200 Message-ID: References: <87hbi7zo6u.fsf@gmx.de> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=46622 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OrS9Z-0006bm-JL for emacs-orgmode@gnu.org; Fri, 03 Sep 2010 05:01:47 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OrS9X-0002LZ-MS for emacs-orgmode@gnu.org; Fri, 03 Sep 2010 05:01:45 -0400 Received: from mail-iw0-f169.google.com ([209.85.214.169]:56594) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OrS9X-0002LU-G4 for emacs-orgmode@gnu.org; Fri, 03 Sep 2010 05:01:43 -0400 Received: by iwn33 with SMTP id 33so1922834iwn.0 for ; Fri, 03 Sep 2010 02:01:42 -0700 (PDT) In-Reply-To: <87hbi7zo6u.fsf@gmx.de> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Cc: org-mode I'm tracking the master git repo, the emacs git repo (running emacs 24.0.50.1) and just updated git from 11e7a57 to ba4bf2c. The problem is still there, I've been trying to work out exactly what the criteria is for this problem, and i'm still not sure, but i can replicate it without any trouble. If i try to capture the *scratch* buffer directly after emacs startup, it shows me the template menu. If i then change the mode of scratch to emacs-lisp, and try to capture it generates the trace-back, which I've attached after my org-capture configuration. Tim. ------------------ config snippet (define-key global-map [(meta r)] 'org-capture) (defun toc:remap-capture-keys () ;; default as save to inbox when hit save button (define-key org-capture-mode-map [(control x) (control s)] 'ispell-buffer) (define-key org-capture-mode-map [(control x) (control w)] '(org-capture-finalize= 1)) (define-key org-capture-mode-map [(meta k)] 'org-capture-kill) ) (add-hook 'org-capture-mode-hook 'toc:remap-capture-keys 'append) (setq org-capture-templates `( ("0" "0+inbox" entry (file+headline (concat toc:ze-org-dir "0+inbox.org") "+INBOX") "* %? \n\n") ("1" "1+projects" entry (file+olp ,(concat toc:ze-org-dir "1+work.org") "+TASKS" "+PROJECT= S") "* TODO %?\n") ("2" "2+someDay" entry (file+regexp (concat toc:ze-org-dir "2+someday.org") "^\*+ \+") "* SMDY %?\n") ("4" "4+calendar" entry (file+headline (concat toc:ze-org-dir "1+work.org") "+WORKINBOX") "* TODO %?\n") ("5" "5+toRead" entry (file+headline (concat toc:ze-org-dir "5+toread.org") "") "* %? \n %^{Link?}") ("7" "7+toWatch" entry (file+headline (concat toc:ze-org-dir "7+towatch.org") "") "* %^{Title}\nSOURCE:%c\n %i") ("8" "8+contacts" entry (file (concat toc:ze-org-dir "8+contacts.org")) "* %^{Title}\nSOURCE:%c\n %i") ("q" "8+quotes" entry (file (concat toc:ze-org-dir "8+quotes.org")) "* %^{Title}\nSOURCE:%c\n %i") ("s" "8+scrapbook" entry (file (concat toc:ze-org-dir "8+scrapbook.org")) "* %^{Title}\nSOURCE:%c\n %i") ("9" "9+journal" entry (file+datetree (concat toc:ze-org-dir "9+journal.org")) "* %T %?\n %i\n %a") ("e" "1+emacsTweaking" entry (file+headline (concat toc:ze-org-dir "1+emacsTweaking.org") "+EMACSINBOX") "* %? \n %?\n") ("w" "1+work" entry (file+headline (concat toc:ze-org-dir "1+work.org") "+WORKINBOX") "* TODO %?\n") ("W" "9+work-journal" entry (file+datetree (concat toc:ze-org-dir "9+work-journal.org")) "* %^{Title}\n %c\n %i %?") ("!" "into clocked task" entry (clock) "* %? \n %?\n") )) ------------------ traceback Debugger entered--Lisp error: (wrong-type-argument stringp nil) string-match("^/tmp_mnt/" nil) abbreviate-file-name(nil) (concat "file:" (abbreviate-file-name buffer-file-name) "::" def " " name= ) (setq link (concat "file:" (abbreviate-file-name buffer-file-name) "::" def " " name)) (let* ((end ...) (def ...) (name ...) (sym-name ...) (stype ...) (args ...) (docstring ...) (doc ...) (fixme ...) (comment ...) keys keys-desc link description) (if (equal stype "Command") (setq keys ... keys-desc ...)) (setq link (concat "file:" ... "::" def " " name)) (setq description (concat stype ": " name)) (org-store-link-props :type "elisp-symbol" :link link :description description :def def :name name :stype stype :args args :keys keys-desc :docstring docstring :doc doc :fixme fixme :comment comment)) (save-excursion (or (looking-at "^(") (beginning-of-defun)) (looking-at "^(\\([a-z]+\\) \\([^)\n ]+\\) ?\n?[ ]*\\(?:(\\(.*\\))\\)?") (let* (... ... ... ... ... ... ... ... ... ... keys keys-desc link description) (if ... ...) (setq link ...) (setq description ...) (org-store-link-props :type "elisp-symbol" :link link :description description :def def :name name :stype stype :args args :keys keys-desc :docstring docstring :doc doc :fixme fixme :comment comment))) (progn (save-excursion (or ... ...) (looking-at "^(\\([a-z]+\\) \\([^)\n ]+\\) ?\n?[ ]*\\(?:(\\(.*\\))\\)?") (let* ... ... ... ... ...))) (if (eq major-mode (quote emacs-lisp-mode)) (progn (save-excursion ... ... ...))) (when (eq major-mode (quote emacs-lisp-mode)) (save-excursion (or ... ...) (looking-at "^(\\([a-z]+\\) \\([^)\n ]+\\) ?\n?[ ]*\\(?:(\\(.*\\))\\)?") (let* ... ... ... ... ...))) org-elisp-symbol-store-link() run-hook-with-args-until-success(org-elisp-symbol-store-link) (cond ((run-hook-with-args-until-success ...) (setq link ... desc ...)) ((equal ... "*Org Edit Src Example*") (let ... ... ... ... ... ... ... ...)) ((equal ... ...) (let ... ...)) ((eq major-mode ...) (let ... ... ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3" :url ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "w3m" :url ...)) ((setq search ...) (setq link ...) (setq cpltxt ...)) ((eq major-mode ...) (setq cpltxt ... link ...) (org-store-link-props :type "image" :file buffer-file-name)) ((eq major-mode ...) (let ... ... ...)) ((and ... ...) (setq custom-id ...) (cond ... ... ...)) ((buffer-file-name ...) (setq cpltxt ...) (when ... ... ...) (setq link ...)) ((interactive-p) (error "Cannot link to a buffer which is not visiting a file")) (t (setq link nil))) (let ((outline-regexp ...) link cpltxt desc description search txt custom-id agenda-link) (cond (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... ... ...) (... ... ... ...) (... ...) (t ...)) (if (consp link) (setq cpltxt ... link ...)) (setq link (or link cpltxt) desc (or desc cpltxt)) (if (equal desc "NONE") (setq desc nil)) (if (and ... link) (progn ... ... ...) (or agenda-link ...))) org-store-link(nil) (if (and (boundp ...) org-capture-link-is-already-stored) (plist-get org-store-link-plist :annotation) (org-store-link nil)) (let* ((orig-buf ...) (annotation ...) (initial ...) (entry ...)) (when (stringp initial) (remove-text-properties 0 ... ... initial)) (when (stringp annotation) (remove-text-properties 0 ... ... annotation)) (cond (... ...) (... ...) (t ... ... ... ... ... ... ...))) (cond ((equal goto ...) (org-capture-goto-target)) ((equal goto ...) (org-capture-goto-last-stored)) (t (let* ... ... ... ...))) org-capture(nil) call-interactively(org-capture nil nil) On 3 September 2010 02:05, Sebastian Rose wrote: > "Tim O'Callaghan" writes: >> When i try and use org-capture in a buffer, it fails to display the >> template menu, and it generates the backtrace below. >> >> It works for org files, but not for some other files. >> >> Tim. > > > If you pull the current Org version, the template menu should be there. > Just make sure, your variable `org-protocol-default-template-key' is nil > (which is the default since a few hours). > > We always had the "w" template as the default of that variable for > historical reasons. =A0I changed that, since this broke lately =A0and I > wanted to avoid dependencies between the different source files > (org-capture.el and org-protocol.el in this case). > > As an aside, the interactive template selection is now on by default > (just as long as the above variable is nil). > > > > =A0Sebastian > > > >> >> Debugger entered--Lisp error: (wrong-type-argument stringp nil) >> =A0 directory-file-name(nil) >> =A0 (file-name-directory (directory-file-name dirpath)) >> =A0 (let ((dirname ...) (basename ...)) (list dirname basename)) >> =A0 org-git-split-dirpath(nil) >> =A0 (let ((dirlist ...)) (when (string=3D ... "") (throw ... nil)) (setq >> dir (first dirlist) relpath (concat ... relpath))) >> =A0 (while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir >> ... relpath ...))) >> =A0 (catch (quote toplevel) (while (not ...) (let ... ... ...)) (list >> (expand-file-name ".git" dir) relpath)) >> =A0 (let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ... >> ...) (list ... relpath))) >> =A0 org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el"= ) >> =A0 (if (org-git-gitrepos-p file) (progn (org-store-link-props :type >> "git" :link ...))) >> =A0 (when (org-git-gitrepos-p file) (org-store-link-props :type "git" >> :link (org-git-create-git-link file))) >> =A0 (let ((file ...)) (when (org-git-gitrepos-p file) >> (org-store-link-props :type "git" :link ...))) >> =A0 (progn (let (...) (when ... ...))) >> =A0 (if (buffer-file-name) (progn (let ... ...))) >> =A0 (when (buffer-file-name) (let (...) (when ... ...))) >> =A0 org-git-store-link() >> =A0 run-hook-with-args-until-success(org-git-store-link) >> =A0 (cond ((run-hook-with-args-until-success ...) (setq link ... desc >> ...)) ((equal ... "*Org Edit Src Example*") (let ... ... ... ... ... >> ... ... ...)) ((equal ... ...) (let ... ...)) ((eq major-mode ...) >> (let ... ... ...)) ((eq major-mode ...) (setq cpltxt ... link ...) >> (org-store-link-props :type "w3" :url ...)) ((eq major-mode ...) (setq >> cpltxt ... link ...) (org-store-link-props :type "w3m" :url ...)) >> ((setq search ...) (setq link ...) (setq cpltxt ...)) ((eq major-mode >> ...) (setq cpltxt ... link ...) (org-store-link-props :type "image" >> :file buffer-file-name)) ((eq major-mode ...) (let ... ... ...)) ((and >> ... ...) (setq custom-id ...) (cond ... ... ...)) ((buffer-file-name >> ...) (setq cpltxt ...) (when ... ... ...) (setq link ...)) >> ((interactive-p) (error "Cannot link to a buffer which is not visiting >> a file")) (t (setq link nil))) >> =A0 (let ((outline-regexp ...) link cpltxt desc description search txt >> custom-id agenda-link) (cond (... ...) (... ...) (... ...) (... ...) >> (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (... >> ... ...) (... ... ... ...) (... ...) (t ...)) (if (consp link) (setq >> cpltxt ... link ...)) (setq link (or link cpltxt) desc (or desc >> cpltxt)) (if (equal desc "NONE") (setq desc nil)) (if (and ... link) >> (progn ... ... ...) (or agenda-link ...))) >> =A0 org-store-link(nil) >> =A0 (if (and (boundp ...) org-capture-link-is-already-stored) (plist-get >> org-store-link-plist :annotation) (org-store-link nil)) >> =A0 (let* ((orig-buf ...) (annotation ...) (initial ...) (entry ...)) >> (when initial (remove-text-properties 0 ... ... initial)) (when >> annotation (remove-text-properties 0 ... ... annotation)) (cond (... >> ...) (... ...) (t ... ... ... ... ... ... ...))) >> =A0 (cond ((equal goto ...) (org-capture-goto-target)) ((equal goto ...) >> (org-capture-goto-last-stored)) (t (let* ... ... ... ...))) >> =A0 org-capture(nil) >> =A0 call-interactively(org-capture nil nil) >> >