emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Simon Thum <simon.thum@gmx.de>
To: Bastien <bzg@gnu.org>
Cc: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: VCard export problems
Date: Sun, 07 Apr 2013 00:33:39 +0200	[thread overview]
Message-ID: <5160A2C3.9010007@gmx.de> (raw)
In-Reply-To: <87sj33754o.fsf@bzg.ath.cx>

Hi Bastien,

Thanks for the fast response!

I now get:

Debugger entered--Lisp error: (void-variable tel)
   (if tel (progn (progn (setq phones-list (split-string tel "[,;: ]+")) 
(setq result "") (while phones-list (setq result (concat result "TEL:" 
(car phones-list) "\n")) (setq phones-list (cdr phones-list))) result)))
   (when tel (progn (setq phones-list (split-string tel "[,;: ]+")) 
(setq result "") (while phones-list (setq result (concat result "TEL:" 
(car phones-list) "\n")) (setq phones-list (cdr phones-list))) result))
   (concat head (when email (progn (setq emails-list (split-string email 
"[,;: ]+")) (setq result "") (while emails-list (setq result (concat 
result "EMAIL:" (car emails-list) "\n")) (setq emails-list (cdr 
emails-list))) result)) (when addr (format "ADR:;;%s\n" 
(replace-regexp-in-string "\\, ?" ";" addr))) (when tel (progn (setq 
phones-list (split-string tel "[,;: ]+")) (setq result "") (while 
phones-list (setq result (concat result "TEL:" (car phones-list) "\n")) 
(setq phones-list (cdr phones-list))) result)) (when bday (let 
((cal-bday (calendar-gregorian-from-absolute 
(org-time-string-to-absolute bday)))) (format "BDAY:%04d-%02d-%02d\n" 
(calendar-extract-year cal-bday) (calendar-extract-month cal-bday) 
(calendar-extract-day cal-bday)))) (when nick (format "NICKNAME:%s\n" 
nick)) (when note (format "NOTE:%s\n" note)) "END:VCARD\n\n")
   (let* ((properties (caddr contact)) (name (org-contacts-vcard-escape 
(car contact))) (n (org-contacts-vcard-encode-name name)) (email (cdr 
(assoc-string org-contacts-email-property properties))) (bday 
(org-contacts-vcard-escape (cdr (assoc-string 
org-contacts-birthday-property properties)))) (addr (cdr (assoc-string 
org-contacts-address-property properties))) (nick 
(org-contacts-vcard-escape (cdr (assoc-string 
org-contacts-nickname-property properties)))) (head (format 
"BEGIN:VCARD\nVERSION:3.0\nN:%s\nFN:%s\n" n name))) (concat head (when 
email (progn (setq emails-list (split-string email "[,;: ]+")) (setq 
result "") (while emails-list (setq result (concat result "EMAIL:" (car 
emails-list) "\n")) (setq emails-list (cdr emails-list))) result)) (when 
addr (format "ADR:;;%s\n" (replace-regexp-in-string "\\, ?" ";" addr))) 
(when tel (progn (setq phones-list (split-string tel "[,;: ]+")) (setq 
result "") (while phones-list (setq result (concat result "TEL:" (car 
phones-list) "\n")) (setq phones-list (cdr phones-list))) result)) (when 
bday (let ((cal-bday (calendar-gregorian-from-absolute 
(org-time-string-to-absolute bday)))) (format "BDAY:%04d-%02d-%02d\n" 
(calendar-extract-year cal-bday) (calendar-extract-month cal-bday) 
(calendar-extract-day cal-bday)))) (when nick (format "NICKNAME:%s\n" 
nick)) (when note (format "NOTE:%s\n" note)) "END:VCARD\n\n"))
   org-contacts-vcard-format(...



On 04/06/2013 10:53 PM, Bastien wrote:
> Hi Simon,
>
> Simon Thum <simon.thum@gmx.de> writes:
>
>> I suspect some require
>> is missing in org-contacts.
>
> In fact, `org-install-letbind' was called while not existing in
> current Org.  So org-contacts.el tried to load the org-exp.el file
> that comes with your Emacs and that we never want to load when
> using pre-8.0.
>
> I removed this function.
>
>> Anyway, if I invoke this line now it fails, although interactively things
>> load fine with the org file on the command line:
>>
>> emacs someOrg.org -batch -l ~/.emacs.d/init.el
>> [...]
>> Symbol's value as variable is void: org-list-allow-alphabetical
>>
>> To me, all of this points to some incorrect dependencies of load logic to
>> -batch. Unfortunately I don't know how to diagnose such problems.
>>
>> It's not urgent but seems like a clear bug to me.
>
> Indeed.  Thanks for reporting this.  Please test again and let me know
> if something else needs to be fixed.
>
> Best,
>

  reply	other threads:[~2013-04-06 22:33 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-04-06 14:03 Simon Thum
2013-04-06 20:53 ` Bastien
2013-04-06 22:33   ` Simon Thum [this message]
2013-04-07  6:21     ` Bastien

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=5160A2C3.9010007@gmx.de \
    --to=simon.thum@gmx.de \
    --cc=bzg@gnu.org \
    --cc=emacs-orgmode@gnu.org \
    --subject='Re: VCard export problems' \
    /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

Code repositories for project(s) associated with this 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).