* This is probably a misconfiguration rather than a bug, but... @ 2010-09-02 14:15 Tim O'Callaghan 2010-09-02 15:13 ` Carsten Dominik ` (3 more replies) 0 siblings, 4 replies; 7+ messages in thread From: Tim O'Callaghan @ 2010-09-02 14:15 UTC (permalink / raw) To: org-mode 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. Debugger entered--Lisp error: (wrong-type-argument stringp nil) directory-file-name(nil) (file-name-directory (directory-file-name dirpath)) (let ((dirname ...) (basename ...)) (list dirname basename)) org-git-split-dirpath(nil) (let ((dirlist ...)) (when (string= ... "") (throw ... nil)) (setq dir (first dirlist) relpath (concat ... relpath))) (while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir ... relpath ...))) (catch (quote toplevel) (while (not ...) (let ... ... ...)) (list (expand-file-name ".git" dir) relpath)) (let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ... ...) (list ... relpath))) org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el") (if (org-git-gitrepos-p file) (progn (org-store-link-props :type "git" :link ...))) (when (org-git-gitrepos-p file) (org-store-link-props :type "git" :link (org-git-create-git-link file))) (let ((file ...)) (when (org-git-gitrepos-p file) (org-store-link-props :type "git" :link ...))) (progn (let (...) (when ... ...))) (if (buffer-file-name) (progn (let ... ...))) (when (buffer-file-name) (let (...) (when ... ...))) org-git-store-link() run-hook-with-args-until-success(org-git-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 initial (remove-text-properties 0 ... ... initial)) (when 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) ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: This is probably a misconfiguration rather than a bug, but... 2010-09-02 14:15 This is probably a misconfiguration rather than a bug, but Tim O'Callaghan @ 2010-09-02 15:13 ` Carsten Dominik 2010-09-02 15:50 ` Bastien ` (2 subsequent siblings) 3 siblings, 0 replies; 7+ messages in thread From: Carsten Dominik @ 2010-09-02 15:13 UTC (permalink / raw) To: Tim O'Callaghan; +Cc: org-mode Looks like a bug in org-git-store-link.... - Carsten On Sep 2, 2010, at 4:15 PM, Tim O'Callaghan wrote: > 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. > > Debugger entered--Lisp error: (wrong-type-argument stringp nil) > directory-file-name(nil) > (file-name-directory (directory-file-name dirpath)) > (let ((dirname ...) (basename ...)) (list dirname basename)) > org-git-split-dirpath(nil) > (let ((dirlist ...)) (when (string= ... "") (throw ... nil)) (setq > dir (first dirlist) relpath (concat ... relpath))) > (while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir > ... relpath ...))) > (catch (quote toplevel) (while (not ...) (let ... ... ...)) (list > (expand-file-name ".git" dir) relpath)) > (let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ... > ...) (list ... relpath))) > org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el") > (if (org-git-gitrepos-p file) (progn (org-store-link-props :type > "git" :link ...))) > (when (org-git-gitrepos-p file) (org-store-link-props :type "git" > :link (org-git-create-git-link file))) > (let ((file ...)) (when (org-git-gitrepos-p file) > (org-store-link-props :type "git" :link ...))) > (progn (let (...) (when ... ...))) > (if (buffer-file-name) (progn (let ... ...))) > (when (buffer-file-name) (let (...) (when ... ...))) > org-git-store-link() > run-hook-with-args-until-success(org-git-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 initial (remove-text-properties 0 ... ... initial)) (when > 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) > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: This is probably a misconfiguration rather than a bug, but... 2010-09-02 14:15 This is probably a misconfiguration rather than a bug, but Tim O'Callaghan 2010-09-02 15:13 ` Carsten Dominik @ 2010-09-02 15:50 ` Bastien 2010-09-02 19:15 ` David Maus 2010-09-03 0:05 ` Sebastian Rose 3 siblings, 0 replies; 7+ messages in thread From: Bastien @ 2010-09-02 15:50 UTC (permalink / raw) To: Tim O'Callaghan; +Cc: org-mode "Tim O'Callaghan" <tim.ocallaghan@gmail.com> 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. Can you be a bit more specific? What kind of buffer make the capture mechanism fail? (Can you share your templates?) Thanks! -- Bastien ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: This is probably a misconfiguration rather than a bug, but... 2010-09-02 14:15 This is probably a misconfiguration rather than a bug, but Tim O'Callaghan 2010-09-02 15:13 ` Carsten Dominik 2010-09-02 15:50 ` Bastien @ 2010-09-02 19:15 ` David Maus 2010-09-03 0:05 ` Sebastian Rose 3 siblings, 0 replies; 7+ messages in thread From: David Maus @ 2010-09-02 19:15 UTC (permalink / raw) To: Tim O'Callaghan; +Cc: org-mode [-- Attachment #1.1: Type: text/plain, Size: 443 bytes --] Tim O'Callaghan wrote: >When i try and use org-capture in a buffer, it fails to display the >template menu, and it generates the backtrace below. Which version of Org mode are you running? IIRC There was a bug in `org-git-store-link' that caused this error and was fixed in Feb 2010 (commit 6a5f6deaac1bcf4244625e5843bbaf511b8e4b57). Best, -- David -- OpenPGP... 0x99ADB83B5A4478E6 Jabber.... dmjena@jabber.org Email..... dmaus@ictsoc.de [-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --] [-- Attachment #2: Type: text/plain, Size: 201 bytes --] _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: This is probably a misconfiguration rather than a bug, but... 2010-09-02 14:15 This is probably a misconfiguration rather than a bug, but Tim O'Callaghan ` (2 preceding siblings ...) 2010-09-02 19:15 ` David Maus @ 2010-09-03 0:05 ` Sebastian Rose 2010-09-03 9:01 ` Tim O'Callaghan 3 siblings, 1 reply; 7+ messages in thread From: Sebastian Rose @ 2010-09-03 0:05 UTC (permalink / raw) To: Tim O'Callaghan; +Cc: org-mode "Tim O'Callaghan" <tim.ocallaghan@gmail.com> 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. I changed that, since this broke lately and 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). Sebastian > > Debugger entered--Lisp error: (wrong-type-argument stringp nil) > directory-file-name(nil) > (file-name-directory (directory-file-name dirpath)) > (let ((dirname ...) (basename ...)) (list dirname basename)) > org-git-split-dirpath(nil) > (let ((dirlist ...)) (when (string= ... "") (throw ... nil)) (setq > dir (first dirlist) relpath (concat ... relpath))) > (while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir > ... relpath ...))) > (catch (quote toplevel) (while (not ...) (let ... ... ...)) (list > (expand-file-name ".git" dir) relpath)) > (let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ... > ...) (list ... relpath))) > org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el") > (if (org-git-gitrepos-p file) (progn (org-store-link-props :type > "git" :link ...))) > (when (org-git-gitrepos-p file) (org-store-link-props :type "git" > :link (org-git-create-git-link file))) > (let ((file ...)) (when (org-git-gitrepos-p file) > (org-store-link-props :type "git" :link ...))) > (progn (let (...) (when ... ...))) > (if (buffer-file-name) (progn (let ... ...))) > (when (buffer-file-name) (let (...) (when ... ...))) > org-git-store-link() > run-hook-with-args-until-success(org-git-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 initial (remove-text-properties 0 ... ... initial)) (when > 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) > ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: This is probably a misconfiguration rather than a bug, but... 2010-09-03 0:05 ` Sebastian Rose @ 2010-09-03 9:01 ` Tim O'Callaghan 2010-09-04 5:06 ` Noorul Islam 0 siblings, 1 reply; 7+ messages in thread From: Tim O'Callaghan @ 2010-09-03 9:01 UTC (permalink / raw) 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" "+PROJECTS") "* 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 <sebastian_rose@gmx.de> wrote: > "Tim O'Callaghan" <tim.ocallaghan@gmail.com> 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. I changed that, since this broke lately and 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). > > > > Sebastian > > > >> >> Debugger entered--Lisp error: (wrong-type-argument stringp nil) >> directory-file-name(nil) >> (file-name-directory (directory-file-name dirpath)) >> (let ((dirname ...) (basename ...)) (list dirname basename)) >> org-git-split-dirpath(nil) >> (let ((dirlist ...)) (when (string= ... "") (throw ... nil)) (setq >> dir (first dirlist) relpath (concat ... relpath))) >> (while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir >> ... relpath ...))) >> (catch (quote toplevel) (while (not ...) (let ... ... ...)) (list >> (expand-file-name ".git" dir) relpath)) >> (let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ... >> ...) (list ... relpath))) >> org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el") >> (if (org-git-gitrepos-p file) (progn (org-store-link-props :type >> "git" :link ...))) >> (when (org-git-gitrepos-p file) (org-store-link-props :type "git" >> :link (org-git-create-git-link file))) >> (let ((file ...)) (when (org-git-gitrepos-p file) >> (org-store-link-props :type "git" :link ...))) >> (progn (let (...) (when ... ...))) >> (if (buffer-file-name) (progn (let ... ...))) >> (when (buffer-file-name) (let (...) (when ... ...))) >> org-git-store-link() >> run-hook-with-args-until-success(org-git-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 initial (remove-text-properties 0 ... ... initial)) (when >> 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) >> > ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: This is probably a misconfiguration rather than a bug, but... 2010-09-03 9:01 ` Tim O'Callaghan @ 2010-09-04 5:06 ` Noorul Islam 0 siblings, 0 replies; 7+ messages in thread From: Noorul Islam @ 2010-09-04 5:06 UTC (permalink / raw) To: Tim O'Callaghan; +Cc: org-mode On Fri, Sep 3, 2010 at 2:31 PM, Tim O'Callaghan <tim.ocallaghan@gmail.com> wrote: > 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" "+PROJECTS") > "* 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") > )) > I think above snippet works for me on emacs 24. I tried to re-create with the steps mentioned by you using scratch buffer. GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.20.1) of 2010-08-29 on sajida release_7.01h-228-g782f Org-mode version 7.01trans (release_7.01h.228.g782f) Thanks and Regards Noorul > ------------------ 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 <sebastian_rose@gmx.de> wrote: >> "Tim O'Callaghan" <tim.ocallaghan@gmail.com> 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. I changed that, since this broke lately and 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). >> >> >> >> Sebastian >> >> >> >>> >>> Debugger entered--Lisp error: (wrong-type-argument stringp nil) >>> directory-file-name(nil) >>> (file-name-directory (directory-file-name dirpath)) >>> (let ((dirname ...) (basename ...)) (list dirname basename)) >>> org-git-split-dirpath(nil) >>> (let ((dirlist ...)) (when (string= ... "") (throw ... nil)) (setq >>> dir (first dirlist) relpath (concat ... relpath))) >>> (while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir >>> ... relpath ...))) >>> (catch (quote toplevel) (while (not ...) (let ... ... ...)) (list >>> (expand-file-name ".git" dir) relpath)) >>> (let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ... >>> ...) (list ... relpath))) >>> org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el") >>> (if (org-git-gitrepos-p file) (progn (org-store-link-props :type >>> "git" :link ...))) >>> (when (org-git-gitrepos-p file) (org-store-link-props :type "git" >>> :link (org-git-create-git-link file))) >>> (let ((file ...)) (when (org-git-gitrepos-p file) >>> (org-store-link-props :type "git" :link ...))) >>> (progn (let (...) (when ... ...))) >>> (if (buffer-file-name) (progn (let ... ...))) >>> (when (buffer-file-name) (let (...) (when ... ...))) >>> org-git-store-link() >>> run-hook-with-args-until-success(org-git-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 initial (remove-text-properties 0 ... ... initial)) (when >>> 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) >>> >> > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode > ^ permalink raw reply [flat|nested] 7+ messages in thread
end of thread, other threads:[~2010-09-04 5:06 UTC | newest] Thread overview: 7+ messages (download: mbox.gz follow: Atom feed -- links below jump to the message on this page -- 2010-09-02 14:15 This is probably a misconfiguration rather than a bug, but Tim O'Callaghan 2010-09-02 15:13 ` Carsten Dominik 2010-09-02 15:50 ` Bastien 2010-09-02 19:15 ` David Maus 2010-09-03 0:05 ` Sebastian Rose 2010-09-03 9:01 ` Tim O'Callaghan 2010-09-04 5:06 ` Noorul Islam
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).