[elpa] externals/sketch-mode f901c50 10/12: Add/improve color keybindings (and fix show toolbar)

[ELPA Syncer]

branch: externals/sketch-mode
commit f901c5004a092897c434a66a8f7e647ef72ec845
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Add/improve color keybindings (and fix show toolbar)
---
 sketch-mode.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 062ea06..7a653a0 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -122,7 +122,8 @@
 
 ;;; Temporary code
 
-;; Overwrite default function until patch to core is applied
+;; Overwrite default function until patch in
+;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=51371 to core is applied
 (defun list-colors-display (&optional list buffer-name callback)
   "Display names of defined colors, and show what they look like.
 If the optional argument LIST is non-nil, it should be a list of
@@ -521,7 +522,8 @@ If value of variable ‘sketch-show-labels' is ‘layer', 
create ..."
                    ([sketch triple-mouse-4] . sketch-rotate-by-5)
                    ([sketch triple-mouse-5] . sketch-rotate-by-min-5)
                    ("a" . sketch-set-action)
-                   ("c" . sketch-set-colors)
+                   ("cs" . sketch-set-colors)
+                   ("cf" . sketch-set-fill-color)
                    ("w" . sketch-set-width)
                    ("sd" . sketch-set-dasharray)
                    ("fw" . sketch-set-font-with-keyboard)
@@ -1467,6 +1469,10 @@ color."
       (set fn color)))
   (sketch-toolbar-refresh))
 
+(defun sketch-set-fill-color ()
+  (interactive)
+  (sketch-set-colors 4))
+
 (defun sketch-set-font-color ()
   (interactive)
   (sketch-set-colors 16))
@@ -1798,7 +1804,7 @@ then insert the image at the end"
   (interactive)
   (let ((win (get-buffer-window "*sketch-toolbar*")))
     (if win
-        (unless arg (delete-window win))
+        (unless show (delete-window win))
       (let ((buffer (get-buffer-create "*sketch-toolbar*")))
         (set-window-dedicated-p
          (display-buffer-in-side-window (get-buffer-create "*sketch-toolbar*")