Differences

This shows you the differences between two versions of the page.

--- geda:guile_scripting [2015/09/23 12:41]
vzh Fixed typos
+++ geda:guile_scripting [2016/02/09 11:56] (current)
vzh Add a link to new page about REPL
@@ Line 15: / Line 15: @@
 ==== Reference documents ====
   * [[gnetlist Scheme primitives]]
+  * [[gschem repl|Using REPL in gschem]]
 ==== Scripting examples ====
@@ Line 20: / Line 21: @@
   * just hit <key>:</key> and enter <code lisp>(load "filename.scm")</code>
   * then hit <key>Enter</key>
+You can install them as well if you don't want to load them every time:
+  * copy the script you want into your //''~/.gEDA''// directory
+  * put the line <code lisp>(load "filename.scm")</code> into your //''~/.gEDA/gschemrc''// (replace //filename.scm// with the real name of the script)
 === Removing objects with specific properties ===
@@ Line 306: / Line 312: @@
 (use-another-func! multiply-by-2)
 </code>
+=== Moving objects using arrows ===
+Let's define actions to move selected objects using
+<key>Shift</key> + arrow keys.
+<file lisp arrow-move.scm>
+(use-modules (gschem selection))
+; Default offset to move
+(define offset 100)
+; Get moving vector
+(define (move-selection direction)
+  (apply translate-objects!
+    (case direction
+      ((left ) (cons (- offset) 0))
+      ((right) (cons (+ offset) 0))
+      ((down ) (cons 0 (- offset)))
+      ((up   ) (cons 0 (+ offset)))
+      (else #f))
+    (page-selection (active-page))))
+; Define actions
+(define (&move-selection-left ) (move-selection 'left ))
+(define (&move-selection-right) (move-selection 'right))
+(define (&move-selection-down ) (move-selection 'down ))
+(define (&move-selection-up   ) (move-selection 'up   ))
+; Define shortcuts
+(global-set-key "<Shift>Left"  '&move-selection-left)
+(global-set-key "<Shift>Right" '&move-selection-right)
+(global-set-key "<Shift>Up"    '&move-selection-up)
+(global-set-key "<Shift>Down"  '&move-selection-down)
+</file>
+The following script redefines current shortcuts so that if
+nothing is selected the canvas is moved with arrow keys (without
+<key>Shift</key> in this case), otherwise selected objects are
+moved.
+<file lisp arrow-move2.scm>
+(use-modules (gschem selection))
+; Default offset to move
+(define offset 100)
+; Get moving vector
+(define (move-selection direction)
+  (let ((selection (page-selection (active-page))))
+    (if (null? selection)
+      ; default behaviour
+      (case direction
+          ((left ) (&view-pan-left))
+          ((right) (&view-pan-right))
+          ((down ) (&view-pan-down))
+          ((up   ) (&view-pan-up))
+          (else #f))
+      ; modified behaviour
+      (apply translate-objects!
+        (case direction
+          ((left ) (cons (- offset) 0))
+          ((right) (cons (+ offset) 0))
+          ((down ) (cons 0 (- offset)))
+          ((up   ) (cons 0 (+ offset)))
+          (else #f))
+        (page-selection (active-page))))
+    ))
+; Define actions
+(define (&move-selection-left ) (move-selection 'left ))
+(define (&move-selection-right) (move-selection 'right))
+(define (&move-selection-down ) (move-selection 'down ))
+(define (&move-selection-up   ) (move-selection 'up   ))
+; Define shortcuts
+(global-set-key "Left"  '&move-selection-left)
+(global-set-key "Right" '&move-selection-right)
+(global-set-key "Up"    '&move-selection-up)
+(global-set-key "Down"  '&move-selection-down)
+</file>

gEDA Project Wiki

User Tools

Site Tools

Differences

Page Tools