From 30824f6bd2b86c3512d5aa28904c31222a4605ee Mon Sep 17 00:00:00 2001 From: mattwparas Date: Wed, 30 Oct 2024 16:43:38 -0700 Subject: [PATCH] update STEEL.md --- STEEL.md | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/STEEL.md b/STEEL.md index 522e063d8..1120f3a0e 100644 --- a/STEEL.md +++ b/STEEL.md @@ -55,17 +55,10 @@ to be used as typed commands. For example: (define (git-add cx) (shell cx "git" "add" "%")) - -;; Functions to assist with the above -(define (editor-get-doc-if-exists doc-id) - (if (editor-doc-exists? doc-id) (editor->get-document doc-id) #f)) - (define (current-path) (let* ([focus (editor-focus)] - [focus-doc-id (editor->doc-id focus)] - [document (editor-get-doc-if-exists focus-doc-id)]) - - (if document (Document-path document) #f))) + [focus-doc-id (editor->doc-id focus)]) + (editor-document->path focus-doc-id))) ;;@doc ;; Open the helix.scm file