On Fri, Sep 3, 2010 at 2:31 PM, Tim O'Callaghan
<tim.ocallag...@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_r...@gmx.de> wrote:
>> "Tim O'Callaghan" <tim.ocallag...@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
>
_______________________________________________
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
