Skip to content

Instantly share code, notes, and snippets.


Simon Michael simonmichael

View GitHub Profile
View gist:6c5b11ed12695f40809f
~/src/hledger$ git l -1000 hledger-0.23.3..master
2014-09-07 2227997 revert an unnecessary "fix" in efe7c7a that broke tests (HEAD, origin/master, origin/HEAD, master)
2014-09-07 a65116a fix func. test numbering
2014-09-12 42a22be tools: fix tagrelease
2014-09-12 5d403c2 doc: changelogs (resolve conflicts)
2014-09-12 53aee0e resolve conflict
2014-09-12 d7f1733 remove text upper bound, allowing 1.2+ (fixes #207)
2014-09-06 efe7c7a journal: dates should be followed by whitespace or newline
2014-08-14 2992ce0 web: add form ignores trailing blank fields
2014-08-14 8d1ceb0 web: increase initial add form postings to four
simonmichael / iXpenseIt.csv.rules
Last active Dec 24, 2015 — forked from anonymous/gist:6859060
hledger CSV conversion rules for iXpenseIt phone app
View iXpenseIt.csv.rules
skip 1
fields Date,Type,Category,Subcategory,Vendor,Payment,Currency,Amount,Note
description %vendor
account1 assets:%payment
account2 expenses:%type:%category:%subcategory
comment %note
simonmichael / gist:6525372
Last active Dec 22, 2015 — forked from anonymous/gist:6525360
darcs diff shows correct change, darcs whatsnew does not
View gist:6525372
$ darcs diff lib/
diff -rN -u lib/ lib/
--- lib/ 2013-09-11 08:36:05.000000000 -0700
+++ lib/ 2013-09-11 08:36:05.000000000 -0700
@@ -26,6 +27,7 @@
+global $__template_register_outputfilter;
$__template_register_outputfilter = array();
YEAR:=$(shell date +%Y)
MONTH:=$(shell date +%m)
MONTHS:=$(shell ghc -e "(putStr . unwords . map show) [1..$(MONTH)]")
# quick income statement for specified (single-word) period
INCOMESTATEMENTACCTS=^income ^expenses ^draw
INCOMESTATEMENTOPTS=--cost --effective --depth 1 #--flat --drop 1
@printf "\nincome statement for $*:\n"
simonmichael / gist:5005481
Last active Dec 14, 2015 — forked from anonymous/gist:5005479
http-conduit issues
View gist:5005481
-- | Fetch the contents of a uri, which must be an ascii string.
-- Redirects, authentication, https: and file: uris are supported.
readUri :: Manager -> String -> Opts -> IO String
readUri manager s opts =
case parseURI' s of
Just URI{uriScheme="file:",uriPath=f} -> readFeedFile f
Just _ -> do
r <- parseUrl s
let cachecontrol = cache_control opts
r' | null cachecontrol = r
simonmichael / gist:4354506
Last active Dec 10, 2015 — forked from anonymous/gist:4354489
hledger --width design notes
View gist:4354506

The --width/-w options adjusts the width of the output. By default, register's output is 80 characters wide. To allow more space for long descriptions and account names, use -w to increase the width to 120 characters, or -wN to set any desired width (at least 45 recommended). The date and amount fields have fixed width, and the remainder is split between description and account.

With multiple comma-separated values, -w sets the respective field widths:

-w 10,20,30,10,10

A total width or field width of auto means be as wide as necessary to avoid clipping data. If a current terminal width can be detected, the total width will be limited to this. Eg:

View gist:779023
-- | Apply a function the specified number of times.
applyN :: Int -> (a -> a) -> a -> a
applyN n f = (!! n) . iterate f
View gist:658846
-- frame-based animation, SDL
mainloop1 :: Game -> IO ()
mainloop1 game@Game{fpsmgr=fpsmgr,time=t0} = do
t1 <- SDL.getTicks
game' <- handleEvents game
let game'' = step game'
t2 <- SDL.getTicks
sdlRender game''
t3 <- SDL.getTicks
Framerate.delay $ fpsmgr
View gist:658811
-- test for hsSDL unknown symbol issue on mac OSX leopard
-- with macports sdl libs and hackage SDL libs installed,
-- this script compiles and runs via ghc --make, but via
-- runhaskell gives an error like:
-- /Users/simon/.cabal/lib/SDL-0.6.2/ghc-6.12.3/HSSDL-0.6.2.o: unknown symbol `_SDL_FreeSurface'
import Graphics.UI.SDL (getTicks)
main = do
You can’t perform that action at this time.