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:
;;---------------------------------------------------------------------- | |
;; 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." |
#!/bin/sh | |
# Show last 20 changes to the hackage repo | |
tar tvf ~/.cabal/packages/hackage.haskell.org/01-index.tar | tail -n 20 |
I hereby claim:
To claim this, I am signing this object:
#!/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 |
-- trying our emacs gist-buffer | |
main = putStrLn "hello" |
-- |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 |
{-# 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) |