benknoble

RowNumber  File                                                                                                   PercentTotal  CumulativePercentTotal
1          racket/src/bc/src/startup.inc                                                                          61.3411       61.3411
2          racket/src/cs/schemified/expander.scm                                                                  60.7638       122.105
3          racket/src/cs/schemified/schemify.scm                                                                  31.6651       153.77
4          racket/src/cs/schemified/io.scm                                                                        24.5839       178.354
5          racket/src/ChezScheme/unicode/UNIDATA/UnicodeData.txt                                                  22.6329       200.987
6          racket/src/bc/foreign/libffi/configure                                                                 14.0329       215.02
7          racket/src/ChezScheme/unicode/UNIDATA/Normalizat

benknoble

#lang racket

(define-namespace-anchor this-module)
(displayln 'start)
(displayln `(repl ,(call/ec (λ (return-k)
                              (parameterize ([current-namespace (namespace-anchor->namespace this-module)])
                                (namespace-set-variable-value! 'return return-k #f (current-namespace) #t)
                                (read-eval-print-loop))))))
(displayln 'end)

benknoble

• beeswax-render-*.html produced by

raco beeswax render *.pmd
for f in {,b,c}article.html; do mv "$f" "beewswax-render-$f"; done

• pollen-render-*.html produced by

mv pollen.rkt .pollen.rkt
raco pollen render *.pmd

benknoble

#lang racket

(provide (all-defined-out))

(require setup/getinfo)

(define config?-v1 (get-info/full "."))
(config?-v1 'name) ;=> "Games"
(config?-v1 'gracket-launcher-libraries) ;=> '("main.rkt")
(config?-v1 'gracket-launcher-names) ;=> '("PLT Games")

benknoble

(ns parens)

(defn mk-balanced?
  "makes a balanced? checker from table, which maps closing characters to
  opening characters.

  see also: balanced?"
  [table]
  (fn [s]
    (let [opens (set (vals table))

benknoble

A modified version of George's gist which I recommend checking out.

A modified version of Romain's gist which I recomend checking out.

Instead we pull the last line from the command history with ~~~histget()~~~ getcmdline() and use fullcommand() to get the command name. This gives us the proper command name which we can match against literally.

Also rather than always having to return a carriage return and whatever else in an expression I've opted to use an autocmd.

This also fixes what could be considered a minor bug at the time of writting in the original the dlist and ilist mapping. The pattern may have spaces so rather than increment the cursor backwards move it to the start then increment it forwards to the correct destination.

benknoble

Homebrew build logs for clisp on macOS 10.14.5
Build date: 2019-08-28 21:01:23

benknoble

2019-08-14T00:13:39.8387490Z Current runner version: '2.156.4'
2019-08-14T00:13:39.8405601Z Prepare workflow directory.
2019-08-14T00:13:39.8826457Z Prepare all required actions.
2019-08-14T00:13:40.8625549Z action.yml for action: '/home/runner/work/_actions/actions/checkout/v1/action.yml'.
2019-08-14T00:13:41.0275685Z Start tracking orphan processes.
2019-08-14T00:13:41.1403114Z ##[group]Run set +e
2019-08-14T00:13:41.1476329Z set +e
2019-08-14T00:13:41.1476490Z command -v ruby
2019-08-14T00:13:41.1476643Z command -v ruby2.3.7
2019-08-14T00:13:41.1476757Z command -v ruby2.4.6

benknoble

benknoble