-(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)))
-