|
| 1 | +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 2 | +; |
| 3 | +; Author : $Author$ |
| 4 | +; Created By : <unknown> |
| 5 | +; Created : Mon Mar 25 17:52:20 2024 |
| 6 | +; Last Modified : <240325.2006> |
| 7 | +; |
| 8 | +; Description |
| 9 | +; |
| 10 | +; Notes |
| 11 | +; |
| 12 | +; History |
| 13 | +; |
| 14 | +; Copyright (c) 2024 <unknown>. |
| 15 | +; |
| 16 | +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 17 | +; Geany like bindings (Jeany - C-j) |
| 18 | +0 define-macro jeany-select-all |
| 19 | + set-position "\x81" |
| 20 | + beginning-of-buffer |
| 21 | + -3 show-region |
| 22 | + end-of-buffer |
| 23 | + 3 show-region |
| 24 | + goto-position "\x81" |
| 25 | + show-region |
| 26 | +!emacro |
| 27 | + |
| 28 | +define-macro jeany-bindings |
| 29 | + !force global-unbind-key "C-j" |
| 30 | + 5 global-bind-key prefix "C-j" |
| 31 | + ; file commands |
| 32 | + global-bind-key save-buffer "C-j C-s" |
| 33 | + global-bind-key delete-buffer "C-j C-w" |
| 34 | + global-bind-key exit-emacs "C-j C-q" |
| 35 | + global-bind-key find-file "C-j C-o" |
| 36 | + global-bind-key find-file "C-j C-n" |
| 37 | + global-bind-key reread-file "C-j C-r" |
| 38 | + global-bind-key print-buffer "C-j C-p" |
| 39 | + ; edit commands |
| 40 | + global-bind-key undo "C-j C-z" |
| 41 | + global-bind-key kill-region "C-j C-x" |
| 42 | + global-bind-key copy-region "C-j C-c" |
| 43 | + global-bind-key yank "C-j C-v" ; paste |
| 44 | + global-bind-key reyank "C-j V" ; walk through the paste buffer |
| 45 | + global-bind-key jeany-select-all "C-j C-a" |
| 46 | + global-bind-key isearch-forward "C-j C-f" ; search forward |
| 47 | + global-bind-key hunt-forward "C-j C-g" ; repeat search forward |
| 48 | + global-bind-key hunt-backward "C-j G" ; repeat search backward |
| 49 | + ;global-bind-key osd-redo "C-j C-y" |
| 50 | + global-bind-key goto-line "C-j C-l" |
| 51 | + 1 global-bind-key change-font-size "C-j C-+" |
| 52 | + -1 global-bind-key change-font-size "C-j C--" |
| 53 | + 500 ml-write "installed jeany bindings like C-j C-s (save), C-j C-q (exit) ..." |
| 54 | +!emacro |
| 55 | + |
| 56 | +define-macro jeany-osd |
| 57 | + osd 1 10 "" "\HNew C-j C-o" f osd-new-buffer ; Create a new document |
| 58 | + osd 1 20 "" "\HOpen... C-j C-o" f osd-file-open ; Find a new file |
| 59 | + osd 1 50 "" "\HClose C-j C-w" f osd-close |
| 60 | + osd 1 80 "" "\HSave C-j C-s" f osd-save ; Save the buffer |
| 61 | + osd 1 140 "" "\HPrint C-j C-p" f print-buffer ; Print |
| 62 | + osd 1 210 "" "E\Hxit C-j C-q" f save-buffers-exit-emacs |
| 63 | + ; edit menu |
| 64 | + osd 2 10 "" "\HUndo C-j C-z" 1 osd-undo ; Undo the last command |
| 65 | + osd 2 50 "" "Cu\Ht C-j C-x" f kill-region ; Kill off the region |
| 66 | + osd 2 60 "" "\HCopy C-j C-c" f copy-region ; Copy the region |
| 67 | + osd 2 70 "" "\HPaste C-j C-v" f yank ; Paste text |
| 68 | + osd 2 100 "" "\HSelect All C-j C-a" f jeany-select-all ; Select all text |
| 69 | + ;osd 2 110 "D" |
| 70 | + osd 2 90 "D" ; deleting entry |
| 71 | + ; search menu |
| 72 | + osd 3 10 "" "Incremental \HSearch C-j C-f" f isearch-forward |
| 73 | + osd 3 40 "" "\HFind..." 1 osd-search |
| 74 | + osd 3 50 "" "Find \HNext C-j C-g" f hunt-forward |
| 75 | + osd 3 60 "" "Find \HPrevious C-j G" f hunt-backward |
| 76 | + osd 3 70 "" "\HReplace C-j C-h" 2 osd-search |
| 77 | + osd 3 150 "" "Goto \HLine... C-j C-l" f osd-goto-line |
| 78 | +!emacro |
| 79 | + |
| 80 | +define-macro jeany-osd-undo |
| 81 | + osd 1 10 "" "\HNew" f osd-new-buffer ; Create a new document |
| 82 | + osd 1 20 "" "\HOpen... C-x C-f" f osd-file-open |
| 83 | + osd 1 50 "" "\HClose C-x k" f osd-close |
| 84 | + osd 1 80 "" "\HSave C-x C-s" f osd-save |
| 85 | + osd 1 140 "" "\HPrint" f print-buffer |
| 86 | + osd 1 210 "" "E\Hxit C-x C-c" f save-buffers-exit-emacs |
| 87 | + ; edit menu |
| 88 | + osd 2 10 "" "\HUndo C-x u" 1 osd-undo ; Undo the last command |
| 89 | + osd 2 20 "" "Redo " ; Re-do the last osd-undo |
| 90 | + osd 2 50 "" "\HSet Mark esc space" f set-mark |
| 91 | + osd 2 60 "" "\HCopy Region esc w" f copy-region |
| 92 | + osd 2 70 "" "\HKill Region C-w" f kill-region |
| 93 | + osd 2 80 "" "\HDelete Region" -1 kill-region |
| 94 | + osd 2 90 "" "\HPaste Region C-y" f yank |
| 95 | + osd 2 100 "" "Kill R\Hectangle esc C-w" f kill-rectangle |
| 96 | + osd 2 110 "" "C\Hopy Rectangle" f copy-rectangle |
| 97 | + ; search menu |
| 98 | + osd 3 10 "" "Incremental \HSearch C-s" f isearch-forward |
| 99 | + osd 3 40 "" "\HFind... C-x C-s" 1 osd-search |
| 100 | + osd 3 50 "" "Find \HNext C-x h" f hunt-forward |
| 101 | + osd 3 60 "" "Find \HPrev C-x C-h" f hunt-backward |
| 102 | + osd 3 70 "" "\HReplace... esc C-r" 2 osd-search |
| 103 | + osd 3 150 "" "Goto \HLine... esc g" f osd-goto-line |
| 104 | +!emacro |
0 commit comments