summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-04-23 08:00:16 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-04-27 14:53:07 -0600
commit5a07ae6f11c17abd5702518b19f0aab5711e2b3d (patch)
treeea3e595bd43150f019ef3acf60e803ea7bb0688e
parent93e000923f31488dd50aaf605c840c3986750677 (diff)
downloadorg-mode-5a07ae6f11c17abd5702518b19f0aab5711e2b3d.tar.gz
org-bibtex: added trailing space after "Type:" thanks to Matt Lundin
-rw-r--r--lisp/org-bibtex.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
index 8f1417a..9ee30f1 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -295,6 +295,7 @@ For example setting to 'BIB_' would allow interoperability with fireforg."
"Fleshout the current heading, ensuring that all required fields are present.
With optional argument OPTIONAL, also prompt for optional fields."
(flet ((get (key lst) (cdr (assoc key lst)))
+ (keyword (name) (intern (concat ":" (downcase name))))
(name (keyword) (upcase (substring (symbol-name keyword) 1))))
(dolist (field (append
(remove :title (get :required (get type org-bibtex-types)))
@@ -304,9 +305,8 @@ With optional argument OPTIONAL, also prompt for optional fields."
(mapcar
(lambda (f) (when (org-bibtex-get (name f)) f))
field)))))
- (setf field (or present
- (intern (org-icompleting-read
- "Field: " (mapcar #'symbol-name field)))))))
+ (setf field (or present (keyword (org-icompleting-read
+ "Field: " (mapcar #'name field)))))))
(let ((name (name field)))
(unless (org-bibtex-get name)
(let ((prop (org-bibtex-ask field)))
@@ -439,7 +439,7 @@ With prefix argument OPTIONAL also prompt for optional fields."
"Create a new entry at the given level."
(interactive
(list (org-icompleting-read
- "Type:"
+ "Type: "
(mapcar (lambda (type) (symbol-name (car type))) org-bibtex-types))))
(let ((type (if (keywordp type) type (intern type))))
(unless (assoc type org-bibtex-types)