Skip to content

Instantly share code, notes, and snippets.

@alanz
alanz / .emacs
Created Mar 20, 2021
org-roam todo's in agenda
View .emacs
;;----------------------------------------------------------------------
;; Picking up TODO items from org-roam notes
;; Via https://magnus.therning.org/2021-03-14-keeping-todo-items-in-org-roam.html
(defun roam-extra:todo-p ()
"Return non-nil if current buffer has any TODO entry.
TODO entries marked as done are ignored, meaning the this
function returns nil if current buffer contains only completed
tasks."
@alanz
alanz / cabal-changes.sh
Created Sep 23, 2018
Show recent changes to the local hackage index file
View cabal-changes.sh
#!/bin/sh
# Show last 20 changes to the hackage repo
tar tvf ~/.cabal/packages/hackage.haskell.org/01-index.tar | tail -n 20
View keybase.md

Keybase proof

I hereby claim:

  • I am alanz on github.
  • I am alanz (https://keybase.io/alanz) on keybase.
  • I have a public key ASAcBzN91Tcu_ThkEm8J9-7mBpb-2v43c_vP35ibuk9MfAo

To claim this, I am signing this object:

View config-debian.sh
#!/bin/sh
# Based on #ghc conversations, the following results in a working build on
# Debian testing with binutils-2.27.9+b1
# First, make sure that the following patches have been applied
#
# arc patch --nobranch D2672
# arc patch --nobranch D2673
# arc patch --nobranch D2674
View Foo.hs
-- trying our emacs gist-buffer
main = putStrLn "hello"
@alanz
alanz / CleanWhite.hs
Created Jan 9, 2016
haskell code to clean up whitespace, replaces tabs with spaces and deletes trailing whitespace
View CleanWhite.hs
-- |strip trailing whitespace, and turn tabs into spaces
-- Note: using Text as its append performance beats String
cleanupWhiteSpace :: FilePath -> IO T.Text
cleanupWhiteSpace file = do
contents <- T.readFile file
let fixed = map cleanupOneLine (T.lines contents)
return (T.unlines fixed)
tabWidth :: Int
tabWidth = 8
@alanz
alanz / Simple.hs
Created Apr 22, 2012
Updated Simple.hs to not emit Maybe fields without values
View Simple.hs
{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative ((<$>), (<*>), empty)
import Data.Aeson
import Data.Aeson.Types
import qualified Data.ByteString.Lazy.Char8 as BL
data Coord = Coord { x :: Double, y :: Double, c :: Maybe String }
deriving (Show)