* [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields
@ 2011-05-01 20:56 Matt Lundin
2011-05-01 21:10 ` [PATCH 3/4] " Matt Lundin
0 siblings, 1 reply; 2+ messages in thread
From: Matt Lundin @ 2011-05-01 20:56 UTC (permalink / raw)
To: Org Mode
* lisp/org-bibtex.el (org-bibtex-headline): Don't export TYPE property
as field
---
lisp/org-bibtex.el | 12 +++++++-----
1 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
index cf7fc49..513519b 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -320,11 +320,13 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t."
org-bibtex-prefix)
(mapcar
(lambda (kv)
- (when (string-match org-bibtex-prefix (car kv))
- (cons (downcase (replace-regexp-in-string
- org-bibtex-prefix ""
- (car kv)))
- (cdr kv))))
+ (let ((key (car kv)) (val (cdr kv)))
+ (when (and (string-match org-bibtex-prefix key)
+ (not (equalp
+ (concat org-bibtex-prefix "TYPE") key)))
+ (cons (downcase (replace-regexp-in-string
+ org-bibtex-prefix "" key))
+ val))))
(org-entry-properties nil 'standard))
(mapcar
(lambda (field)
--
1.7.5
^ permalink raw reply related [flat|nested] 2+ messages in thread
* Re: [PATCH 3/4] Do not export TYPE property as field when allowing arbitrary fields
2011-05-01 20:56 [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields Matt Lundin
@ 2011-05-01 21:10 ` Matt Lundin
0 siblings, 0 replies; 2+ messages in thread
From: Matt Lundin @ 2011-05-01 21:10 UTC (permalink / raw)
To: Org Mode
The subject should be patch 3/4 - sorry.
Matt Lundin <mdl@imapmail.org> writes:
> * lisp/org-bibtex.el (org-bibtex-headline): Don't export TYPE property
> as field
> ---
> lisp/org-bibtex.el | 12 +++++++-----
> 1 files changed, 7 insertions(+), 5 deletions(-)
>
> diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
> index cf7fc49..513519b 100644
> --- a/lisp/org-bibtex.el
> +++ b/lisp/org-bibtex.el
> @@ -320,11 +320,13 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t."
> org-bibtex-prefix)
> (mapcar
> (lambda (kv)
> - (when (string-match org-bibtex-prefix (car kv))
> - (cons (downcase (replace-regexp-in-string
> - org-bibtex-prefix ""
> - (car kv)))
> - (cdr kv))))
> + (let ((key (car kv)) (val (cdr kv)))
> + (when (and (string-match org-bibtex-prefix key)
> + (not (equalp
> + (concat org-bibtex-prefix "TYPE") key)))
> + (cons (downcase (replace-regexp-in-string
> + org-bibtex-prefix "" key))
> + val))))
> (org-entry-properties nil 'standard))
> (mapcar
> (lambda (field)
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2011-05-01 21:10 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-05-01 20:56 [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields Matt Lundin
2011-05-01 21:10 ` [PATCH 3/4] " Matt Lundin
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).