suimeng
/
helix
mirror of https://github.com/helix-editor/helix
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

update instructions

pull/8675/merge^2
mattwparas 2024-07-01 13:12:49 -07:00
parent 4a8c4fbea5
commit 039526bda8
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
STEEL.md
View File

@ -63,7 +63,7 @@ to be used as typed commands. For example:
(define (shell cx . args) (define (shell cx . args)
;; Replace the % with the current file ;; Replace the % with the current file
(define expanded (map (lambda (x) (if (equal? x "%") (current-path cx) x)) args)) (define expanded (map (lambda (x) (if (equal? x "%") (current-path cx) x)) args))
(helix.run-shell-command cx expanded helix.PromptEvent::Validate)) (helix.run-shell-command expanded))
;;@doc ;;@doc
;; Adds the current file to git ;; Adds the current file to git
@ -72,15 +72,13 @@ to be used as typed commands. For example:
;; Functions to assist with the above ;; Functions to assist with the above
(define (editor-get-doc-if-exists editor doc-id) (define (editor-get-doc-if-exists editor doc-id)
(if (editor-doc-exists? editor doc-id) (editor->get-document editor doc-id) #f)) (if (editor-doc-exists? editor doc-id) (editor->get-document editor doc-id) #f))
(define (current-path cx) (define (current-path)
(let* ([editor (cx-editor! cx)] (let* ([focus (editor-focus)]
[focus (editor-focus editor)] [focus-doc-id (editor->doc-id focus)]
[focus-doc-id (editor->doc-id editor focus)] [document (editor-get-doc-if-exists focus-doc-id)])
[document (editor-get-doc-if-exists editor focus-doc-id)])
(if document (Document-path document) #f))) (if document (Document-path document) #f)))
@ -93,15 +91,13 @@ to be used as typed commands. For example:
;;@doc ;;@doc
;; Open the helix.scm file ;; Open the helix.scm file
(define (open-helix-scm cx) (define (open-helix-scm)
(helix.open cx (list (helix.static.get-helix-scm-path)) helix.PromptEvent::Validate)) (helix.open (helix.static.get-helix-scm-path)))
;;@doc ;;@doc
;; Opens the init.scm file ;; Opens the init.scm file
(define (open-init-scm cx) (define (open-init-scm)
(helix.open cx (list (helix.static.get-init-scm-path)) helix.PromptEvent::Validate)) (helix.open (helix.static.get-init-scm-path)))
``` ```
@ -137,7 +133,7 @@ For example, if we wanted to select a random theme at startup:
(define (randomly-pick-theme options) (define (randomly-pick-theme options)
;; Randomly select the theme from the possible themes list ;; Randomly select the theme from the possible themes list
(helix.theme *helix.cx* (list (select-random options)) helix.PromptEvent::Validate)) (helix.theme *helix.cx* (list (select-random options))))
(randomly-pick-theme possible-themes) (randomly-pick-theme possible-themes)