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

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

[elpa] externals/sketch-mode a715b8a 12/38: Reformat/compactify transien


From: ELPA Syncer
Subject: [elpa] externals/sketch-mode a715b8a 12/38: Reformat/compactify transient
Date: Wed, 15 Sep 2021 16:57:35 -0400 (EDT)

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

    Reformat/compactify transient
---
 sketch-mode.el | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 547e510..0f820af 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -350,21 +350,22 @@ values"
   "Some Emacs magic"
   :transient-suffix     'transient--do-call
   :transient-non-suffix 'transient--do-stay
-  [[("c" "stroke-color" sketch-stroke-color)
-    ("C" "fill-color" sketch-fill-color)]
-   [("w" "stroke-width" sketch-stroke-width)]]
-  ["Object definitions"
-   [("o" "object" sketch-object)]
-   [("m" "end-marker" sketch-object-marker)]]
-  ["Font definitions"
-   [("-f" "family" sketch-select-font)
-    ("-w" "font-weight" sketch-font-weight)]
-   [("-s" "font-size" sketch-font-size)]]
-  ["Grid"
-   ("s" "Snap to grid" sketch-snap)
-   ("g" "Toggle grid" sketch-toggle-grid)]
-  ["Labels"
-   ("l" "Toggle labels" sketch-toggle-labels)]
+  [["General definitions"
+    ("c" "stroke-color" sketch-stroke-color)
+    ("C" "fill-color" sketch-fill-color)
+    ("w" "stroke-width" sketch-stroke-width)]
+   ["Object definitions"
+    ("o" "object" sketch-object)
+    ("m" "end-marker" sketch-object-marker)]
+   ["Font definitions"
+    ("-f" "family" sketch-select-font)
+    ("-w" "font-weight" sketch-font-weight)
+    ("-s" "font-size" sketch-font-size)]
+   ["Grid"
+    ("s" "Snap to grid" sketch-snap)
+    ("g" "Toggle grid" sketch-toggle-grid)]
+   ["Labels"
+    ("l" "Toggle labels" sketch-toggle-labels)]]
   ["Commands"
    [([drag-mouse-1] "Draw object"  sketch-interactively-1)
     ([mouse-1] "Draw text"  sketch-text-interactively)



reply via email to

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