|
|
|
@ -57,7 +57,7 @@ to be used as typed commands. For example:
|
|
|
|
|
(require-builtin helix/core/static as helix.static.)
|
|
|
|
|
(require-builtin helix/core/keybindings as helix.keybindings.)
|
|
|
|
|
|
|
|
|
|
(provide shell git-add)
|
|
|
|
|
(provide shell git-add open-helix-scm open-init-scm reload-helix-scm)
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
|
;; Specialized shell implementation, where % is a wildcard for the current file
|
|
|
|
@ -85,6 +85,24 @@ to be used as typed commands. For example:
|
|
|
|
|
|
|
|
|
|
(if document (Document-path document) #f)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
|
;; Reload the helix.scm file
|
|
|
|
|
(define (reload-helix-scm cx)
|
|
|
|
|
(helix.static.run-in-engine! cx
|
|
|
|
|
(string-append "(require \"" (helix.static.get-helix-scm-path) "\")")))
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
|
;; Open the helix.scm file
|
|
|
|
|
(define (open-helix-scm cx)
|
|
|
|
|
(helix.open cx (list (helix.static.get-helix-scm-path)) helix.PromptEvent::Validate))
|
|
|
|
|
|
|
|
|
|
;;@doc
|
|
|
|
|
;; Opens the init.scm file
|
|
|
|
|
(define (open-init-scm cx)
|
|
|
|
|
(helix.open cx (list (helix.static.get-init-scm-path)) helix.PromptEvent::Validate))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
```
|
|
|
|
|