(load "./commonrc") (define-module (ice-9 ls) :use-module (ice-9 common-list) :use-module (ice-9 string-fun)) (define gnetlist-keymap '(("n" . generate-netlist) ("e" . generate-entity))) ; All keys in the global-keymap *must* be unique (define global-keymap '(("Escape" . cancel) ("a" . add-keymap) ("b" . add-box-hotkey) ("c" . edit-copy-hotkey) ("d" . edit-delete) ("e" . edit-keymap) ("f" . file-keymap) ("g" . gnetlist-keymap) ("h" . help-keymap) ("i" . add-component) ("l" . add-line-hotkey) ("m" . edit-move-hotkey) ("n" . add-net-hotkey) ("o" . options-keymap) ("p" . page-keymap) ("r" . view-redraw) ("s" . edit-select) ("t" . attributes-keymap) ("u" . add-bus-hotkey) ("v" . view-keymap) ("w" . view-zoom-box-hotkey) ("x" . view-pan-hotkey) ("y" . buffer-keymap) ("z" . view-zoom-in-hotkey) ("period" . repeat-last-command) ("comma" . misc-misc) ("equal" . misc-misc2) ("Shift plus" . misc-misc3) ("Delete" . edit-delete) ("Shift greater" . page-next) ("Shift less" . page-prev) ("Alt q" . file-quit) ("Shift H" . hierarchy-keymap) ("Shift U" . edit-undo) ("Shift R" . edit-redo) ("Shift Z" . view-zoom-out-hotkey))) (set! current-keymap global-keymap) (attribute-promotion "enabled") (promote-invisible "enabled") (keep-invisible "enabled") (enforce-hierarchy "disabled") (attribute-name "port_object") (attribute-name "port_type") (attribute-name "port_mode") (attribute-name "entity") (attribute-name "architecture") (load (string-append examples-path "/../../../gschem/scheme/generate_netlist.scm")) (define vhdl-path (string-append examples-path "/vhdl/new-vhdl")) (display "loaded local gschemrc\n")