|
|
|
@ -2,70 +2,71 @@
|
|
|
|
(require-builtin helix/core/static as helix.static.)
|
|
|
|
(require-builtin helix/core/static as helix.static.)
|
|
|
|
(require-builtin helix/core/keybindings as helix.keybindings.)
|
|
|
|
(require-builtin helix/core/keybindings as helix.keybindings.)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide set-theme-dracula
|
|
|
|
(provide
|
|
|
|
set-theme-dracula__doc__
|
|
|
|
set-theme-dracula
|
|
|
|
set-theme-custom
|
|
|
|
set-theme-dracula__doc__
|
|
|
|
set-theme-custom__doc__
|
|
|
|
set-theme-custom
|
|
|
|
theme-then-vsplit
|
|
|
|
set-theme-custom__doc__
|
|
|
|
theme-then-vsplit__doc__
|
|
|
|
theme-then-vsplit
|
|
|
|
custom-undo
|
|
|
|
theme-then-vsplit__doc__
|
|
|
|
custom-undo__doc__
|
|
|
|
custom-undo
|
|
|
|
lam
|
|
|
|
custom-undo__doc__
|
|
|
|
lam__doc__
|
|
|
|
lam
|
|
|
|
delete-word-forward
|
|
|
|
lam__doc__
|
|
|
|
insert-string-at-selection
|
|
|
|
delete-word-forward
|
|
|
|
highlight-to-matching-paren
|
|
|
|
insert-string-at-selection
|
|
|
|
highlight-to-matching-paren__doc__
|
|
|
|
highlight-to-matching-paren
|
|
|
|
delete-sexpr
|
|
|
|
highlight-to-matching-paren__doc__
|
|
|
|
delete-sexpr__doc__
|
|
|
|
delete-sexpr
|
|
|
|
run-expr
|
|
|
|
delete-sexpr__doc__
|
|
|
|
run-highlight
|
|
|
|
run-expr
|
|
|
|
make-minor-mode!
|
|
|
|
run-highlight
|
|
|
|
git-status
|
|
|
|
make-minor-mode!
|
|
|
|
|
|
|
|
git-status
|
|
|
|
reload-helix-scm
|
|
|
|
reload-helix-scm)
|
|
|
|
static-format)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Sets the theme to be the dracula theme
|
|
|
|
;; Sets the theme to be the dracula theme
|
|
|
|
(define (set-theme-dracula cx)
|
|
|
|
(define (set-theme-dracula cx)
|
|
|
|
(helix.theme cx (list "dracula") helix.PromptEvent::Validate))
|
|
|
|
(helix.theme cx (list "dracula") helix.PromptEvent::Validate))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(enqueue-callback! 'helix.static.format)
|
|
|
|
|
|
|
|
(enqueue-callback! 'set-theme-dracula)
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Sets the theme to be the theme passed in
|
|
|
|
;; Sets the theme to be the theme passed in
|
|
|
|
(define (set-theme-custom cx entered-theme)
|
|
|
|
(define (set-theme-custom cx entered-theme)
|
|
|
|
(helix.theme cx (list entered-theme) helix.PromptEvent::Validate))
|
|
|
|
(helix.theme cx (list entered-theme) helix.PromptEvent::Validate))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Switch theme to the entered theme, then split the current file into
|
|
|
|
;; Switch theme to the entered theme, then split the current file into
|
|
|
|
;; a vsplit
|
|
|
|
;; a vsplit
|
|
|
|
(define (theme-then-vsplit cx entered-theme)
|
|
|
|
(define (theme-then-vsplit cx entered-theme)
|
|
|
|
(set-theme-custom cx entered-theme)
|
|
|
|
(set-theme-custom cx entered-theme)
|
|
|
|
(helix.vsplit cx '() helix.PromptEvent::Validate))
|
|
|
|
(helix.vsplit cx '() helix.PromptEvent::Validate))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Perform an undo
|
|
|
|
;; Perform an undo
|
|
|
|
(define (custom-undo cx)
|
|
|
|
(define (custom-undo cx)
|
|
|
|
(helix.static.undo cx))
|
|
|
|
(helix.static.undo cx))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Insert a lambda
|
|
|
|
;; Insert a lambda
|
|
|
|
(define (lam cx)
|
|
|
|
(define (lam cx)
|
|
|
|
(helix.static.insert_char cx #\λ)
|
|
|
|
(helix.static.insert_char cx #\λ)
|
|
|
|
(helix.static.insert_mode cx))
|
|
|
|
(helix.static.insert_mode cx))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Insert the string at the selection and go back into insert mode
|
|
|
|
;; Insert the string at the selection and go back into insert mode
|
|
|
|
(define (insert-string-at-selection cx str)
|
|
|
|
(define (insert-string-at-selection cx str)
|
|
|
|
(helix.static.insert_string cx str)
|
|
|
|
(helix.static.insert_string cx str)
|
|
|
|
(helix.static.insert_mode cx))
|
|
|
|
(helix.static.insert_mode cx))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Delete the word forward
|
|
|
|
;; Delete the word forward
|
|
|
|
(define (delete-word-forward cx)
|
|
|
|
(define (delete-word-forward cx)
|
|
|
|
(helix.static.delete_word_forward cx))
|
|
|
|
(helix.static.delete_word_forward cx))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Registers a minor mode with the registered modifer and key map
|
|
|
|
;; Registers a minor mode with the registered modifer and key map
|
|
|
|
@ -76,102 +77,84 @@
|
|
|
|
;; (hash "P" ":lam"))
|
|
|
|
;; (hash "P" ":lam"))
|
|
|
|
;; ```
|
|
|
|
;; ```
|
|
|
|
(define (make-minor-mode! modifier bindings)
|
|
|
|
(define (make-minor-mode! modifier bindings)
|
|
|
|
(~> (hash "normal" (hash modifier bindings))
|
|
|
|
(~> (hash "normal" (hash modifier bindings))
|
|
|
|
(value->jsexpr-string)
|
|
|
|
(value->jsexpr-string)
|
|
|
|
(helix.keybindings.set-keybindings!)))
|
|
|
|
(helix.keybindings.set-keybindings!)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define-syntax minor-mode!
|
|
|
|
(define-syntax minor-mode!
|
|
|
|
(syntax-rules (=>)
|
|
|
|
(syntax-rules (=>)
|
|
|
|
[(minor-mode! modifier (key => function))
|
|
|
|
[(minor-mode! modifier (key => function))
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => function)))]
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => function)))]
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode! modifier (key => (function ...)))
|
|
|
|
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => (function ...))))]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode! modifier (key => function) remaining ...)
|
|
|
|
[(minor-mode! modifier (key => (function ...)))
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => function) remaining ...))]
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => (function ...))))]
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode! modifier (key => (function ...)) remaining ...)
|
|
|
|
[(minor-mode! modifier (key => function) remaining ...)
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => function) ... remaining ...))]
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => function) remaining ...))]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode! modifier (key => (function ...)) remaining ...)
|
|
|
|
|
|
|
|
(make-minor-mode! modifier (minor-mode-cruncher (key => function) ... remaining ...))]))
|
|
|
|
))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define-syntax minor-mode-cruncher
|
|
|
|
(define-syntax minor-mode-cruncher
|
|
|
|
(syntax-rules (=>)
|
|
|
|
(syntax-rules (=>)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode-cruncher (key => (function ...)))
|
|
|
|
|
|
|
|
(hash key (map (lambda (x)
|
|
|
|
|
|
|
|
(string-append ":" (symbol->string x)))
|
|
|
|
|
|
|
|
(quote (function ...))))]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode-cruncher (key => function))
|
|
|
|
[(minor-mode-cruncher (key => (function ...)))
|
|
|
|
(hash key (string-append ":" (symbol->string (quote function))))]
|
|
|
|
(hash key (map (lambda (x) (string-append ":" (symbol->string x))) (quote (function ...))))]
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode-cruncher (key => (function ...)) remaining ...)
|
|
|
|
[(minor-mode-cruncher (key => function))
|
|
|
|
(hash-insert
|
|
|
|
(hash key (string-append ":" (symbol->string (quote function))))]
|
|
|
|
(minor-mode-cruncher remaining ...)
|
|
|
|
|
|
|
|
key (map (lambda (x)
|
|
|
|
|
|
|
|
(string-append ":" (symbol->string x)))
|
|
|
|
|
|
|
|
(quote (function ...))))]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode-cruncher (key => function) remaining ...)
|
|
|
|
[(minor-mode-cruncher (key => (function ...)) remaining ...)
|
|
|
|
(hash-insert
|
|
|
|
(hash-insert (minor-mode-cruncher remaining ...)
|
|
|
|
(minor-mode-cruncher remaining ...)
|
|
|
|
key
|
|
|
|
key
|
|
|
|
(map (lambda (x) (string-append ":" (symbol->string x))) (quote (function ...))))]
|
|
|
|
(string-append ":" (symbol->string (quote function))))]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[(minor-mode-cruncher (key => function) remaining ...)
|
|
|
|
|
|
|
|
(hash-insert (minor-mode-cruncher remaining ...)
|
|
|
|
))
|
|
|
|
key
|
|
|
|
|
|
|
|
(string-append ":" (symbol->string (quote function))))]))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Highlight to the matching paren
|
|
|
|
;; Highlight to the matching paren
|
|
|
|
(define (highlight-to-matching-paren cx)
|
|
|
|
(define (highlight-to-matching-paren cx)
|
|
|
|
(helix.static.select_mode cx)
|
|
|
|
(helix.static.select_mode cx)
|
|
|
|
(helix.static.match_brackets cx))
|
|
|
|
(helix.static.match_brackets cx))
|
|
|
|
|
|
|
|
|
|
|
|
(define (run-expr cx)
|
|
|
|
(define (run-expr cx)
|
|
|
|
(define current-selection (helix.static.current_selection cx))
|
|
|
|
(define current-selection (helix.static.current_selection cx))
|
|
|
|
(when (or (equal? "(" current-selection)
|
|
|
|
(when (or (equal? "(" current-selection) (equal? ")" current-selection))
|
|
|
|
(equal? ")" current-selection))
|
|
|
|
(highlight-to-matching-paren cx)
|
|
|
|
(highlight-to-matching-paren cx)
|
|
|
|
(helix.static.run-in-engine! cx (helix.static.current-highlighted-text! cx))
|
|
|
|
(helix.static.run-in-engine! cx (helix.static.current-highlighted-text! cx))
|
|
|
|
(helix.static.normal_mode cx)))
|
|
|
|
(helix.static.normal_mode cx)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define (run-highlight cx)
|
|
|
|
(define (run-highlight cx)
|
|
|
|
(helix.static.run-in-engine! cx (helix.static.current-highlighted-text! cx)))
|
|
|
|
(helix.static.run-in-engine! cx (helix.static.current-highlighted-text! cx)))
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
;;@doc
|
|
|
|
;; Delete the s-expression matching this bracket
|
|
|
|
;; Delete the s-expression matching this bracket
|
|
|
|
;; If the current selection is not on a bracket, this is a no-op
|
|
|
|
;; If the current selection is not on a bracket, this is a no-op
|
|
|
|
(define (delete-sexpr cx)
|
|
|
|
(define (delete-sexpr cx)
|
|
|
|
(define current-selection (helix.static.current_selection cx))
|
|
|
|
(define current-selection (helix.static.current_selection cx))
|
|
|
|
(when (or (equal? "(" current-selection)
|
|
|
|
(when (or (equal? "(" current-selection) (equal? ")" current-selection))
|
|
|
|
(equal? ")" current-selection))
|
|
|
|
(highlight-to-matching-paren cx)
|
|
|
|
(highlight-to-matching-paren cx)
|
|
|
|
(helix.static.delete_selection cx)))
|
|
|
|
(helix.static.delete_selection cx)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; (minor-mode! "+" ("l" => lam)
|
|
|
|
; (minor-mode! "+" ("l" => lam)
|
|
|
|
; ("q" => (set-theme-dracula lam)))
|
|
|
|
; ("q" => (set-theme-dracula lam)))
|
|
|
|
|
|
|
|
|
|
|
|
(minor-mode! "P" ("l" => lam)
|
|
|
|
(minor-mode! "P"
|
|
|
|
("p" => highlight-to-matching-paren)
|
|
|
|
("l" => lam)
|
|
|
|
("d" => delete-sexpr)
|
|
|
|
("p" => highlight-to-matching-paren)
|
|
|
|
("r" => run-expr))
|
|
|
|
("d" => delete-sexpr)
|
|
|
|
|
|
|
|
("r" => run-expr))
|
|
|
|
|
|
|
|
|
|
|
|
(make-minor-mode! "+" (hash "l" ":lam"))
|
|
|
|
(make-minor-mode! "+" (hash "l" ":lam"))
|
|
|
|
|
|
|
|
|
|
|
|
(define (git-status cx)
|
|
|
|
(define (git-status cx)
|
|
|
|
(helix.run-shell-command cx '("git" "status") helix.PromptEvent::Validate))
|
|
|
|
(helix.run-shell-command cx '("git" "status") helix.PromptEvent::Validate))
|
|
|
|
|
|
|
|
|
|
|
|
(minor-mode! "G" ("s" => git-status))
|
|
|
|
(minor-mode! "G" ("s" => git-status))
|
|
|
|
|
|
|
|
|
|
|
|
(define (reload-helix-scm cx)
|
|
|
|
(define (reload-helix-scm cx)
|
|
|
|
(helix.static.run-in-engine! cx
|
|
|
|
(helix.static.run-in-engine! cx
|
|
|
|
(string-append "(require \"" (helix.static.get-helix.scm-path) "\")")))
|
|
|
|
(string-append "(require \"" (helix.static.get-helix.scm-path) "\")")))
|
|
|
|
|
mattwparas
1 year ago