I don't think rebl can be extended like that yet

You can implement datafy and nav for such things tho'... or rather the underlying protocols...

I have a macro problem: what's the way to get the correct autogensym if unquoted once?

(defmacro def-foo
  [name args subject]
  `(defn ~name ~args
    (let [fix-text# (pr-str ~subject)]
      ~(cond
        (:foo subject)
          `(let [len# (count fix-text#)]
            (if (> len# 0)
              len#
              :error))
        (:bar subject)
          `(clojure.string/reverse fix-text#)
        :else `fix-text#))))

> (-> '(def-foo bar [a] {:value a :foo true}) 
.. macroexpand-1 
.. clojure.pprint/pprint)
(clojure.core/defn
 bar
 [a]
 (clojure.core/let
  [fix-text__1288__auto__
   (clojure.core/pr-str {:value a, :foo true})]
  (clojure.core/let
   [len__1283__auto__ (clojure.core/count fix-text__1284__auto__)]
   (if (clojure.core/> len__1283__auto__ 0) len__1283__auto__ :error))))

I'd expect the fix-text#s to all refer to the same autogensym which is clearly not the case

How do I make them the same?

Is manually gensym'ing the symbols used across quotes in an encompassing let the only way?

There's a ztellman library for this, but otherwise yes. Nesting expansion is a new context.

What's the zachware you're referring to?

potemkin iirc

https://github.com/ztellman/potemkin#unify-gensyms

linters really can't handle potemkin's magic so i prefer not to use it though

I am looking at profilers for Clojure and two libraries that appear viable are https://github.com/ptaoussanis/tufte and https://github.com/clojure-goes-fast/clj-async-profiler. Any recommendations on which to use?

Different use cases for both.

What's your use case?

We have a Kafka-driven service that also talks to the DB and is heavy on spec, and I would like to see if we have an actual bottleneck in code. We occasionally spike our input lag and take some time to recover from that, but that could just be a property of the sizeable messages we are ingesting. So whilst I look into the latter it would be also nice to take the generators for a spin, introduce some random traffic locally and see where time is being spent processing it.

If you're doing it locally then the async clj profiler is the best choice.

Perfect - I'll give it a spin then. Thanks.

Hello, guys! May u could help me... I'm trying to quote/unquote a code snippet but I couldn't figure out the right way Given this snippet:

clojure
(defn spec
  [evt tbl]
  {:event "event"
   :trigger-event evt
   :where '(fn [{:keys [table query-seq query-count]}]
             (and (= query-seq query-count)
                  (= table tbl)))

You have to use ` for ~ to work.

when I change ' for , it mess up another things... basically it interpret symbols changing, for example, fn` to clojure.core/fn.. but I need to keep it "clean", like written

Use ~' where you want it to be clean

Or use list / some other templating approach.

let me try

do you really need to keep it as written or are you just trying to make the argument symbols not get namespace qualified?

basically get rid of namespaces

why do you need to do that for fn/`and`/`=`?

Hi, does anyone here use clojure.data.xml? I’m trying to read an xml string without replacing entity references. http://clojure.github.io/data.xml/#clojure.data.xml/parse-str and a look at https://github.com/clojure/data.xml/blob/master/src/main/clojure/clojure/data/xml/jvm/parse.clj suggests that we should be able to use (xml/parse-str document :replacing-entity-references false) but that doesn’t work..

@bronsa i'm trying to write out a edn file based on a map where some keys have functions as values

ok but if you're evaluating the quoted value at some point, then namespacing the vars should be desiderable -- if you're just parsing them then I understand

but if you are indeed evaluating them, there's a better solution:

`(fn [{:keys [table# query-seq# query-count#]}]
             (and (= query-seq# query-count#)
                  (= table# ~tbl))

it's a Joker script that will writes the file for later processing in Clojure

it's not pretty, but works:

:where `(~'fn [{:keys [~'table ~'query-seq ~'query-count]}]
             (~'and (~'= ~'query-seq ~'query-count)
                    (~'= ~'table ~tbl)))

I am trying to make this warning go away, but I can’t figure out where to put the type hint: recur arg for primitive local: max_len is not matching primitive, had: Object, needed: long

(defn- max-depth
  "Return the max depth of the taxonomy for the give sequence of synsets"
  [syn-seq]
  (loop [sseq syn-seq
         max-len 0]
    (if (not sseq) 
      (inc max-len) ; inc: didn't count arg. 
      (let [synset (first sseq)
            len (apply max (map count (hypernym-paths synset)))]
        (recur (next sseq)
               (max len max-len))))))

len (long (apply ..))

you need to unbox, not type hint

Yes. That worked. Thanks!

interesting that code above compiled as is for me

(set! *warn-on-reflection* true)

(after replacing (hypernym-paths synset) with [])

ah, reflection

Anyone know how to capture the body of a get request via a selenium webdriver?

heya, I’m struggling to do basic counting today… anyone got some clues how to generate a lazy seq of strings from an alphabet "abcde…" like ("a" "b" "c" "d" "e" "aa" "ab" "ac" … "aaa" "aab" …)

Math combinatorix might help

(defn permutations [els]
  (when-let [[f & r] (seq els)]
    (let [perms (permutations r)]
      (cons [f] (concat perms (map (fn [r] (cons f r)) perms))))))

I guess you can

(defn permutations-str [els]
  (when-let [[f & r] (seq els)]
    (let [perms (permutations-str r)]
      (cons (str f) (concat perms (map (fn [r] (apply str f r)) perms))))))

will that trigger any of these concat warnings stuart was telling me about

https://stuartsierra.com/2015/04/26/clojure-donts-concat

hmm I’m not sure this is right

I want to generate them in order

no

if you want them in order switch the order of args in concat

(no as in: it shouldn't be a concat bomb)

ah no wait in the other order

like all the single characters, then the doubles then the triples

ah

(defn- boop [i]
  (case i
    0 nil
    1 (map str "abcdefghijklmnopqrstuvwxyz")
    (for [x "abcdefghijklmnopqrstuvwxyz"
          y (boop (dec i))]
      (str x y))))

(take 100
      (->> (range)
           (mapcat boop)))

looks like the idea from @vlaaad will work

I don't know correct name for boop

that's going to be very expensive on the recursive subcalls, but I guess if i is small that's not a big deal

will that do the requisite lazy seq caching

no, you'd need to memoize it manually

I had a counting problem like this once where I wanted to map natural numbers to the column names of an Excel spreadsheet. (a,b,…z,aa,ab). You’d think it would be just a base 26 representation, but it’s not.

anyone know how to run cli commands from clojure?

@josh_tackett Not sure if it's still the preferred library for this use case, but I've seen https://github.com/Raynes/conch used a lot for that purpose.

There's also: https://clojuredocs.org/clojure.java.shell/sh

@shdzzl I'm trying to use /sh but it just prints it out rather than decrypting it: (shell/sh "echo" "U2FsdGVkX19YpBxGXZiFhpXjmogTE5OIbdQaHrXUIVQ=|openssl" "aes-256-cbc" "-d" "-a" "-pass" "pass:aaa")

may be as shdzzl suggested as an alternative, conch may work better for this? https://github.com/Raynes/conch#piping

Anyone an openssl expert here?

not an openssl expert, but isn't U2FsdGVkX19YpBxGXZiFhpXjmogTE5OIbdQaHrXUIVQ= base64?

https://www.base64decode.org/

decoded, that starts with: Salted__

worked here too: hola 🙂

@josh_tackett Does the command pipeline you showed work for you when started from a shell prompt?

the problem here is that shell/sh doesn't start an sh (it's somewhat misleadingly named) so there's nothing to interpret | as an IO redirect or start openssl as a separate process

what was shown above will work at a shell prompt, because you are using an instance of sh which understands redirects and the associated syntax

to do this with clojure.java.shell/sh you need to explicitly use a shell

user=> (clojure.java.shell/sh "sh" "-c" "echo U2FsdGVkX19YpBxGXZiFhpXjmogTE5OIbdQaHrXUIVQ=|openssl aes-256-cbc -d -a -pass pass:aaa")
{:exit 1, :out "", :err "bad decrypt\n4469843564:error:06FFF064:digital envelope routines:CRYPTO_internal:bad decrypt:/BuildRoot/Library/Caches/com.apple.xbs/Sources/libressl/libressl-22.200.4/libressl-2.6/crypto/evp/evp_enc.c:533:\n"}

That's interesting.

btw that's the same output I get for your command above @shdzzl

Hmm I get a single \n in :out from clojure.java.shell/sh with an explicit shell (`sh`) and the expected result from my terminal emulator

libressl vs openssl?

same for my example - notice that :err had a string but not :out

I'm guessing libressl might have a different API to openssl here?

by changing echo to echo -n I get "error reading input file" instead of the digital envelope bad decrypt

not sure what's going on though

(this is both in a normal shell and in clojure via shell/sh)

Is it possible to use the clojure.main api to start a prepl?

if nothing else, a variation on this

user=> (clojure.main/main "-e" "(+ 1 1)")
2
nil

My question is flawed really. I have something using clojure.main/repl and overriding :eval in order to perform a useful nested repl. I wanted to make it a nested prepl (I have a way of binding the original *out* so I can nest it) so that I can use it with tooling.

oh, that's a different question yes

am I right that you can vote on http://ask.clojure.org for issues but not on JIRA? just checking

If you’re a user, vote on ask. If you’re a developer with a jira account, vote on jira