about summary refs log tree commit diff
path: root/exwm-input.el
diff options
context:
space:
mode:
authorIan Eure <ian@retrospec.tv>2019-02-02T00·55-0800
committerChris Feng <chris.w.feng@gmail.com>2019-02-06T00·00+0000
commitec108a61dc38f84a3b290f022929331e97784842 (patch)
tree6d3359c420940129af746b2af071d3e7b12933b1 /exwm-input.el
parent0f7269c4ec666eb8bcf2616abbb5af46087cbdea (diff)
Cleanup simulation key config issues
* exwm-input.el (exwm-input-simulation-keys): Original key only has
one option, so probably shouldn’t be a `choice` type; Move the
"User-defined" key value to the top, since that’s the one someone is
most likely to want).

* exwm-config.el (exwm-config-default): Only set custom vars if there
isn’t a saved value for them.
Diffstat (limited to 'exwm-input.el')
-rw-r--r--exwm-input.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/exwm-input.el b/exwm-input.el
index 4f64d35dd63d..04020acfaf2e 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -915,8 +915,9 @@ Notes:
 * The predefined examples in the Customize interface are not guaranteed to
   work for all applications.  This can be tweaked on a per application basis
   with `exwm-input-set-local-simulation-keys'."
-  :type '(alist :key-type (choice (key-sequence :tag "Original"))
-                :value-type (choice (key-sequence :tag "Move left" [left])
+  :type '(alist :key-type (key-sequence :tag "Original")
+                :value-type (choice (key-sequence :tag "User-defined")
+                                    (key-sequence :tag "Move left" [left])
                                     (key-sequence :tag "Move right" [right])
                                     (key-sequence :tag "Move up" [up])
                                     (key-sequence :tag "Move down" [down])
@@ -928,8 +929,7 @@ Notes:
                                     (key-sequence :tag "Paste" [C-v])
                                     (key-sequence :tag "Delete" [delete])
                                     (key-sequence :tag "Delete to EOL"
-                                                  [S-end delete])
-                                    (key-sequence :tag "User-defined")))
+                                                  [S-end delete])))
   :set (lambda (symbol value)
          (set symbol value)
          (exwm-input--set-simulation-keys value)))