diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-30 03:11:30 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-30 03:11:30 +0200 |
| commit | a2ce2cdaa5df07683110ad7965cf2f5a0b96ea65 (patch) | |
| tree | 2ac9f0c0d057a391987245537ac6a51c63c67bb7 | |
| parent | 35f132ddbdd096c2977c9f50ccbbbbea0f259476 (diff) | |
Provide unicode box drawing characters as a possible choice for chess-plain-border-chars via custom :type.
| -rw-r--r-- | chess-plain.el | 37 |
1 files changed, 28 insertions, 9 deletions
diff --git a/chess-plain.el b/chess-plain.el index 54fbab2..73edebe 100644 --- a/chess-plain.el +++ b/chess-plain.el @@ -17,16 +17,35 @@ :type 'boolean) (defcustom chess-plain-border-chars '(?+ ?- ?+ ?| ?| ?+ ?- ?+) - "A list of characters used to draw borders." + "Characters used to draw borders." :group 'chess-plain - :type '(list (character :tag "Upper left corner") - (character :tag "Upper border") - (character :tag "Upper right corner") - (character :tag "Left border") - (character :tag "Right border") - (character :tag "Lower left corner") - (character :tag "Lower border") - (character :tag "Lower right corner"))) + :type '(choice (list :tag "Plain ASCII" + (const :value ?+ :tag "Upper left corner: +") + (const :value ?- :tag "Upper border: -") + (const :value ?+ :tag "Upper right corner: +") + (const :value ?| :tag "Left border: |") + (const :value ?| :tag "Right border: |") + (const :value ?+ :tag "Lower left corrner: +") + (const :value ?- :tag "Lower border: -") + (const :value ?+ :tag "Lower right corner: +")) + (list :tag "Unicode box drawing characters" + (const :value ?┌ :tag "Upper left corner: ┌") + (const :value ?╶ :tag "Upper border: ╶") + (const :value ?┐ :tag "Upper right corner: ┐") + (const :value ?╷ :tag "Left border: ╷") + (const :value ?╷ :tag "Right border: ╷") + (const :value ?└ :tag "Lower left corrner: └") + (const :value ?╶ :tag "Lower border: ╶") + (const :value ?┘ :tag "Lower right corner: ┘")) + (list :tag "Custom" + (character :tag "Upper left corner") + (character :tag "Upper border") + (character :tag "Upper right corner") + (character :tag "Left border") + (character :tag "Right border") + (character :tag "Lower left corner") + (character :tag "Lower border") + (character :tag "Lower right corner")))) (defcustom chess-plain-black-square-char ?. "Character used to indicate empty black squares." |