|
|
|
|
@ -1,7 +1,7 @@
|
|
|
|
|
# Guile Schemeing
|
|
|
|
|
The purpose of this repository is to hold various small utilities I commonly
|
|
|
|
|
use in Scheme. Running `make; make install` in the tk direcory will install
|
|
|
|
|
sources to the Guile `(%site-dir)` and compiled .go files to the Guile
|
|
|
|
|
use in Scheme. Running `make; sudo make install` in the tk direcory will install
|
|
|
|
|
sources to the Guile `(%site-dir)` and compiled .go files to the Guile
|
|
|
|
|
`(%site-ccache-dir)`. All modules are installed under the prefix `tk/`
|
|
|
|
|
|
|
|
|
|
## short.scm
|
|
|
|
|
@ -11,20 +11,20 @@ Aliases to shorten common names.
|
|
|
|
|
`(ssa>)` appends strings into a symbol
|
|
|
|
|
|
|
|
|
|
## listlogic.scm
|
|
|
|
|
Various logical tools.
|
|
|
|
|
Various logical tools.
|
|
|
|
|
|
|
|
|
|
`(display-if-not)`
|
|
|
|
|
`(display-if-not)`
|
|
|
|
|
Displays a given string if the first argument is `#f`
|
|
|
|
|
`(flatten)`
|
|
|
|
|
`(flatten)`
|
|
|
|
|
De-nests lists into a form where no `(car)` contains a list
|
|
|
|
|
`(lp&)`
|
|
|
|
|
`(lp&)`
|
|
|
|
|
Tests some predicate pairwise over two lists
|
|
|
|
|
`(l&)`
|
|
|
|
|
`(l&)`
|
|
|
|
|
Tests the equality according to `eq?` over two lists, returns as a list
|
|
|
|
|
all passing elements
|
|
|
|
|
`(if-some)`
|
|
|
|
|
`(if-some)`
|
|
|
|
|
The common `(if var var)` pattern
|
|
|
|
|
`(if-some-else)`
|
|
|
|
|
`(if-some-else)`
|
|
|
|
|
The common `(if var var default)` pattern
|
|
|
|
|
|
|
|
|
|
## mcron.scm
|
|
|
|
|
@ -36,7 +36,7 @@ Useful constants
|
|
|
|
|
Readable shortcuts, `(sec/mins 4)` rather than `(* 4 60)` or worse `240`
|
|
|
|
|
`(step-from)`
|
|
|
|
|
Normalize a time to be the next step sized increment from a base time
|
|
|
|
|
`(str->secs)`
|
|
|
|
|
`(str->secs)`
|
|
|
|
|
`(strf->secs)`
|
|
|
|
|
Converts a date string into seconds
|
|
|
|
|
`(current-date-string)`
|
|
|
|
|
|