tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-footnote: add :safe properties to the defcustoms

This commit is contained in:
Aaron Ecay 2018-05-27 17:33:44 +01:00
parent 102832e66f
commit c56bb9d59a
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/org-footnote.el
View File

@ -114,7 +114,10 @@ you will need to run the following command after the change:
(org-element-cache-reset 'all))) (org-element-cache-reset 'all)))
:type '(choice :type '(choice
(string :tag "Collect footnotes under heading") (string :tag "Collect footnotes under heading")
(const :tag "Define footnotes locally" nil))) (const :tag "Define footnotes locally" nil))
:safe (lambda (x)
(or (eq x nil)
(stringp x))))
(defcustom org-footnote-define-inline nil (defcustom org-footnote-define-inline nil
"Non-nil means define footnotes inline, at reference location. "Non-nil means define footnotes inline, at reference location.
@ -122,7 +125,8 @@ When nil, footnotes will be defined in a special section near
the end of the document. When t, the [fn:label:definition] notation the end of the document. When t, the [fn:label:definition] notation
will be used to define the footnote at the reference position." will be used to define the footnote at the reference position."
:group 'org-footnote :group 'org-footnote
:type 'boolean) :type 'boolean
:safe #'booleanp)
(defcustom org-footnote-auto-label t (defcustom org-footnote-auto-label t
"Non-nil means define automatically new labels for footnotes. "Non-nil means define automatically new labels for footnotes.
@ -139,7 +143,9 @@ random Automatically generate a unique, random label."
(const :tag "Prompt for label" nil) (const :tag "Prompt for label" nil)
(const :tag "Create automatic [fn:N]" t) (const :tag "Create automatic [fn:N]" t)
(const :tag "Offer automatic [fn:N] for editing" confirm) (const :tag "Offer automatic [fn:N] for editing" confirm)
(const :tag "Create a random label" random))) (const :tag "Create a random label" random))
:safe (lambda (x)
(memq x '(nil t confirm random))))
(defcustom org-footnote-auto-adjust nil (defcustom org-footnote-auto-adjust nil
"Non-nil means automatically adjust footnotes after insert/delete. "Non-nil means automatically adjust footnotes after insert/delete.
@ -157,7 +163,9 @@ The main values of this variable can be set with in-buffer options:
(const :tag "No adjustment" nil) (const :tag "No adjustment" nil)
(const :tag "Renumber" renumber) (const :tag "Renumber" renumber)
(const :tag "Sort" sort) (const :tag "Sort" sort)
(const :tag "Renumber and Sort" t))) (const :tag "Renumber and Sort" t))
:safe (lambda (x)
(memq x '(nil renumber sort t))))
(defcustom org-footnote-fill-after-inline-note-extraction nil (defcustom org-footnote-fill-after-inline-note-extraction nil
"Non-nil means fill paragraphs after extracting footnotes. "Non-nil means fill paragraphs after extracting footnotes.
@ -165,7 +173,8 @@ When extracting inline footnotes, the lengths of lines can change a lot.
When this option is set, paragraphs from which an inline footnote has been When this option is set, paragraphs from which an inline footnote has been
extracted will be filled again." extracted will be filled again."
:group 'org-footnote :group 'org-footnote
:type 'boolean) :type 'boolean
:safe #'booleanp)
;;;; Predicates ;;;; Predicates