luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update lanterna example

Browse source
This commit is contained in:
Michiel Borkent 2020-10-14 13:51:23 +02:00
parent 834bd05ac2
commit e20f5f2069
3 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
deps.edn
View file

@ -2,6 +2,7 @@
"feature-yaml" "feature-csv" "feature-transit" "feature-yaml" "feature-csv" "feature-transit"
"feature-java-time" "feature-java-nio" "feature-java-time" "feature-java-nio"
"feature-httpkit-client" "feature-httpkit-server" "feature-httpkit-client" "feature-httpkit-server"
"feature-lanterna"
"sci/src" "babashka.curl/src" "babashka.pods/src" "sci/src" "babashka.curl/src" "babashka.pods/src"
"babashka.nrepl/src" "babashka.nrepl/src"
"depstar/src" "depstar/src"
@ -23,7 +24,8 @@
org.postgresql/postgresql {:mvn/version "42.2.12"} org.postgresql/postgresql {:mvn/version "42.2.12"}
org.hsqldb/hsqldb {:mvn/version "2.4.0"} org.hsqldb/hsqldb {:mvn/version "2.4.0"}
datascript/datascript {:mvn/version "0.18.11"} datascript/datascript {:mvn/version "0.18.11"}
http-kit/http-kit {:mvn/version "2.5.0"}} http-kit/http-kit {:mvn/version "2.5.0"}
babashka/clojure-lanterna {:mvn/version "0.9.8-SNAPSHOT"}}
:aliases {:main :aliases {:main
{:main-opts ["-m" "babashka.main"]} {:main-opts ["-m" "babashka.main"]}
:profile :profile

2
doc/build.md
View file

@ -135,7 +135,7 @@ Example program:
``` clojure ``` clojure
(require '[lanterna.terminal :as terminal]) (require '[lanterna.terminal :as terminal])
(def terminal (terminal/text-terminal)) (def terminal (terminal/get-terminal))
(terminal/start terminal) (terminal/start terminal)
(terminal/put-string terminal "Hello TUI Babashka!" 10 5) (terminal/put-string terminal "Hello TUI Babashka!" 10 5)

11
feature-lanterna/babashka/impl/lanterna.clj
View file

@ -4,17 +4,16 @@
[lanterna.constants] [lanterna.constants]
[lanterna.screen] [lanterna.screen]
[lanterna.terminal] [lanterna.terminal]
[sci.impl.namespaces :refer [copy-var]] [sci.core :as sci :refer [copy-var]]))
[sci.impl.vars :as vars]))
(def tns (vars/->SciNamespace 'lanterna.terminal nil)) (def tns (sci/create-ns 'lanterna.terminal nil))
(def sns (vars/->SciNamespace 'lanterna.screen nil)) (def sns (sci/create-ns 'lanterna.screen nil))
(def cns (vars/->SciNamespace 'lanterna.screen nil)) (def cns (sci/create-ns 'lanterna.screen nil))
(def lanterna-terminal-namespace (def lanterna-terminal-namespace
{'add-resize-listener (copy-var lanterna.terminal/add-resize-listener tns) {'add-resize-listener (copy-var lanterna.terminal/add-resize-listener tns)
'remove-resize-listener (copy-var lanterna.terminal/remove-resize-listener tns) 'remove-resize-listener (copy-var lanterna.terminal/remove-resize-listener tns)
'text-terminal (copy-var lanterna.terminal/text-terminal tns) 'get-terminal (copy-var lanterna.terminal/get-terminal tns)
'start (copy-var lanterna.terminal/start tns) 'start (copy-var lanterna.terminal/start tns)
'stop (copy-var lanterna.terminal/stop tns) 'stop (copy-var lanterna.terminal/stop tns)
'get-size (copy-var lanterna.terminal/get-size tns) 'get-size (copy-var lanterna.terminal/get-size tns)