-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgit-some-janets.janet
887 lines (830 loc) · 31 KB
/
git-some-janets.janet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
#! /usr/bin/env janet
(def repo-lines
``
https://codeberg.org/amano.kenji/j3blocks
https://codeberg.org/amano.kenji/j3blocks-extra
https://git.envs.net/iacore/janet-sibilant-web
https://git.envs.net/iacore/janet-signal
https://git.sr.ht/~alect/fantasy-console-carts
https://git.sr.ht/~alect/jaydate
https://git.sr.ht/~alect/junk-drawer
https://git.sr.ht/~alect/secret-santa-jam-2022
https://git.sr.ht/~bakpakin/bee-server
https://git.sr.ht/~bakpakin/jvk
https://git.sr.ht/~bakpakin/moogtool
https://git.sr.ht/~bakpakin/temple
https://git.sr.ht/~harryvederci/janet-cgi-example
https://git.sr.ht/~icylisper/janet-lambda-runtime
https://git.sr.ht/~maxgyver83/emailbook-janet
https://git.sr.ht/~nullevoid/args
https://git.sr.ht/~nullevoid/gapbuffer
https://git.sr.ht/~nullevoid/jermbox
https://git.sr.ht/~nullevoid/jlzf
https://git.sr.ht/~pepe/andy
https://git.sr.ht/~pepe/bearimy
https://git.sr.ht/~pepe/best-self
https://git.sr.ht/~pepe/bonzer
https://git.sr.ht/~pepe/breakout
https://git.sr.ht/~pepe/chidi
https://git.sr.ht/~pepe/eleanor
https://git.sr.ht/~pepe/good-place
https://git.sr.ht/~pepe/gp
https://git.sr.ht/~pepe/hemple
https://git.sr.ht/~pepe/jakoune
https://git.sr.ht/~pepe/jff
https://git.sr.ht/~pepe/jfzy
https://git.sr.ht/~pepe/jlnt.kak
https://git.sr.ht/~pepe/jpid
https://git.sr.ht/~pepe/kamilah
https://git.sr.ht/~pepe/manisha
https://git.sr.ht/~pepe/marble
https://git.sr.ht/~pepe/michael
https://git.sr.ht/~pepe/neil
https://git.sr.ht/~pepe/paula
https://git.sr.ht/~pepe/series
https://git.sr.ht/~pepe/shawn
https://git.sr.ht/~pepe/shriek
https://git.sr.ht/~pepe/trevor
https://git.sr.ht/~pepe/trolley
https://git.sr.ht/~rlonstein/janet-pure-parsers
https://git.sr.ht/~skuzzymiglet/typeup-janet
https://git.sr.ht/~statianzo/janet-nanoid
https://git.sr.ht/~subsetpark/bagatto
https://git.sr.ht/~subsetpark/doozer
https://git.sr.ht/~subsetpark/ec
https://git.sr.ht/~subsetpark/fugue
https://git.sr.ht/~subsetpark/janet-rl
https://git.sr.ht/~subsetpark/janet-streams
https://git.sr.ht/~subsetpark/jnj
https://git.sr.ht/~subsetpark/mago
https://git.sr.ht/~subsetpark/the-brzozowski-variations
https://git.sr.ht/~subsetpark/whist
https://github.com/5thWall/shift-brew
https://github.com/AlecTroemel/craft-bin
https://github.com/AlecTroemel/janet-box2d
https://github.com/AlecTroemel/janet-chipmunk
https://github.com/AlecTroemel/janet-physac
https://github.com/AlecTroemel/junk-drawer
https://github.com/AlecTroemel/phalanx-core
https://github.com/Alligator/termbox-janet
https://github.com/Andriamanitra/jgamet
https://github.com/CFiggers/arcdown
https://github.com/CFiggers/janet-bluesky
https://github.com/CFiggers/janet-libcurl
https://github.com/CFiggers/janet-lsp
https://github.com/CFiggers/janet-termios
https://github.com/CFiggers/jayson
https://github.com/CFiggers/jgraph
https://github.com/CFiggers/joule-editor
https://github.com/CFiggers/journo
https://github.com/CFiggers/judge-testing
https://github.com/CFiggers/juno
https://github.com/CFiggers/teddy-editor
https://github.com/ChanderG/jane
https://github.com/CubicMelon/janet-tic80-module
https://github.com/Duncaen/adventofcode-janet
https://github.com/Duncaen/dhall-janet
https://github.com/GrayJack/Advent-Of-Code
https://github.com/GrayJack/janet-str-ext
https://github.com/GrayJack/rust-janet-module-template
https://github.com/Holmqvist1990/choosing-a-scripting-language
https://github.com/JMinyard1335/Janet-rvars
https://github.com/JMinyard1335/Janet-vector
https://github.com/Jakski/janet-base64.git
https://github.com/JohnDoneth/janet-language-server
https://github.com/LeviSchuck/janet-code
https://github.com/LeviSchuck/janet-sigv4
https://github.com/LeviSchuck/janetjose
https://github.com/LeviSchuck/janetls
https://github.com/Luexa/jvs
https://github.com/Luexa/otable
https://github.com/MaxGyver83/janet-good-repl
https://github.com/MikeBeller/janet-abstract
https://github.com/MikeBeller/janet-benchmarksgame
https://github.com/MikeBeller/janet-playground
https://github.com/MikeBeller/janet-set
https://github.com/PaulBatchelor/junt
https://github.com/PaulBatchelor/weewiki
https://github.com/Putnam3145/janet-d
https://github.com/RayMPerry/kitchen-sink
https://github.com/RebelPotato/youtube-subs
https://github.com/Ruin0x11/janet-shiori
https://github.com/Techcable/janet-json-pure
https://github.com/Techcable/janet-msgpack
https://github.com/Techcable/janet-sfmt
https://github.com/Techcable/latex2Mathematica
https://github.com/Yzupnick/example-janet2nix
https://github.com/Yzupnick/janet2nix
https://github.com/ZhanZ12/JanetAdventureGame
https://github.com/agent-kilo/janetland
https://github.com/agent-kilo/juno
https://github.com/agent-kilo/jw32
https://github.com/agent-kilo/jwno
https://github.com/ahungry/ahungry-janet
https://github.com/ahungry/ahungry-janet-to-js
https://github.com/ahungry/ahungry-janet-user
https://github.com/ahungry/ahungry_heart
https://github.com/ahungry/com.ahungry.crypt.aws4
https://github.com/ahungry/com.ahungry.crypt.jwt
https://github.com/ahungry/emscripten-tinkering
https://github.com/ahungry/janet-android
https://github.com/ahungry/janet-code
https://github.com/ahungry/janet-p99-map
https://github.com/ahungry/janet-pobox
https://github.com/ahungry/janet-sig-handlers
https://github.com/ahungry/janet-xbuild
https://github.com/ahungry/puny-gui
https://github.com/ahungry/puny-server
https://github.com/andrewchambers/hermes
https://github.com/andrewchambers/hm
https://github.com/andrewchambers/hpkg
https://github.com/andrewchambers/janet-ahttp
https://github.com/andrewchambers/janet-bare1
https://github.com/andrewchambers/janet-base16
https://github.com/andrewchambers/janet-big
https://github.com/andrewchambers/janet-bytefmt
https://github.com/andrewchambers/janet-cloader
https://github.com/andrewchambers/janet-ctrl-c
https://github.com/andrewchambers/janet-flock
https://github.com/andrewchambers/janet-glob
https://github.com/andrewchambers/janet-httpkit
https://github.com/andrewchambers/janet-jcjit
https://github.com/andrewchambers/janet-jdn
https://github.com/andrewchambers/janet-logfmt
https://github.com/andrewchambers/janet-md-doc
https://github.com/andrewchambers/janet-nested-text
https://github.com/andrewchambers/janet-pgjobq
https://github.com/andrewchambers/janet-pgjobq2
https://github.com/andrewchambers/janet-pgmigrate
https://github.com/andrewchambers/janet-pico-http-parser
https://github.com/andrewchambers/janet-posix-spawn
https://github.com/andrewchambers/janet-pq
https://github.com/andrewchambers/janet-process
https://github.com/andrewchambers/janet-redis
https://github.com/andrewchambers/janet-redo
https://github.com/andrewchambers/janet-rlrepl
https://github.com/andrewchambers/janet-sh
https://github.com/andrewchambers/janet-shlex
https://github.com/andrewchambers/janet-tmppg
https://github.com/andrewchambers/janet-unify
https://github.com/andrewchambers/janet-uri
https://github.com/andrewchambers/janet-utf8
https://github.com/andrewchambers/janet-where-defined
https://github.com/andrewchambers/janet-xcore
https://github.com/andrewchambers/janet-yacc
https://github.com/andrewchambers/janetsh
https://github.com/andrewchambers/jfmt
https://github.com/andrewchambers/jpm-to-hermes
https://github.com/andrewchambers/plumbtool
https://github.com/andrewchambers/poolparty
https://github.com/bakpakin/janet-miniz
https://github.com/bakpakin/littleserver
https://github.com/bakpakin/mendoza
https://github.com/bakpakin/x43bot
https://github.com/beleon/mustache-janet
https://github.com/bitcompost/janet-pledge
https://github.com/brandonchartier/janet-html
https://github.com/brandonchartier/janet-irc-client
https://github.com/brandonchartier/janet-queue
https://github.com/brandonchartier/janet-url
https://github.com/brandonchartier/janet-uuid
https://github.com/brandonchartier/jobot
https://github.com/bunder/janet-primesieve
https://github.com/ceigey/textgame-janet-protoype
https://github.com/cellularmitosis/janet-lzo
https://github.com/cendyne/bread
https://github.com/cendyne/image-processor
https://github.com/cendyne/little-queue
https://github.com/cendyne/simple-janet-crypto
https://github.com/cfoust/cy
https://github.com/chamaeleon/janet-bigz
https://github.com/chazu/jetris
https://github.com/chris-chambers/effuse
https://github.com/cideM/aoc2024-janet
https://github.com/cmiles74/bencode
https://github.com/coast-framework/coast-cli
https://github.com/corasaurus-hex/isatty
https://github.com/corasaurus-hex/janet-sequence-cursor
https://github.com/corasaurus-hex/pull-all
https://github.com/cosmictoast/janet-date
https://github.com/cosmictoast/janet-kargs
https://github.com/cosmictoast/jurl
https://github.com/czkz/janet-evemu
https://github.com/dabeaz/ranet
https://github.com/dalygbarron/kowari
https://github.com/dalygbarron/pingo
https://github.com/danielschleindlsperger/atobtoa
https://github.com/danielschleindlsperger/speed-series
https://github.com/dawranliou/vigilant-ducky
https://github.com/dbridges/janet-util
https://github.com/dbridges/jty
https://github.com/dfuenzalida/janet-hello-world
https://github.com/dghaehre/check-duplicate-probability
https://github.com/dghaehre/fish-env
https://github.com/dghaehre/gp-router
https://github.com/dghaehre/janet-utils
https://github.com/dghaehre/raspberry-stats
https://github.com/dghaehre/taskwarriorweb
https://github.com/dghaehre/todo
https://github.com/dghaehre/todoist-history
https://github.com/disruptek/jay
https://github.com/disruptek/slay-ir
https://github.com/dlisboa/janet-slog
https://github.com/dracconi/yanka
https://github.com/dressupgeekout/janet-linenoise
https://github.com/eko234/janet-html
https://github.com/escherize/janet-survivors
https://github.com/felixr/advent-of-code
https://github.com/felixr/janet-benchmarks
https://github.com/felixr/janet-notes
https://github.com/funatsufumiya/janet-interactive-repl-demos
https://github.com/gamma-delta/coq-build-toolkit
https://github.com/good-place/chidi
https://github.com/good-place/mansion
https://github.com/good-place/neil
https://github.com/good-place/shawn
https://github.com/good-place/tahani
https://github.com/good-place/trolley
https://github.com/goto-engineering/blackjack
https://github.com/goto-engineering/jack
https://github.com/greenfork/jzignet
https://github.com/greenfork/thehouse
https://github.com/gwegash/trane
https://github.com/hackberrydev/alas
https://github.com/heyarne/arylic-uart-tcp-cli
https://github.com/heycalmdown/janet-brew-ls
https://github.com/heycalmdown/janet-notion-helper
https://github.com/heycalmdown/janet-whooing-helper
https://github.com/iacore/janet-graphical-repl
https://github.com/ianthehenry/aoc-2023
https://github.com/ianthehenry/banquet
https://github.com/ianthehenry/bauble
https://github.com/ianthehenry/bauble.studio
https://github.com/ianthehenry/bytemap
https://github.com/ianthehenry/cmd
https://github.com/ianthehenry/cmp
https://github.com/ianthehenry/heap
https://github.com/ianthehenry/janet-clipper
https://github.com/ianthehenry/janet-cross-compile
https://github.com/ianthehenry/janet-midi
https://github.com/ianthehenry/janet-module
https://github.com/ianthehenry/janet-whereami
https://github.com/ianthehenry/jimmy
https://github.com/ianthehenry/judge
https://github.com/ianthehenry/macaroni
https://github.com/ianthehenry/pat
https://github.com/ianthehenry/square
https://github.com/ianthehenry/steno
https://github.com/ianthehenry/to-do
https://github.com/ianthehenry/toodle.studio
https://github.com/ikarius/bencode
https://github.com/ishehadeh/janet-format
https://github.com/jackpipe/prime-fun-janet
https://github.com/janet-lang/argparse
https://github.com/janet-lang/circlet
https://github.com/janet-lang/janet
https://github.com/janet-lang/janet-lang.org
https://github.com/janet-lang/janetui
https://github.com/janet-lang/jaylib
https://github.com/janet-lang/jhydro
https://github.com/janet-lang/jpm
https://github.com/janet-lang/json
https://github.com/janet-lang/juv
https://github.com/janet-lang/path
https://github.com/janet-lang/pkgs
https://github.com/janet-lang/spork
https://github.com/janet-lang/sqlite3
https://github.com/janet-lang/tarray
https://github.com/janet-lang/webview
https://github.com/jcpsantiago/hazal
https://github.com/jeannekamikaze/janet-filesystem
https://github.com/jeannekamikaze/webgen
https://github.com/jfcap/janet-luajit
https://github.com/jjkh/aoc-2023
https://github.com/joeatwork/clio
https://github.com/johanwiren/janet-lambda-example
https://github.com/johanwiren/janet-lambda-runtime
https://github.com/joy-framework/bundler
https://github.com/joy-framework/cipher
https://github.com/joy-framework/codec
https://github.com/joy-framework/db
https://github.com/joy-framework/dotenv
https://github.com/joy-framework/example-todos
https://github.com/joy-framework/halo
https://github.com/joy-framework/halo2
https://github.com/joy-framework/http
https://github.com/joy-framework/joy
https://github.com/joy-framework/joy-framework.github.io
https://github.com/joy-framework/joyframework.com
https://github.com/joy-framework/moondown
https://github.com/joy-framework/suresql
https://github.com/joy-framework/tester
https://github.com/joy-framework/uuid
https://github.com/k-nrd/tj
https://github.com/kamisori/obsidian-janet
https://github.com/kamisori/wjpu
https://github.com/katafrakt/isjanetthereyet
https://github.com/kiedtl/cel7ce
https://github.com/kiedtl/roguelike
https://github.com/kixus/mycom-mygreetlib
https://github.com/kmooney/learn-janet
https://github.com/kongeor/skolio
https://github.com/kuettler/janet-base58
https://github.com/kuettler/jmp
https://github.com/leahneukirchen/literate-janet
https://github.com/levitanong/jdn-loader
https://github.com/llmII/jlogger
https://github.com/llmII/jscreenshot
https://github.com/llmII/jsys
https://github.com/llmII/spawn-utils/
https://github.com/m7andrew/biplane
https://github.com/m7andrew/encode-html
https://github.com/m7andrew/escape-url
https://github.com/m7andrew/printy
https://github.com/m7andrew/read-write-http
https://github.com/maolonglong/janet-yyjson
https://github.com/meinside/telegram-bot-janet
https://github.com/ml-2/cannette
https://github.com/ml-2/purevec
https://github.com/ml-2/stx
https://github.com/mpwillson/fcgi
https://github.com/mpwillson/osx
https://github.com/mpwillson/regex
https://github.com/mraveloarinjaka/advent_of_code_2023
https://github.com/mraveloarinjaka/janet-experiments
https://github.com/mraveloarinjaka/janet-experiments-native-lib
https://github.com/newhook/janet-mysql
https://github.com/ovalnine/advent-of-code
https://github.com/pauldub/janet-http-client
https://github.com/pepe/barista
https://github.com/pepe/deviman
https://github.com/pepe/hyper-present
https://github.com/pepe/janet-playground
https://github.com/pepe/jesty
https://github.com/pepe/jff
https://github.com/pepe/smw
https://github.com/phillvancejr/Cpp-Go-Zig-Odin
https://github.com/pingiun/jequests
https://github.com/profan/protohackers-in-janet
https://github.com/pyrmont/advent
https://github.com/pyrmont/argy-bargy
https://github.com/pyrmont/arnie
https://github.com/pyrmont/bencodobi
https://github.com/pyrmont/claret
https://github.com/pyrmont/documentarian
https://github.com/pyrmont/ecstatic
https://github.com/pyrmont/fossiliser
https://github.com/pyrmont/hello-janet
https://github.com/pyrmont/heroku-buildpack-janet
https://github.com/pyrmont/is-janet-popular
https://github.com/pyrmont/jeep
https://github.com/pyrmont/lemongrass
https://github.com/pyrmont/markable
https://github.com/pyrmont/medea
https://github.com/pyrmont/musty
https://github.com/pyrmont/outfool
https://github.com/pyrmont/persimmon
https://github.com/pyrmont/remarkable
https://github.com/pyrmont/settee
https://github.com/pyrmont/testament
https://github.com/pyrmont/tomlin
https://github.com/pyrmont/watchful
https://github.com/quan-nh/sync-run
https://github.com/rduplain/hosts
https://github.com/rlonstein/janet-pure-parsers
https://github.com/rokf/janet-datastar
https://github.com/rokf/janet-jwt
https://github.com/rokf/janet-lucide
https://github.com/rokf/janet-resp
https://github.com/rokf/janet-rqlite
https://github.com/rokf/janet-tile38
https://github.com/roobie/crankshaft
https://github.com/roobie/maybe
https://github.com/roobie/redis
https://github.com/roobie/sumtype
https://github.com/runejuhl/toggle-leds
https://github.com/rushsteve1/spinnerette
https://github.com/s-lambert/janet-game
https://github.com/saikyun/cross
https://github.com/saikyun/fiery-sara
https://github.com/saikyun/fiery-soul
https://github.com/saikyun/freja
https://github.com/saikyun/freja-breakout
https://github.com/saikyun/freja-config
https://github.com/saikyun/freja-jaylib
https://github.com/saikyun/freja-layout
https://github.com/saikyun/freja-netrepl
https://github.com/saikyun/freja-parses-janet
https://github.com/saikyun/freja-proto
https://github.com/saikyun/janet-binary-search-comparison
https://github.com/saikyun/janet-bounded-queue
https://github.com/saikyun/janet-find-in-files
https://github.com/saikyun/janet-generate-structs
https://github.com/saikyun/janet-namespaces
https://github.com/saikyun/janet-profiling
https://github.com/saikyun/janet-whereami
https://github.com/saikyun/pixel-editor
https://github.com/saikyun/survival-horror
https://github.com/saikyun/text-adventure
https://github.com/saikyun/text-experiment
https://github.com/saikyun/unification
https://github.com/samuelludwig/janet-prelude
https://github.com/samuelludwig/quick-janet-netrepl
https://github.com/samuelludwig/what
https://github.com/scotthaleen/jhttp
https://github.com/seletz/janet-fu
https://github.com/sepisoad/SubJanet
https://github.com/sepisoad/jtbox
https://github.com/sepisoad/jurl
https://github.com/sepisoad/labgoo
https://github.com/sepisoad/super-janet-typist
https://github.com/sevanteri/janet-secret
https://github.com/sevanteri/jopass
https://github.com/skuzzymiglet/typeup-janet
https://github.com/sogaiu/ajrepl
https://github.com/sogaiu/babashka-tasks-view
https://github.com/sogaiu/can-we-do-better
https://github.com/sogaiu/clojure-peg
https://github.com/sogaiu/index-janet
https://github.com/sogaiu/index-janet-source
https://github.com/sogaiu/jandent
https://github.com/sogaiu/janet-aliases
https://github.com/sogaiu/janet-bits
https://github.com/sogaiu/janet-bounds
https://github.com/sogaiu/janet-checksums
https://github.com/sogaiu/janet-delims
https://github.com/sogaiu/janet-ex-as-tests
https://github.com/sogaiu/janet-indent
https://github.com/sogaiu/janet-jsonish
https://github.com/sogaiu/janet-last-expression
https://github.com/sogaiu/janet-minipbt-translation
https://github.com/sogaiu/janet-pcg-random
https://github.com/sogaiu/janet-peg
https://github.com/sogaiu/janet-pegdoc
https://github.com/sogaiu/janet-please
https://github.com/sogaiu/janet-punyishcode
https://github.com/sogaiu/janet-ref
https://github.com/sogaiu/janet-syntax-highlighting
https://github.com/sogaiu/janet-tempdir
https://github.com/sogaiu/janet-termsize
https://github.com/sogaiu/janet-totp
https://github.com/sogaiu/janet-tree-sitter
https://github.com/sogaiu/janet-ts-dsl
https://github.com/sogaiu/janet-unwrap
https://github.com/sogaiu/janet-walk-dir
https://github.com/sogaiu/janet-xmlish
https://github.com/sogaiu/janet-zipper
https://github.com/sogaiu/jaylib-netrepl-demo
https://github.com/sogaiu/jaylib-tetris
https://github.com/sogaiu/jaylib-wasm-demo
https://github.com/sogaiu/jdoc
https://github.com/sogaiu/jpm-tasks-view
https://github.com/sogaiu/margaret
https://github.com/sogaiu/review-janet
https://github.com/sogaiu/small-peg-tracer
https://github.com/sogaiu/spork-http-sample
https://github.com/sorenbug/sys-script
https://github.com/staab/budgetless
https://github.com/staab/esv
https://github.com/staab/janet-assert
https://github.com/staab/janet-cache
https://github.com/staab/janet-js
https://github.com/staab/janet-multimethod
https://github.com/staab/janet-pqutils
https://github.com/staab/janet-pseudo-set
https://github.com/staab/janet-schema
https://github.com/staab/janet-util
https://github.com/strangepete/janet-libMPSSE
https://github.com/subsetpark/janet-cells
https://github.com/subsetpark/janet-dtgb
https://github.com/subsetpark/pantagruel
https://github.com/swlkr/askjanet
https://github.com/swlkr/janetdocs
https://github.com/swlkr/osprey
https://github.com/swlkr/patter
https://github.com/swlkr/reddit-tiktok
https://github.com/swlkr/speakeasy
https://github.com/swlkr/sqlheavy
https://github.com/swlkr/stripe-janet
https://github.com/swlkr/tw
https://github.com/sysread/skewheap-janet
https://github.com/tantona/janetroids
https://github.com/thegeez/jalmer
https://github.com/thegeez/janet-jsvm
https://github.com/thegeez/janet-postings
https://github.com/tionis/adventofcode
https://github.com/tionis/cosmo
https://github.com/tionis/dice.janet
https://github.com/tionis/git-skm
https://github.com/tionis/git-tools
https://github.com/tionis/glyph.janet
https://github.com/tionis/mensa.janet
https://github.com/tionis/moneta
https://github.com/tionis/toolbox
https://github.com/tmward/janet-misc
https://github.com/tmward/jask
https://github.com/trengrj/janet-rocksdb
https://github.com/tttuuu888/janet-botan
https://github.com/tttuuu888/janet-pkcs11
https://github.com/turnerdev/janet-cozo
https://github.com/uvtc/janet-rand
https://github.com/volodymyrpukha/smw
https://github.com/wooosh/janet-openssl-hash
https://github.com/xyb3rt/advent-of-code
https://github.com/yumaikas/LispGameJamAutumn2021
https://github.com/yumaikas/add-software-license
https://github.com/yumaikas/anno
https://github.com/yumaikas/anno-server
https://github.com/yumaikas/aoc2020
https://github.com/yumaikas/cartnet
https://github.com/yumaikas/chrono
https://github.com/yumaikas/dirx
https://github.com/yumaikas/eye
https://github.com/yumaikas/jagged-scraps
https://github.com/yumaikas/janet-datex
https://github.com/yumaikas/janet-errs
https://github.com/yumaikas/janet-globals
https://github.com/yumaikas/janet-peg-playground
https://github.com/yumaikas/janet-pkg-lint
https://github.com/yumaikas/janet-stringx
https://github.com/yumaikas/janet-tempfiles
https://github.com/yumaikas/janitor
https://github.com/yumaikas/newt
https://github.com/yumaikas/praxis
https://github.com/yumaikas/route-helpers
https://github.com/yumaikas/rumination
https://github.com/yumaikas/size
https://github.com/yumaikas/tally
https://github.com/yumaikas/trees
https://github.com/zacharycarter/voodoo
https://github.com/zenlor/janet-csv
https://github.com/zevv/janet-dns
https://github.com/zevv/janet-time
https://github.com/zevv/janetttls
https://gitlab.com/jeannekamikaze/janet-glfw
https://gitlab.com/louis.jackman/janet-hypertext
https://notabug.org/debris/lllm-janet
``)
########################################################################
(def usage
`````
Usage: git-some-janets NUMBER [STRING]
git-some-janets STRING [NUMBER]
Fetch some janet-related git repositories.
Examples:
# fetch 2 janet-related repositories
git-some-janets 2
# fetch janet-related repositories whose urls contain "bakpakin"
git-some-janets bakpakin
# fetch 3 janet-related repositories whose urls contain "chambers"
git-some-janets chambers 3
git-some-janets 3 chambers
Parameters:
NUMBER maximum number of repositories to fetch (<= 0 means all
remaining)
STRING used to match (substring) which repositories to fetch
(STRING should not represent a number according to
janet's `scan-number`)
With NUMBER as the first argument, fetch NUMBER repositories (see
above for what a non-positive NUMBER means). If STRING is specified
as a second argument, fetch up to NUMBER repositories (inclusive)
whose urls contain STRING as a substring.
With STRING as the first argument, fetch repositories whose urls
contain STRING as a substring. If NUMBER is specified as a second
argument, fetch up to NUMBER repositories (inclusive) whose urls
contain STRING as a substring (see above for what a non-positive
NUMBER means).
`````)
########################################################################
# XXX: quick and dirty but may be fine for our purposes
(defn uri-to-dir-path
[uri]
(first (peg/match ~(sequence (choice "https://" "file:///")
(capture (thru -1)))
uri)))
(comment
(uri-to-dir-path "https://gitlab.com/louis.jackman/janet-hypertext")
# =>
"gitlab.com/louis.jackman/janet-hypertext"
(uri-to-dir-path "file:///home/user/src/small-peg-tracer")
# =>
"home/user/src/small-peg-tracer"
)
(comment
(each line (string/split "\n" repo-lines)
(when (not (empty? line))
(def url (string/trimr line))
(print (uri-to-dir-path url))))
)
(defn mkdir-p
[path]
(each idx (string/find-all "/" path)
(when (< 0 idx)
(let [curr-path (string/slice path 0 idx)]
(when (not (os/lstat curr-path))
(os/mkdir curr-path)))))
(os/mkdir path))
(defn git-shallow-clone
[repos-path url]
(def old-dir (os/cwd))
#
(os/mkdir repos-path)
(assert (os/stat repos-path)
(string/format "failed to create dir: %s" repos-path))
(defer (os/cd old-dir)
(os/cd repos-path)
#
(def dest-dir (uri-to-dir-path url))
(assert dest-dir
(string/format "failed to parse url: %n" url))
# skip if dest-dir already exists
(when (not (os/stat dest-dir))
(mkdir-p dest-dir)
(assert (os/stat dest-dir)
(string/format "failed to create dir: %s" dest-dir))
# need exit code so not using `run` from util.janet
(os/execute ["git" "clone" "--depth=1"
url dest-dir]
:pe
# skip git's prompts
(merge (os/environ) {"GIT_TERMINAL_PROMPT" "0"})))))
(comment
(git-shallow-clone "./repos" "https://git.sr.ht/~bakpakin/bee-server")
)
(defn choose-n
[list n &opt rng]
(def actual-n
(min n (length list)))
(default rng (math/rng))
#
(def index-pool (range 0 (length list)))
(def new-list @[])
#
(for i 0 actual-n
(let [r-idx (math/rng-int rng (length index-pool))
index (get index-pool r-idx)
choice (get list index)]
(array/push new-list choice)
(array/remove index-pool r-idx)))
#
new-list)
(comment
(let [an-rng (math/rng (os/cryptorand 8))
list @[:a :b :c :x :y :z]
n 3
choices (choose-n list n an-rng)]
(truthy?
(and (= n (length choices))
(all |(index-of $ list)
choices)
(= n (length (table ;(interleave choices choices)))))))
# =>
true
)
(defn choose-n-urls
[urls n]
(def actual-n (min n (length urls)))
(if (<= n 0)
urls
(choose-n urls actual-n (math/rng (os/cryptorand 8)))))
(comment
(def urls
["https://git.envs.net/iacore/janet-signal"
"https://git.sr.ht/~alect/secret-santa-jam-2022"
"https://git.sr.ht/~bakpakin/bee-server"])
(has-value? urls
(first (choose-n-urls urls 1)))
# =>
true
(-> (seq [url :in (choose-n-urls urls -1)]
(has-value? urls url))
length)
# =>
(length urls)
)
# XXX: can make more sophisticated later if needed
(defn supported-url?
[candidate]
(truthy? (peg/match ~(choice "https://" "file:///") candidate)))
(comment
(supported-url? "https://codeberg.org/sogaiu/margaret")
# =>
true
(supported-url? "file:///home/user/src/janet")
# =>
true
(supported-url? "ftp://ftp.uio.no")
# =>
false
)
########################################################################
(defn find-repos-name
[]
(if-let [value (os/getenv "GSJ_REPOS_NAME")]
value
"repos"))
(defn find-all-urls
[]
(def lines
(if-let [value (os/getenv "GSJ_ALL_URLS")]
(do
(assert (os/stat value)
(string/format "failed to find file: %s" value))
(slurp value))
repo-lines))
#
(keep |(let [trimmed (string/trimr $)]
(when (supported-url? trimmed)
trimmed))
(string/split "\n" lines)))
(defn find-peg
[]
(if-let [value (os/getenv "GSJ_PEG")]
(do
(def [success? peg] (protect (parse value)))
(assert success?
(string/format "failed to parse: %s" value))
peg)
nil))
(defn find-substr
[]
(if-let [value (os/getenv "GSJ_SUBSTR")]
value
nil))
########################################################################
(defn handle-args
[args]
# XXX: when invoked from the command line, cannot have less than one
# argument
(when (zero? (length args))
(eprint "expected at least one command line argument")
(os/exit 1))
(when (one? (length args))
(print usage)
(os/exit 0))
(def first-arg (get args 1))
(def second-arg (get args 2))
(if (not (nil? second-arg))
# there were at least two arguments
(do
(def cla-1-num (scan-number first-arg))
(def cla-2-num (scan-number second-arg))
(when (and cla-1-num cla-2-num)
(eprintf "first two arguments should not both be numeric")
(os/exit 1))
(if (number? cla-1-num)
[cla-1-num second-arg]
[cla-2-num first-arg]))
# there was only one argument
(if-let [cla-n (scan-number first-arg)]
[cla-n nil]
[-1 first-arg])))
########################################################################
(defn main
[& args]
(def [cla-n cla-substr] (handle-args args))
(def repos-name (find-repos-name))
(assert repos-name "failed to determine repos-name")
(os/mkdir repos-name)
(when (not (= :directory (os/stat repos-name :mode)))
(eprintf "repos root needs to be a directory: %s" repos-name)
(break false))
#
(def urls (find-all-urls))
(assert urls "failed to get list of urls")
#
(def substr
(if (nil? cla-substr)
(find-substr)
cla-substr))
#
(def peg (find-peg))
#
(def matched-urls
(cond
substr
(filter |(string/find substr $) urls)
#
peg
(filter |(peg/match peg $) urls)
#
urls))
#
(def results @{})
(def target-urls (choose-n-urls matched-urls cla-n))
(each url target-urls
(def exit-code (git-shallow-clone repos-name url))
(def urls-for-code
(array/push (get results exit-code @[])
url))
(put results exit-code urls-for-code))
#
(when (not (empty? results))
(printf "%M" results)
(printf "Considered repos: %d" (length target-urls))
(printf "Successfully fetched repos: %d" (length (get results 0)))
(each ret (sort (keys results))
(when (not (zero? ret))
(eprintf "Error code %d: %d" ret (length (get results ret))))))
#
true)