Re: This is probably a misconfiguration rather than a bug, but...

[Noorul Islam <noorul@noorul.com>]

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
>