Clojurians Log v2

Expectations for tools.build keep growing 😂

Anyone know of a good Clojure(not script) TUI library? Bonus points for GraalVM compatibility

https://github.com/lambdaisland/trikl

There's also: https://github.com/MultiMUD/clojure-lanterna

example: https://github.com/netb258/console-tetris

Thanks, I'll take a look at these options

@kevin.van.rooijen Quickly tried to compile tetris: https://github.com/borkdude/console-tetris#graalvm It seems it gets quite far, but there's an error in the final link step.

I'll make a graalvm issue

https://github.com/oracle/graal/issues/2898

I think that Lanterna version is pretty outdated. Laterna seems to have updated to 3.1 recently

Maybe interop would be a better option

I'll take a look after work

yeah. would also be interesting to see if this may work for bb

If you could seamlessly build tui apps with bb, that would be amazing

@kevin.van.rooijen Ah, this guy made it work somehow: https://github.com/phronmophobic/terminal-todo-mvc

Totally forgot about that one

He uses the new lanterna and made his own wrapper

Very cool, this project https://github.com/phronmophobic/membrane

@kevin.van.rooijen Would also be interesting to try out trilk: https://github.com/lambdaisland/trikl#graal-compatibility

Will do, though I think Lanterna looks more promising since it's a bit more maintained. I think this is built from scratch and commits look a bit quiet

Also seems to be a work in progress and not on clojars

(seems to be another branch that's being worked on, by bad)

yeah

oh

The code looks quite minimal, and minimal is good imo ;)

Very true

maybe it doesn't support mouse clicks etc

so maybe lantera is a better option in that regard

I'll keep an eye on your experimentation

or: feel free to keep me posted

Will do

Hi Folks.. New to clojure looking for some help

I'm trying to build a discord bot and in the example code of discljord defines a state variable

(def state (atom nil))

(defmethod handle-event :message-create
  [event-type {{bot :bot} :author :keys [channel-id content]}]
  (if (= content "!disconnect")
    (c/disconnect-bot! (:connection @state))
    (when-not bot
      (m/create-message! (:messaging @state) channel-id :content "Hello, World!"))))

(defn get-on-brd-handler
  [event-type {{bot :bot} :author :keys [channel-id content]} state]
)

This question might be a better fit in #beginners, but you don’t need to pass it across namespaces. You can just reference it directly. For example:

(ns foo.bar)

(def state (atom nil))

(ns bar.baz
  (:require [foo.bar :as bar]))

(defn handler
  [,,,]
  (do-something-with @bar/state))

@kevin.van.rooijen Works: https://github.com/borkdude/console-tetris#graalvm

Nice, good catch on the :text instead of :swing

How would you integrate something like this in bb? Would you have to write an impl like with jdbc?

yes, just check the other libraries that are included

Thanks.

Progress!

wut!

I'll continue on this after dinner, maybe open a WIP PR?

Sure. Can you make a feature toggle for it like in: https://github.com/borkdude/babashka/blob/master/doc/build.md#feature-flags and then turn it off by default?

We can turn it on after some experimentation, but I'm always conservative with adding things by default, since CI is memory constraint

Also binary size is something I monitor

Is there any clojure/java equivalent to rails ActiveSupport::Inflector?

But adding something under a feature flag is always good for a PR

I just want to make some strings singular

clojure.pprint/cl-format can do some of that

cl-format can hold rules for it

but specifically I am looking to name my sql tables plural and just have a result builder that changes :users/id to :user/id

user=> (clojure.pprint/cl-format nil "~D tr~:@P/~D win~:P" 7 1)
"7 tries/1 win"

yeah but that only works if I have a certain amount of times something appears in mind and also deconstruct the string into the format

like I can manually write {"users" "user"} and do a mapping - but I'm looking to see if I can "solve" the problem

given your actual use case, I suspect the amount of effort that would go into automating it exceeds the effort of just having a conversion layer that knows about each table

Thats true, but there are "cool" and "fun" bars that only apply when unemployed and working on hobby projects

also YMMV but many people consider that kind of magic conversion part of what's wrong with rails

and one day you'll end up with a table called Librarys rather than the proper plural because its simpler than building an override mechanism to whatever you're doing

I've got a result body coming out of a clj-http call that I'm needing to parse. I wrote a simple ANTLR grammar for the body that compiles using clj-antlr/parser with no issues. The problem comes when I try to actually apply the generated parser function to an input string. At this point, the parse errors out with the following message: Execution error (NullPointerException) at org.antlr.v4.runtime.atn.ATNSerializer/serialize (ATNSerializer.java:73). null. Any idea on how to even start debugging this? Or does anyone have a recommendation for a different parser library that is perhaps not so opaque?

Does the exception has any stack trace?

Have you looked at Instaparse? https://github.com/Engelberg/instaparse

Instaparse doesn't handle ANTLR grammars.

Stack trace is as follows: [[org.antlr.v4.runtime.atn.ATNSerializer serialize ATNSerializer.java 73]   [org.antlr.v4.runtime.atn.ATNSerializer getSerialized ATNSerializer.java 601]   [org.antlr.v4.runtime.atn.ATNSerializer getSerializedAsChars ATNSerializer.java 605]   [org.antlr.v4.tool.Grammar createParserInterpreter Grammar.java 1337]   [clj_antlr.interpreted$singlethreaded_parser invokeStatic interpreted.clj 111]   [clj_antlr.interpreted$singlethreaded_parser invoke interpreted.clj 107]   [clj_antlr.interpreted.ThreadLocalParser parse interpreted.clj 119]   [clj_antlr.core.ParserWrapper parse core.clj 13]   [clj_antlr.core$parse_STAR_ invokeStatic core.clj 28]   [clj_antlr.core$parse_STAR_ invoke core.clj 19]   [clj_antlr.core$parse invokeStatic core.clj 35]   [clj_antlr.core$parse invoke core.clj 30]   [clj_antlr.core.ParserWrapper invoke core.clj 17]   [cql_p arser.core$parse_RAS_results invokeStatic form-init5406870106907233552.clj 822]   [cql_parser.core$parse_RAS_results invoke form-init5406870106907233552.clj 820]   [cql_parser.core$run_cql_file invokeStatic form-init5406870106907233552.clj 122]   [cql_parser.core$run_cql_file invoke form-init5406870106907233552.clj 109]   [cql_parser.core$run_cql_tests$fn__231 invoke core.clj 132]   [clojure.core$map$fn__5866 invoke core.clj 2755]   [clojure.lang.LazySeq sval LazySeq.java 42]   [clojure.lang.LazySeq seq LazySeq.java 51]   [clojure.lang.RT seq RT.java 535]   [clojure.core$seq__5402 invokeStatic core.clj 137]   [clojure.core$dorun invokeStatic core.clj 3133]   [clojure.core$doall invokeStatic core.clj 3148]   [clojure.core$doall invoke core.clj 3148]   [cql_parser.core$run_cql_tests invokeStatic core.clj 132]   [cql_parser.core$run_cql_tests invoke core.clj 128]   [cql_parser.core$_main invokeStatic core.clj 142]   [cql_parser.core$_main doInvoke core.clj 136]   [clojure.lang.RestFn invoke RestFn.java 397]   [c ql_parser.core$eval46620 invokeStatic form-init5406870106907233552.clj 1]   [cql_parser.core$eval46620 invoke form-init5406870106907233552.clj 1]   [clojure.lang.Compiler eval Compiler.java 7177]   [clojure.lang.Compiler eval Compiler.java 7132]   [clojure.core$eval invokeStatic core.clj 3214]   [clojure.core$eval invoke core.clj 3210]   [nrepl.middleware.interruptible_eval$evaluate$fn__944 invoke interruptible_eval.clj 91]   [clojure.main$repl$read_eval_print__9086$fn__9089 invoke main.clj 437]   [clojure.main$repl$read_eval_print__9086 invoke main.clj 437]   [clojure.main$repl$fn__9095 invoke main.clj 458]   [clojure.main$repl invokeStatic main.clj 458]   [clojure.main$repl doInvoke main.clj 368]   [clojure.lang.RestFn invoke RestFn.java 1523]   [nrepl.middleware.interruptible_eval$evaluate invokeStatic interruptible_eval.clj 84]   [nrepl.middleware.interruptible_eval$evaluate invoke interruptible_eval.clj 56]   [nrepl.middleware.interruptible_eval$interruptible_eval$fn__970$fn__974 invoke interruptible_eva l.clj 155]   [clojure.lang.AFn run AFn.java 22]   [nrepl.middleware.session$session_exec$main_loop__1071$fn__1075 invoke session.clj 190]   [nrepl.middleware.session$session_exec$main_loop__1071 invoke session.clj 189]   [clojure.lang.AFn run AFn.java 22]   [java.lang.Thread run Thread.java 745]]} CqlArithmeticFunctionsTest.cql #error {  :cause nil  :via  [{:type java.lang.NullPointerException    :message nil    :at [org.antlr.v4.runtime.atn.ATNSerializer serialize ATNSerializer.java 73]}]  :trace  [[org.antlr.v4.runtime.atn.ATNSerializer serialize ATNSerializer.java 73]   [org.antlr.v4.runtime.atn.ATNSerializer getSerialized ATNSerializer.java 601]   [org.antlr.v4.runtime.atn.ATNSerializer getSerializedAsChars ATNSerializer.java 605]   [org.antlr.v4.tool.Grammar createParserInterpreter Grammar.java 1337]   [clj_antlr.interpreted$singlethreaded_parser invokeStatic interpreted.clj 111]   [clj_antlr.interpreted$singlethreaded_parser invoke interpreted.clj 107]   [clj_antlr.interpreted.ThreadLocalParser parse interpreted.clj 119]   [clj_antlr.core.ParserWrapper parse core.clj 13]   [clj_antlr.core$parse_STAR_ invokeStatic core.clj 28]   [clj_antlr.core$parse_STAR_ invoke core.clj 19]   [clj_antlr.core$parse invokeStatic core.clj 35]   [clj_antlr.core$parse invoke core.clj 30]   [clj_antlr.core.ParserWrapper invoke core.clj 17]   [cql_p arser.core$parse_RAS_results invokeStatic form-init5406870106907233552.clj 822]   [cql_parser.core$parse_RAS_results invoke form-init5406870106907233552.clj 820]   [cql_parser.core$run_cql_file invokeStatic form-init5406870106907233552.clj 122]   [cql_parser.core$run_cql_file invoke form-init5406870106907233552.clj 109]   [cql_parser.core$run_cql_tests$fn__231 invoke core.clj 132]   [clojure.core$map$fn__5866 invoke core.clj 2755]   [clojure.lang.LazySeq sval LazySeq.java 42]   [clojure.lang.LazySeq seq LazySeq.java 51]   [clojure.lang.Cons next Cons.java 39]   [clojure.lang.RT next RT.java 713]   [clojure.core$next__5386 invokeStatic core.clj 64]   [clojure.core$dorun invokeStatic core.clj 3142]   [clojure.core$doall invokeStatic core.clj 3148]   [clojure.core$doall invoke core.clj 3148]   [cql_parser.core$run_cql_tests invokeStatic core.clj 132]   [cql_parser.core$run_cql_tests invoke core.clj 128]   [cql_parser.core$_main invokeStatic core.clj 142]   [cql_parser.core$_main doInvoke core.clj 136]   [clojure .lang.RestFn invoke RestFn.java 397]   [cql_parser.core$eval46620 invokeStatic form-init5406870106907233552.clj 1]   [cql_parser.core$eval46620 invoke form-init5406870106907233552.clj 1]   [clojure.lang.Compiler eval Compiler.java 7177]   [clojure.lang.Compiler eval Compiler.java 7132]   [clojure.core$eval invokeStatic core.clj 3214]   [clojure.core$eval invoke core.clj 3210]   [nrepl.middleware.interruptible_eval$evaluate$fn__944 invoke interruptible_eval.clj 91]   [clojure.main$repl$read_eval_print__9086$fn__9089 invoke main.clj 437]   [clojure.main$repl$read_eval_print__9086 invoke main.clj 437]   [clojure.main$repl$fn__9095 invoke main.clj 458]   [clojure.main$repl invokeStatic main.clj 458]   [clojure.main$repl doInvoke main.clj 368]   [clojure.lang.RestFn invoke RestFn.java 1523]   [nrepl.middleware.interruptible_eval$evaluate invokeStatic interruptible_eval.clj 84]   [nrepl.middleware.interruptible_eval$evaluate invoke interruptible_eval.clj 56]   [nrepl.middleware.interruptible_eval$interruptible_eval $fn__970$fn__974 invoke interruptible_eval.clj 155]   [clojure.lang.AFn run AFn.java 22]   [nrepl.middleware.session$session_exec$main_loop__1071$fn__1075 invoke session.clj 190]   [nrepl.middleware.session$session_exec$main_loop__1071 invoke session.clj 189]   [clojure.lang.AFn run AFn.java 22]   [java.lang.Thread run Thread.java 745]]

I've looked at Instaparse. If I can't get clj-antlr working (it has worked for me in previous projects), I'll start looking at alternatives. The language only has about a dozen productions so no matter how I do it, it'll eventually work - it's just that there are some complicated date-time formats to parse that I already have ANTLR code for.

the only duck duck go hit for the exeception messages looks relevant https://stackoverflow.com/questions/60002238/antl4-grammar-compile-nullpointer-exception

Huh. I wonder how can data.add(atn.grammarType.ordinal()); throw an NPE given that none of the values are null.

@hiredman - I checked that out, too. I'm not using skip anywhere in the grammar as far as I know, which I believe is what the error in this case hinges on.

Here's the grammar, if that helps.

grammar RASResults; value     : tuple     | list     | interval     | literal     ; interval     : 'Interval' leftInterval literal ',' literal rightInterval      ; leftInterval     : '[' | '('     ; rightInterval     : ']' | ')'         ; list     : '[' valueList ']'     ; valueList     :     | value     | value ',' valueList     ; tuple         : 'Tuple' '{' pair '}'         | '{' STRING ':' STRING '}'         ; pair         : identifier '->' value         ; literal         : '{' '}'                                               #emptyListLiteral         | 'null'                                                #nullLiteral         | ('true' | 'false')                                    #booleanLiteral         | STRING                                                #stringLiteral         | NUMBER                                                #numberLiteral         | DATETIME                                              #dateTimeLiteral         | TIME                                                  #timeLiteral         ; identifier         : IDENTIFIER         ; /     Lexical rules */ DATETIME         : '@'             [0-9][0-9][0-9][0-9] // year             (                 (                     '-'[0-9][0-9] // month                     (                         (                             '-'[0-9][0-9] // day                             ('T' TIMEFORMAT?)?                         )                         | 'T'                     )?                 )                 | 'T'             )?             ('Z' | ('+' | '-') [0-9][0-9]':'[0-9][0-9])? // timezoneOffset         ; TIME         : '@' 'T' TIMEFORMAT         ; fragment TIMEFORMAT         : [0-9][0-9] (':'[0-9][0-9] (':'[0-9][0-9] ('.'[0-9]+)?)?)?         ; IDENTIFIER         : ([A-Za-z] | '')([A-Za-z0-9] | '')*            // Added _ to support CQL (FHIR could constrain it out)         ; STRING         : '"' (ESC | .)*? '"'         ; // Also allows leading zeroes now (just like CQL and XSD) NUMBER         : [0-9]+('.' [0-9]+)?         ; // Pipe whitespace to the HIDDEN channel to support retrieving source text through the parser. WS         : [ \r\n\t]+ -> channel(HIDDEN)         ; fragment ESC         : '\\' ([`'\\/fnrt] | UNICODE)    // allow \`, \', \\, \/, \f, etc. and \uXXX         ; fragment UNICODE         : 'u' HEX HEX HEX HEX         ; fragment HEX         : [0-9a-fA-F]         ;

but it points to it not being a clojure specific issue, but some issue with antlr, which means you'll have better luck asking people who know antlr, not people who know clojure

@fadrian FWIW your grammar worked just fine for me with value being the root and with "{\"a\":\"b\"}" as an input.

I tried "49" as an input to get the error. But if you can parse that string, it may just be something in the NUMBER token that's screwing up. Let me try a few other inputs. Thanks for everyone's suggestions and assistance.

"49" also worked just fine for me.

Perhaps it's a version issue. I have clj-antlr 0.2.6 and antlr4 4.8-1.

It's also a question what we want to actually supply. the clojure-lanterna lib is a bit outdated and unmaintained(?)

That may be. I'm still using clj-antlr 0.2.5 and I'm not sure which version of ANTLR it's using. I'll make sure everything's updated. But you've given me a couple of leads. Thanks.

There were some things in clojure-lanterna which didn't work with GraalVM. e.g. some functions read the file system I think, and resulted in com.oracle.graal.pointsto.constraints.UnsupportedFeatureException: No instances of <http://sun.nio.ch|sun.nio.ch>.FileChannelImpl

Not sure how to fix that in GraalVM

Reagent for Lanterna sounds like a fun project. On the otherhand we also have Membrane which could be an option

Upgrading clj-antlr to 0.2.6 seemed to do the trick. Thanks again, all.

Isn't trikl intented as a reagent for the terminal kind of maybe?

There are pretty extensive libraries around everything natural language, icu4j springs to mind. Looking at the docs, it has pluralization.

But; I guess thats something to consider when you have extensively translatable apps with dozens of languages 😛

But yeah, some people have gone above and beyond in encoding natural language inconsistencies in every imaginable aspect 😛