-(defvar widget-mu-cite-method-prompt-value-history nil
- "History of input to `widget-mu-cite-method-prompt-value'.")
-
-(define-widget 'mu-cite-method 'symbol
- "A mu-cite-method."
- :format "%{%t%}: %v"
- :tag "Method"
- :prompt-history 'widget-mu-cite-method-prompt-value-history
- :prompt-value 'widget-mu-cite-method-prompt-value
- :action 'widget-mu-cite-method-action)
-
-(defun widget-mu-cite-method-prompt-value (widget prompt value unbound)
- ;; Read mu-cite-method from minibuffer.
- (intern
- (completing-read (format "%s (default %s) " prompt value)
- (mapcar (function
- (lambda (sym)
- (list (symbol-name sym))
- ))
- (mu-cite-method-list)))))
-
-(defun widget-mu-cite-method-action (widget &optional event)
- ;; Read a mu-cite-method from the minibuffer.
- (let ((answer
- (widget-mu-cite-method-prompt-value
- widget
- (widget-apply widget :menu-tag-get)
- (widget-value widget)
- t)))
- (widget-value-set widget answer)
- (widget-apply widget :notify widget event)
- (widget-setup)))
+(define-widget 'mu-cite-choose-prefix-format 'group
+ "Widget for entering a prefix citation method."
+ :convert-widget
+ (function
+ (lambda (widget)
+ (list 'choice
+ :tag "Method or String"
+ :args (nconc
+ (mapcar
+ (function (lambda (elem) (list 'choice-item (car elem))))
+ mu-cite-default-methods-alist)
+ '((symbol :tag "Method")
+ (const :tag "-" nil)
+ (choice-item :tag "String: \"> \"" "> ")
+ (string)))))))
+
+(define-widget 'mu-cite-choose-top-format 'group
+ "Widget for entering a top citation method."
+ :convert-widget
+ (function
+ (lambda (widget)
+ (list 'choice
+ :tag "Method or String"
+ :args (nconc
+ (mapcar
+ (function (lambda (elem) (list 'choice-item (car elem))))
+ mu-cite-default-methods-alist)
+ '((symbol :tag "Method")
+ (const :tag "-" nil)
+ (choice-item :tag "String: \">>>>>\\t\"" ">>>>>\t")
+ (choice-item :tag "String: \" wrote:\\n\"" " wrote:\n")
+ (string :tag "String")))))))
+
+(defun mu-cite-custom-set-variable (symbol value)
+ (set-default symbol (delq nil value)))