entry with the generated key already exists in the file."
(interactive
(list
- (read-input
+ (read-string
"ISBN: "
;; now set initial input
(cond
(concat "\n@book{,\n"
(mapconcat
'identity
- (loop for field in (-sort 'string-lessp (mapcar 'car metadata))
- collect
- (format " %s={%s}," field (cdr (assoc field metadata))))
+ (cl-loop for field in (-sort 'string-lessp (mapcar 'car metadata))
+ collect
+ (format " %s={%s}," field (cdr (assoc field metadata))))
"\n")
"\n}\n"))
(goto-char (point-min))
(when (search-forward new-key nil t)
(beep)
- (setq new-key (read-input
+ (setq new-key (read-string
(format "%s already exists. Enter new key (C-g to cancel): " new-key)
new-key)))
(goto-char (point-max))