Skip to content

Instantly share code, notes, and snippets.

@sogaiu
Created November 14, 2025 05:20
Show Gist options
  • Select an option

  • Save sogaiu/8073600f92b58b0d63c0fb8c91553557 to your computer and use it in GitHub Desktop.

Select an option

Save sogaiu/8073600f92b58b0d63c0fb8c91553557 to your computer and use it in GitHub Desktop.
find-calls.janet demo 2
$ janet find-calls.janet file/write ~/src/git-some-janets/repos
/home/user/src/git-some-janets/repos/codeberg.org/amano.kenji/j3blocks/j3blocks/modules/cmd.janet:
51
(file/write stderr (string $ "\n"))
/home/user/src/git-some-janets/repos/codeberg.org/veqq/deforester/deforester.janet:
20
(file/write f (time-string) " " data "\n")
46
(file/write f data "," "\n")
/home/user/src/git-some-janets/repos/git.sr.ht/~nullevoid/jermbox/examples/example.janet:
15
(file/write stdout (string/from-bytes (jermbox/event-character env)))
/home/user/src/git-some-janets/repos/git.sr.ht/~subsetpark/bagatto/demo/vendoring/janet_modules/tester.janet:
26
(file/write stdout "\n\e[31mx\e[0m ")
/home/user/src/git-some-janets/repos/git.sr.ht/~maxgyver83/emailbook-janet/emailbook.janet:
121
(file/write f (string line "\n"))
325
(file/write f (string mailbox-sanitized "\n"))
/home/user/src/git-some-janets/repos/git.sr.ht/~bakpakin/jvk/bundle/sh.janet:
132
(file/write dst bytes)
/home/user/src/git-some-janets/repos/git.sr.ht/~alect/camp-wanna-tya-knot/make-jaylib-janet-shim.janet:
78
(file/write jjf
(string "(def " cf " " cf ")\n"))
search failed for: /home/user/src/git-some-janets/repos/notabug.org/debris/collider-janet/example_guess.janet
/home/user/src/git-some-janets/repos/notabug.org/debris/lllm-janet/src/main.janet:
29
(file/write f str)
/home/user/src/git-some-janets/repos/github.com/saikyun/freja/freja/file-handling.janet:
92
(file/write f (-> props
commit!
(get :text)))
/home/user/src/git-some-janets/repos/github.com/saikyun/freja/freja/checkpoint.janet:
64
(file/write f content)
/home/user/src/git-some-janets/repos/github.com/saikyun/janet-find-in-files/replace_in_files.janet:
48
(file/write f result)
83
(file/write f new-content)
search failed for: /home/user/src/git-some-janets/repos/github.com/saikyun/text-experiment/src/lul.janet
/home/user/src/git-some-janets/repos/github.com/saikyun/text-experiment/src/text_api.janet:
16
(file/write f (marshal props))
/home/user/src/git-some-janets/repos/github.com/saikyun/text-experiment/src/file_handling.janet:
43
(file/write f (-> props
commit!
(get :text)))
/home/user/src/git-some-janets/repos/github.com/pepe/jesty/test/helper.janet:
20
(file/write stdout "\e[32m✔\e[0m")
22
(file/write stdout "\n\e[31m✘\e[0m ")
/home/user/src/git-some-janets/repos/github.com/pepe/smw/jpm_tree/lib/spork/sh.janet:
132
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pepe/deviman/deviman/init.janet:
269
(file/write f (make-image store))
273
(file/write f (marshal [time entry]))
/home/user/src/git-some-janets/repos/github.com/joy-framework/bundler/src/bundler.janet:
16
(file/write f contents)
/home/user/src/git-some-janets/repos/github.com/joy-framework/tester/src/tester.janet:
26
(file/write stdout "\n\e[31mx\e[0m ")
/home/user/src/git-some-janets/repos/github.com/joy-framework/db/src/db/helper.janet:
11
(file/write f content)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/cli/controller.janet:
62
(file/write f route-string)
66
(file/write f1 new-main)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/cli/migrations.janet:
29
(file/write f
(string "-- up\n" (or up "") "\n\n-- down\n" (or down "")))
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/cli/route.janet:
56
(file/write f new-pages)
60
(file/write f1 new-main)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/http.janet:
132
(file/write temp-file body)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/helper.janet:
146
(file/write f)
/home/user/src/git-some-janets/repos/github.com/janet-lang/spork/spork/declare-cc.janet:
183
(file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
190
(file/write out buf)
192
(file/write out "};\n\n"
"const unsigned char * const " name "_embed = bytes;\n"
"const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/janet-lang/spork/spork/sh.janet:
152
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/janet-lang/jpm/jpm/cc.janet:
150
(file/write out
"#include <janet.h>\n"
"static const unsigned char bytes[] = {"
(string/join (interpose ", " chunks))
"};\n\n"
"const unsigned char *" name "_embed = bytes;\n"
"size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/janet-lang/janet/src/boot/boot.janet:
1884
(file/write f contents)
4138
(file/write fto b)
4758
(file/write stdout prompt)
/home/user/src/git-some-janets/repos/github.com/janet-lang/janet/test/suite-io.janet:
53
(file/write f "foo\n")
/home/user/src/git-some-janets/repos/github.com/janet-lang/janet/examples/life.janet:
31
(file/write stdout (if (get cellset [x y]) "X " ". "))
/home/user/src/git-some-janets/repos/github.com/ianthehenry/to-do/src/main.janet:
150
(file/write f (string/format "- [%s] %s\n" (print-state state) text))
/home/user/src/git-some-janets/repos/github.com/Ruin0x11/janet-shiori/shiori.janet:
180
(file/write log str)
/home/user/src/git-some-janets/repos/github.com/volodymyrpukha/smw/jpm_tree/lib/spork/sh.janet:
132
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/cendyne/image-processor/src/main.janet:
224
(file/write tempfile (codec/decode (get data "image")))
258
(file/write f output-value)
/home/user/src/git-some-janets/repos/github.com/Holmqvist1990/choosing-a-scripting-language/janet/pcm_db.janet:
54
(file/write (json/encode db)
(file/flush)
(file/close))
/home/user/src/git-some-janets/repos/github.com/pyrmont/markable/bundle/spork/declare-cc.janet:
183
(file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
190
(file/write out buf)
192
(file/write out "};\n\n"
"const unsigned char * const " name "_embed = bytes;\n"
"const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/pyrmont/markable/bundle/spork/sh.janet:
152
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/predoc/bundle/spork/declare-cc.janet:
183
(file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
190
(file/write out buf)
192
(file/write out "};\n\n"
"const unsigned char * const " name "_embed = bytes;\n"
"const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/pyrmont/predoc/bundle/spork/sh.janet:
152
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/predoc/test/executable.janet:
12
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/res/helpers/util.janet:
29
(file/write dest-file bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/lib/util.janet:
107
(file/write f s)
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/deps/spork/spork/declare-cc.janet:
183
(file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
190
(file/write out buf)
192
(file/write out "};\n\n"
"const unsigned char * const " name "_embed = bytes;\n"
"const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/deps/spork/spork/sh.janet:
152
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/bencodobi/test/iostream.janet:
13
(file/write file "hello")
/home/user/src/git-some-janets/repos/github.com/pyrmont/remarkable/tools/make-entities.janet:
30
(file/write dest "(def entity-map\n {\n")
32
(file/write dest indent)
33
(file/write dest (string/format "%j %j\n" k (get-chars mappings k)))
34
(file/write dest "})")
35
(file/write dest "\n\n\n")
36
(file/write dest valid-entity-fn)
37
(file/write dest "\n\n\n")
38
(file/write dest to-grapheme-fn)
/home/user/src/git-some-janets/repos/github.com/pyrmont/remarkable/tools/make-folding.janet:
38
(file/write dest "(def lower\n {\n")
46
(file/write dest indent)
47
(file/write dest (string "0x" before " [" (string/join afters " ") "]\n"))
48
(file/write dest "})\n")
49
(file/write dest "\n\n")
50
(file/write dest case-fold-fn)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/benchmarks/reverse-complement/revcomp.janet:
45
(file/write stdout header)
66
(file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/benchmarks/reverse-complement/revcomp2.janet:
58
(file/write stdout header)
86
(file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/benchmarks/reverse-complement/revcomp2_113.janet:
58
(file/write stdout header)
86
(file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/deps/spork/sh.janet:
132
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/rwtolbert/adopt-janet/adopt/init.janet:
671
(file/write stream (apply string/format args))
672
(file/write stream "\n")
675
(file/write stream string-or-array)
676
(file/write stream "\n")
/home/user/src/git-some-janets/repos/github.com/rwtolbert/fltk-janet/examples/native-filechooser.janet:
31
(file/write fp "Hello world\n")
/home/user/src/git-some-janets/repos/github.com/good-place/mansion/test/helper.janet:
20
(file/write stdout "\e[32m✔\e[0m")
22
(file/write stdout "\n\e[31m✘\e[0m ")
/home/user/src/git-some-janets/repos/github.com/jeannekamikaze/janet-filesystem/filesystem.janet:
116
(file/write file buf)
127
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/Putnam3145/janet-d/source/tests/suite7.janet:
301
(file/write f "foo\n")
/home/user/src/git-some-janets/repos/github.com/Putnam3145/janet-d/source/tests/helper.janet:
21
(file/write stdout "\e[32m✔\e[0m")
23
(file/write stdout "\n\e[31m✘\e[0m ")
/home/user/src/git-some-janets/repos/github.com/tionis/toolbox/src/sh.janet:
48
(file/write tmpf f)
61
(file/write tmpf f)
/home/user/src/git-some-janets/repos/github.com/tionis/cosmo/cosmo/filesystem.janet:
112
(file/write file buf)
123
(file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/rokf/janet-lucide/src/generate.janet:
41
(file/write f (make-image out-env))
/home/user/src/git-some-janets/repos/github.com/hackberrydev/alas/src/file_repository.janet:
14
(file/write file text)
/home/user/src/git-some-janets/repos/github.com/hackberrydev/alas/src/commands/backup.janet:
66
(file/write backup-file (file/read plan-file :all))
/home/user/src/git-some-janets/repos/github.com/agent-kilo/janetland/project.janet:
115
(file/write keysym-table-file
"(def xkb-key {\n")
122
(file/write keysym-table-file
(string/format " :%s (int/u64 %d)%s\n"
name
value
(if (nil? comment)
""
(string/format " # %s" comment))))
130
(file/write keysym-table-file
"})\n")
/home/user/src/git-some-janets/repos/github.com/agent-kilo/jwno/src/log.janet:
36
(file/write log-file msg)
/home/user/src/git-some-janets/repos/github.com/agent-kilo/jwno/project.janet:
36
(file/write out-file (string/format "#define %s %v\n" k (v :value)))
/home/user/src/git-some-janets/repos/github.com/sepisoad/jurl/test/main.janet:
24
(file/write file buf)
/home/user/src/git-some-janets/repos/github.com/sepisoad/super-janet-typist/script/profile.janet:
133
(file/write file (string score))
138
(file/write file (string streak))
144
(file/write file (string score))
150
(file/write file (string streak))
/home/user/src/git-some-janets/repos/github.com/sepisoad/labgoo/codes/helpers.janet:
51
(file/write f (string/format `{:title "%s"` name))
52
(file/write f "\n ")
53
(file/write f `:template "page.html"`)
54
(file/write f "\n ")
55
(file/write f `:kind "page"`)
56
(file/write f "\n ")
57
(file/write f (string/format `:refs %j` (tuple/brackets ;refs)))
58
(file/write f "\n ")
59
(file/write f ":older ")
61
(file/write f (string/format "%j" (string older ".html")))
62
(file/write f (string/format "%j" nil))
63
(file/write f "\n ")
64
(file/write f ":newer ")
66
(file/write f (string/format "%j" (string newer ".html")))
67
(file/write f (string/format "%j" nil))
68
(file/write f "}")
69
(file/write f "\n---\n")
77
(file/write f (string/format `{:title "%s"` tag))
78
(file/write f "\n ")
79
(file/write f `:template "tag.html"`)
80
(file/write f "\n ")
81
(file/write f `:kind "page"`)
82
(file/write f "\n ")
83
(file/write f (string/format `:pages %j` (tuple/brackets ;(map |(string/trimr $ ".mdz") pages))))
84
(file/write f "\n ")
85
(file/write f "}")
86
(file/write f "\n---\n")
/home/user/src/git-some-janets/repos/github.com/s-lambert/janet-game/src/tile-editor.janet:
68
(file/write level-file tile-txt)
/home/user/src/git-some-janets/repos/github.com/JohnDoneth/janet-language-server/language-server/src/main.janet:
20
(file/write (dyn :logfile) (string output "\n"))
21
(file/write stderr (string output "\n"))
171
(file/write file (string "Content-Length: " (length response) (line-ending)))
175
(file/write file response)
/home/user/src/git-some-janets/repos/github.com/MikeBeller/janet-benchmarksgame/reverse-complement/revcomp.janet:
45
(file/write stdout header)
66
(file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/MikeBeller/janet-benchmarksgame/reverse-complement/revcomp2.janet:
58
(file/write stdout header)
86
(file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/MikeBeller/janet-benchmarksgame/reverse-complement/revcomp2_113.janet:
58
(file/write stdout header)
86
(file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/cellularmitosis/janet-lzo/misc/zbench.janet:
51
(file/write stderr (string "running: " cmd "\n"))
/home/user/src/git-some-janets/repos/github.com/ishehadeh/janet-format/examples/streaming.janet:
5
(file/write f (if (string? s) s (string/from-bytes s)))
/home/user/src/git-some-janets/repos/github.com/mpwillson/fcgi/log.janet:
19
(file/write lfh (string/format "%s %s\n" (timestamp) msg))
21
(file/write stderr (string/format "%s %s\n" (timestamp) msg))
29
(file/write stderr (string/format "fcgi: cannot open log-file: %s\n"
log-file))
/home/user/src/git-some-janets/repos/github.com/sogaiu/index-janet/index-janet/main.janet:
149
(file/write tf
(string "!_TAG_FILE_SORTED\t"
"1\t"
"/0=unsorted, 1=sorted, 2=foldcase/\n"))
155
(file/write tf line)
158
(file/write tf "\n")
/home/user/src/git-some-janets/repos/github.com/sogaiu/index-janet/support/idk-janet.janet:
490
(file/write tf
(string "!_TAG_FILE_SORTED\t"
"1\t"
"/0=unsorted, 1=sorted, 2=foldcase/\n"))
496
(file/write tf line)
499
(file/write tf "\n")
/home/user/src/git-some-janets/repos/github.com/sogaiu/jaylib-wasm-demo/make-jaylib-janet-shim.janet:
75
(file/write jjf
(string "(def " cf " " cf ")\n"))
/home/user/src/git-some-janets/repos/github.com/sogaiu/ajrepl/ajrepl/custom-repl.janet:
37
(file/write stdout prmpt)
/home/user/src/git-some-janets/repos/github.com/sogaiu/janet-ref/janet-ref/repl.janet:
181
(file/write stdout prompt)
/home/user/src/git-some-janets/repos/github.com/sogaiu/janet-ref/janet-ref/usages/with.janet:
6
(file/write f "a")
/home/user/src/git-some-janets/repos/github.com/CFiggers/janet-lsp/src/logging.janet:
46
(file/write stderr (string/format "error while trying to write to log file: %q\n" e))
73
(file/write stderr (string output "\n"))
/home/user/src/git-some-janets/repos/github.com/CFiggers/janet-lsp/src/main.janet:
414
(file/write file (string "Content-Length: " (length response) (case (os/which)
:windows "\n\n" "\r\n\r\n")))
418
(file/write file response)
/home/user/src/git-some-janets/repos/github.com/CFiggers/teddy-editor/src/teddy.janet:
19
(file/write stdout (string/from-bytes key))
/home/user/src/git-some-janets/repos/github.com/CFiggers/joule-editor/src/joule.janet:
466
(file/write stdout abuf)
650
(file/write stdout "\e[H")
/home/user/src/git-some-janets/repos/github.com/AlecTroemel/craft-bin/craft-bin/ideas/repl.janet:
24
(file/write stdout prompt)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/fetch.janet:
23
(file/write outf buf)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/hermes-main.janet:
44
(file/write f $)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/builtins.janet:
105
(file/write tmpf $)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/protocol.janet:
9
(file/write f sz-buf)
10
(file/write f msg-buf)
42
(file/write f sz-buf)
43
(file/write f buf)
60
(file/write recv-to buf)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/janet-sh/sh.janet:
48
(file/write tmpf f)
61
(file/write tmpf f)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/janet-process/process.janet:
67
(file/write tmpf f)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/janetsh/src/sh.janet:
377
(file/write stderr (string "error: " e "\n"))
479
(file/write stderr (string e "\n"))
507
(file/write stderr (string "unrecoverable internal error: " e))
760
(file/write stdout xln)
949
(file/write stderr (string "exec failed: " e "\n"))
1027
(file/write stdout "\x1b[H\x1b[2J")
1077
(file/write stdout "alias name [commands]\n")
1080
(file/write stdout
(string "alias " alias " " (string/join cmd " ") "\n"))
1085
(file/write stdout
(string "alias " alias " " (string/join cmd " ") "\n"))
/home/user/src/git-some-janets/repos/github.com/andrewchambers/poolparty/poolparty.janet:
22
(file/write outf buf)
/home/user/src/git-some-janets/repos/github.com/dalygbarron/kowari/test/kowari.janet:
10
(file/write file (string/format format ;bits))
20
(file/write file "name,x,y,w,h\n")
/home/user/src/git-some-janets/repos/github.com/dalygbarron/pingo/test/pingo.janet:
34
(file/write f written-bytes)
/home/user/src/git-some-janets/repos/github.com/dbridges/jty/jty.janet:
8
(file/write debug-f (string str))
9
(file/write debug-f "\n")
/home/user/src/git-some-janets/repos/github.com/dlisboa/janet-slog/slog/init.janet:
45
(if (buffer? stream) buffer/push file/write)
/home/user/src/git-some-janets/repos/github.com/runejuhl/toggle-leds/main.janet:
19
(file/write stderr
(string "writing "
new-value
" to "
brightness
" (was " current-brightness ")"
"\n"))
27
(file/write out new-value)
32
(file/write stderr
"no targets; exiting\n")
user@user-Latitude-5520:~/src/find-calls/lib$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment