Skip to content

getline: Support prefill line buffer #268

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
tw4452852 wants to merge 1 commit into
base: master
Choose a base branch
from
Open

getline: Support prefill line buffer #268

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 11 additions & 4 deletions spork/getline.janet
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,6 +8,7 @@
# - unit testing?

(import spork/rawterm)
(import spork/generators)

(def max-history "Maximal amount of items in the history" 500)

Expand Down Expand Up @@ -80,19 +81,24 @@
(var ret-value "Value to return to caller, usually the mutated buffer." buf)
(var more-input "Loop condition variable" true)
(def input-buf @"")
(var pre-input "User provided inputs" @"")

(defn getc
"Get next character. Caller needs to check input buf after call if utf8 sequence returned (>= c 0x80)"
[]
(buffer/clear input-buf)
(rawterm/getch input-buf)
(if-let [i (next pre-input)]
(buffer/push-byte input-buf (in pre-input i))
(rawterm/getch input-buf))
(def c (get input-buf 0))
(when (>= c 0x80)
(repeat (cond
(= (band c 0xF8) 0xF0) 3
(= (band c 0xF0) 0xE0) 2
1)
(rawterm/getch input-buf)))
(if-let [i (next pre-input)]
(buffer/push-byte input-buf (in pre-input i))
(rawterm/getch input-buf))))
c)

(defn- flushs
Expand Down Expand Up @@ -138,7 +144,7 @@
(buffer/format tmp-buf "\r%s%s%s\e[0K\r" prpt pad view)
# Different implementations may behave inconsistently regarding to "move 0 column".
(if (not (= 0 visual-pos))
(buffer/format-at tmp-buf -1 "\e[%dC" visual-pos))
(buffer/format-at tmp-buf -1 "\e[%dC" visual-pos))
(flushs))

(defn- history-move
Expand Down Expand Up @@ -291,7 +297,8 @@
(refresh))

(fn getline-fn
[&opt prompt buff _]
[&opt prompt buff _parser prefill]
(set pre-input (if prefill (generators/from-iterable prefill) @""))
(set buf (or buff @""))
(set prpt (string prompt))
(set prpt-width (rawterm/monowidth prpt))
Expand Down