From 61f73cf4c1ea0b445cca44e506ad80e58c170a00 Mon Sep 17 00:00:00 2001 From: github-actions Date: Sun, 7 Jan 2024 11:13:27 +0000 Subject: [PATCH] Update source, eask-core.el --- eask-core.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/eask-core.el b/eask-core.el index b5b61bb..e36aa8c 100644 --- a/eask-core.el +++ b/eask-core.el @@ -501,7 +501,7 @@ These commands will first respect the current workspace. If the current workspace has no valid Eask-file; it will load global workspace instead." (member (eask-command) '("init/cask" "init/eldev" "init/keg" "init/source" - "bump" "cat" "keywords" + "bump" "cat" "keywords" "repl" "generate/ignore" "generate/license" "test/melpazoid"))) (defun eask-checker-p () @@ -2266,6 +2266,23 @@ Argument VERSION is a string represent the version number of this package." (eask-info "(Total of %s package%s reinstalled, %s skipped)" installed s skipped))) +;; ~/lisp/core/repl.el +(defvar eask--repl-old-pos nil + "Record the last position to output on the screen for the `ielm' buffer.") +(defun eask--repl-output () + "Print the REPL result to screen." + (unless eask--repl-old-pos (setq eask--repl-old-pos (point-min))) + (with-current-buffer "*ielm*" + (goto-char eask--repl-old-pos) + (while (not (eobp)) + (let ((line (thing-at-point 'line t))) + (unless (string-prefix-p "ELISP> " line) + (eask-print line))) + (forward-line 1) + (end-of-line)) + ;; Record last output position + (setq eask--repl-old-pos (point)))) + ;; ~/lisp/core/search.el (defun eask--search-packages (query) "Filter available packages with QUERY."