From: "Tim O'Callaghan" <tim.ocallaghan@gmail.com>
Cc: org-mode <emacs-orgmode@gnu.org>
Subject: Re: This is probably a misconfiguration rather than a bug, but...
Date: Fri, 3 Sep 2010 11:01:22 +0200 [thread overview]
Message-ID: <AANLkTikJDp2VL-WNzr=9R3VHVefrSkf0DKbM6htwyE6G@mail.gmail.com> (raw)
In-Reply-To: <87hbi7zo6u.fsf@gmx.de>
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)
>>
>
next prev parent reply other threads:[~2010-09-03 9:01 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
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 [this message]
2010-09-04 5:06 ` Noorul Islam
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='AANLkTikJDp2VL-WNzr=9R3VHVefrSkf0DKbM6htwyE6G@mail.gmail.com' \
--to=tim.ocallaghan@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).