branch: elpa/keycast
commit 7b7059d5602a7e52c6e90f51396396f17c3a6199
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
keycast-separator-width: Remove option
---
keycast.el | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/keycast.el b/keycast.el
index be1d5586da..a99b8a1980 100644
--- a/keycast.el
+++ b/keycast.el
@@ -99,10 +99,10 @@ with no argument and acts on `selected-window'.
:group 'keycast
:type 'function)
-(defcustom keycast-mode-line-format "%s%k%c%r"
+(defcustom keycast-mode-line-format "%10s%k%c%r"
"The format spec used by `keycast-mode-line'.
-%s `keycast-separator-width' spaces.
+%s Some spaces, intended to be used like so: %10s.
%k The key using the `keycast-key' face and padding.
%K The key with no styling and without any padding.
%c The command using the `keycast-command' face.
@@ -113,11 +113,6 @@ with no argument and acts on `selected-window'.
:group 'keycast
:type 'integer)
-(defcustom keycast-separator-width 10
- "How many spaces to insert before the key binding."
- :group 'keycast
- :type 'integer)
-
(defcustom keycast-substitute-alist nil
"Alist used to substituted events and/or commands for display.
@@ -262,7 +257,7 @@ instead."
"")))
(format-spec
format
- `((?s . ,(make-string keycast-separator-width ?\s))
+ `((?s . "")
(?k . ,(propertize k 'face 'keycast-key))
(?K . ,key)
(?c . ,(propertize c 'face 'keycast-command))
