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

[Tim O'Callaghan]

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 <address@hidden> wrote:
> "Tim O'Callaghan" <address@hidden> 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)
>>
>