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-java-time" "feature-java-nio"
"feature-httpkit-client" "feature-httpkit-server"
"feature-lanterna"
"sci/src" "babashka.curl/src" "babashka.pods/src"
"babashka.nrepl/src"
"depstar/src"
@ -23,7 +24,8 @@
org.postgresql/postgresql {:mvn/version "42.2.12"}
org.hsqldb/hsqldb {:mvn/version "2.4.0"}
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
{:main-opts ["-m" "babashka.main"]}
:profile

2
doc/build.md
View file

@ -135,7 +135,7 @@ Example program:
``` clojure
(require '[lanterna.terminal :as terminal])
(def terminal (terminal/text-terminal))
(def terminal (terminal/get-terminal))
(terminal/start terminal)
(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.screen]
[lanterna.terminal]
[sci.impl.namespaces :refer [copy-var]]
[sci.impl.vars :as vars]))
[sci.core :as sci :refer [copy-var]]))
(def tns (vars/->SciNamespace 'lanterna.terminal nil))
(def sns (vars/->SciNamespace 'lanterna.screen nil))
(def cns (vars/->SciNamespace 'lanterna.screen nil))
(def tns (sci/create-ns 'lanterna.terminal nil))
(def sns (sci/create-ns 'lanterna.screen nil))
(def cns (sci/create-ns 'lanterna.screen nil))
(def lanterna-terminal-namespace
{'add-resize-listener (copy-var lanterna.terminal/add-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)
'stop (copy-var lanterna.terminal/stop tns)
'get-size (copy-var lanterna.terminal/get-size tns)