emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ergoemacs-mode 18f27c0 204/325: Fix SPC svg help


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode 18f27c0 204/325: Fix SPC svg help
Date: Sat, 23 Oct 2021 18:48:54 -0400 (EDT)

branch: externals/ergoemacs-mode
commit 18f27c084cf736573741677d7858ac94b054a337
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Fix SPC svg help
---
 ergoemacs-theme-engine.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index cd67c36..0de4141 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -654,7 +654,10 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
       ((and (listp elt) (or (integerp (car elt))
                             (stringp (car elt))))
        (if (stringp (car elt))
-           (setq key "f#")
+           (if (string= (car elt) "SPC")
+               (setq key " ")
+             (setq key "f#")
+             )
          (setq key (nth (car elt) layout)))
        (if (string= key "") ""
          (if (string= key "f#")
@@ -665,7 +668,8 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
          (when (equal key [27])
            (setq no-push-p t))
          (when ergoemacs-theme--svg-prefix
-           (setq key (vconcat ergoemacs-theme--svg-prefix key)))
+           (setq key (vconcat ergoemacs-theme--svg-prefix key))
+           )
          (setq binding (or
                         (lookup-key ergoemacs-override-keymap key)
                         ;; TODO: Use only the ergoemacs global map,
@@ -784,7 +788,7 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
                        ((string= "" (match-string 2))
                         (push 'meta ergoemacs-theme--svg))
                        ((string= "-SPC" (match-string 2))
-                        (push (list 32 'meta) ergoemacs-theme--svg))
+                        (push (list "SPC" 'meta) ergoemacs-theme--svg))
                        ((string-match-p "^F" (match-string 2))
                         (push (list (match-string 2) 'meta) 
ergoemacs-theme--svg))
                        (t
@@ -794,7 +798,7 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
                        ((string= "" (match-string 2))
                         (push 'meta-shift ergoemacs-theme--svg))
                        ((string= "-SPC" (match-string 2))
-                        (push (list 32 'meta 'shift) ergoemacs-theme--svg))
+                        (push (list "SPC" 'meta 'shift) ergoemacs-theme--svg))
                        ((string-match-p "^F" (match-string 2))
                         (push (list (match-string 2) 'meta 'shift) 
ergoemacs-theme--svg))
                        (t
@@ -804,7 +808,7 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
                        ((string= "" (match-string 2))
                         (push 'control-shift ergoemacs-theme--svg))
                        ((string= "-SPC" (match-string 2))
-                        (push (list 32 'control 'shift) ergoemacs-theme--svg))
+                        (push (list "SPC" 'control 'shift) 
ergoemacs-theme--svg))
                        ((string-match-p "^F" (match-string 2))
                         (push (list (match-string 2) 'control 'shift) 
ergoemacs-theme--svg))
                        (t
@@ -814,7 +818,7 @@ See also `find-function-recenter-line' and 
`find-function-after-hook'."
                        ((string= "" (match-string 2))
                         (push 'control ergoemacs-theme--svg))
                        ((string= "-SPC" (match-string 2))
-                        (push (list 32 'control) ergoemacs-theme--svg))
+                        (push (list "SPC" 'control) ergoemacs-theme--svg))
                        ((string-match-p "^F" (match-string 2))
                         (push (list (match-string 2) 'control) 
ergoemacs-theme--svg))
                        (t



reply via email to

[Prev in Thread] Current Thread [Next in Thread]