Add open file key-bind
Build and Deploy Docs / build (push) Failing after 40s

This commit is contained in:
Arthur Barraux
2025-10-05 21:44:58 +02:00
parent 9157b94398
commit 9348ae668a
12 changed files with 88 additions and 28 deletions
+10 -5
View File
@@ -1,8 +1,9 @@
(define TAB-LENGTH 2)
;; MACROS
(define TAB-LENGTH 4)
(define QUIT-TIMES 1)
(map-key "CTRL-q" editor-quit)
(map-key "CTRL-s" editor-save)
;; FUNCTIONS
(define editor-delete-next-char (lambda () (
(move-cursor "right")
@@ -12,6 +13,10 @@
)
;; KEY MAPPING
(map-key "CTRL-q" editor-quit)
(map-key "CTRL-s" editor-save)
(map-key "ARROW-UP" '(move-cursor "up"))
(map-key "ARROW-DOWN" '(move-cursor "down"))
(map-key "ARROW-RIGHT" '(move-cursor "right"))
@@ -23,7 +28,7 @@
(map-key "DEL" editor-delete-next-char)
(map-key "PAGE-UP" move-cursor-page-up)
(map-key "PAGE-DOWN" move-cursor-page-down)
; Key binds
(map-key "CTRL-o" editor-open-file)