quote a day, some factor code and some bash+pup+jq

For todays hack, I wanted to have some tiny app that would display a quote/sentence/link at random. Basically, the same as the "fortune" unix command.

In principle it should be trivial, it's just picking a random quote from a huge file.

	! Copyright (C) 2017 Raimon Grau
	! See http://factorcode.org/license.txt for BSD license.
	USING: kernel sequences command-line io namespaces assocs io.files
	io.encodings.utf8 random io.styles wrap.strings ;
	IN: quote
	: all-quotes ( fname -- l ) utf8 file-lines ;
	: at-random ( l -- elem ) 1 sample first ;
	: quote-of-the-day ( fname -- )
	all-quotes at-random 40 wrap-string print ;
	: quote-run ( -- ) command-line get first quote-of-the-day ;
	MAIN: quote-run

view raw quote.factor hosted with ❤ by GitHub

The idea of doing it in factor was, well... to be able to do anything at all in factor, as most of my previous attempts failed to produce anything that even did what I expected. The tiny repo is in github.