branch: externals/valign
commit 62766e7e289a510c13eed79b5ca963a48a39ef8a
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
Add custom group
* valign.el (valign): New custom group.
(valign-fancy-bar): Move up.
---
valign.el | 22 +++++++++++++---------
1 file changed, 13 insertions(+), 9 deletions(-)
diff --git a/valign.el b/valign.el
index 2bc0898..70b2619 100644
--- a/valign.el
+++ b/valign.el
@@ -71,11 +71,23 @@
(require 'cl-lib)
(require 'pcase)
+(defgroup valign
+ '((valign-lighter custom-variable)
+ (valign-fancy-bar custom-variable))
+ "Visually align text tables on GUI."
+ :group 'text)
+
(defcustom valign-lighter " valign"
"The lighter string used by function `valign-mode'."
- :group 'valign
:type 'string)
+(defcustom valign-fancy-bar nil
+ "Non-nil means to render bar as a full-height line.
+You need to restart valign mode for this setting to take effect."
+ :type '(choice
+ (const :tag "Enable fancy bar" t)
+ (const :tag "Disable fancy bar" nil)))
+
;;; Backstage
(define-error 'valign-not-gui "Valign only works in GUI environment")
@@ -965,14 +977,6 @@ FLAG is the same as in ‘org-flag-region’."
;;; Userland
-(defcustom valign-fancy-bar nil
- "Non-nil means to render bar as a full-height line.
-You need to restart valign mode for this setting to take effect."
- :type '(choice
- (const :tag "Enable fancy bar" t)
- (const :tag "Disable fancy bar" nil))
- :group 'valign)
-
;;;###autoload
(defun valign-table ()
"Visually align the table at point."
