Skip to content

Instantly share code, notes, and snippets.

alanz / .emacs
Created Mar 20, 2021
org-roam todo's in agenda
View .emacs
;; Picking up TODO items from org-roam notes
;; Via
(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
alanz /
Created Sep 23, 2018
Show recent changes to the local hackage index file
# Show last 20 changes to the hackage repo
tar tvf ~/.cabal/packages/ | tail -n 20

Keybase proof

I hereby claim:

  • I am alanz on github.
  • I am alanz ( on keybase.
  • I have a public key ASAcBzN91Tcu_ThkEm8J9-7mBpb-2v43c_vP35ibuk9MfAo

To claim this, I am signing this object:

# 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 / 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 / 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)