master-q

main = do c <- getChar
          putChar c
          putChar '\n'

master-q

Config { font = "xft:Sans-9:bold"
       , bgColor = "black"
       , fgColor = "grey"
       , position = TopW L 80
       , commands = [ Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
                    , Run Memory ["-t","Mem: <usedratio>%"] 10
                    , Run Swap [] 10
                    , Run Date "%Y/%m/%d %a %k:%M" "date" 10
                    , Run StdinReader
                    ]

master-q

import XMonad
import XMonad.Actions.GridSelect
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Layout.Magnifier
import XMonad.Layout.NoBorders
import XMonad.Layout.Grid
import XMonad.Prompt
import XMonad.Prompt.Shell

master-q

!! Caps_Lock to Control
clear Lock
add Control = Caps_Lock
keysym Caps_Lock = Control_L
clear mod3
add mod3 = Muhenkan
keysym Muhenkan = Alt_L

master-q

#!/bin/sh

VIDEO_SIZE="320x240"
FPS="15"
STREAM_KEY="live_XXXXXXXX_XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
STREAM_URL="rtmp://live.justin.tv/app/$STREAM_KEY"

date
padsp ffmpeg -f video4linux2 -pix_fmt bgra -s "$VIDEO_SIZE" -r "$FPS" \
    -i /dev/video1 \

master-q

casper$ darcs --version                                                   [~/01tmp]
2.5.2 (release)
######################### first
casper$ rm -rf ~/.darcs *                                                 [~/01tmp]
casper$ darcs get http://darcs.debian.org/pkg-haskell/tools               [~/01tmp]
Hash failure in /home/kiwamu/.darcs/cache/pristine.hashed/0000007843-55fa9ab95152752edb89d258263981d3ec719e5085eab52dc22a3af76e7278f0
Hash failure in /home/kiwamu/.darcs/cache/pristine.hashed/0000012538-1380cdf73b83338753b2da89a5bb5cfab7707ba8bf9421173e067bad4a34fe90
Hash failure in http://darcs.debian.org/pkg-haskell/tools/_darcs/pristine.hashed/0000012538-1380cdf73b83338753b2da89a5bb5cfab7707ba8bf9421173e067bad4a34fe90

darcs failed:  Couldn't fetch `0000012538-1380cdf73b83338753b2da89a5bb5cfab7707ba8bf9421173e067bad4a34fe90'

master-q

### http://www.jmuk.org/~mukai/camlp4tut.html#label-94
$ cat foo.ml
open Camlp4.PreCast
open Syntax
EXTEND Gram
  GLOBAL: expr;

  expr: LEVEL "top"
    [[ "repeat"; e1 = expr; "until"; e2 = expr ->
          <:expr< do { $e1$; while not $e2$ do { $e1$; } } >> ]];

master-q

$ traceroute lambda.haskell.org
traceroute to lambda.haskell.org (78.46.100.180), 30 hops max, 60 byte packets
 1  ntt.setup (192.168.1.1)  1.410 ms  1.981 ms  2.294 ms
 2  133.160.149.233 (133.160.149.233)  7.026 ms  7.092 ms  7.107 ms
 3  133.160.149.225 (133.160.149.225)  8.883 ms  8.945 ms  9.106 ms
 4  133.160.127.1 (133.160.127.1)  10.394 ms  10.560 ms  10.935 ms
 5  125.29.26.109 (125.29.26.109)  19.221 ms  19.305 ms  19.555 ms
 6  otejbb204.kddnet.ad.jp (59.128.7.194)  10.951 ms otejbb204.kddnet.ad.jp (59.128.7.130)  9.634 ms otejbb203.kddnet.ad.jp (59.128.7.193)  9.404 ms
 7  lajbb001.kddnet.ad.jp (203.181.100.10)  124.927 ms lajbb001.kddnet.ad.jp (203.181.100.18)  145.945 ms lajbb001.kddnet.ad.jp (203.181.100.10)  121.278 ms
 8  tr-la7.kddnet.ad.jp (59.128.2.158)  119.465 ms  123.290 ms tr-la7.kddnet.ad.jp (59.128.2.162)  110.658 ms

master-q

#!/usr/bin/env runhaskell
{-# Language OverloadedStrings #-}
import Data.Text.Encoding
import qualified Data.Text.IO as DTIO
import Text.XmlHtml
import Text.XmlHtml.Cursor
import System.Process
import System.Exit

findLink :: [Node] -> [(String, String)]

master-q

#!/usr/bin/env runhaskell
{-# Language OverloadedStrings #-}
import qualified Text.Pandoc as P
import System.Process
import System.Exit
import qualified System.IO.UTF8 as U8
import Data.ByteString.Char8 ()

findLink' :: [P.Inline] -> [(String, String)]
findLink' inlines = concat $ fmap go inlines