ArthurClune

# escaping.txt
---
{ "value":"\u00B9"}
---
<div>&sup1;</div>


# url.txt

---

ArthurClune

# Connected to Eduroam, IP 10.32.6.137

$ openssl s_client -connect ec2-54-166-59-168.compute-1.amazonaws.com:5223       11:26:52
CONNECTED(00000003)
write:errno=54

# This error means "no peer certificate available"

# Now I activate the VPN                                                                   11:32:50

ArthurClune

Keybase proof

I hereby claim:

• I am arthurclune on github.
• I am arthurclune (https://keybase.io/arthurclune) on keybase.
• I have a public key whose fingerprint is C634 42B5 C6FB F195 D0CC 185A 209C 7D62 FB09 F5CB

To claim this, I am signing this object:

ArthurClune

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

-- Note: this code doesn't pass the given tests. Instead I've re-written these
-- to show what a more type-safe solution might look like.
-- See https://gist.github.com/ArthurClune/7060045 for the new test file
--
-- By doing this we make several of the tests redudant as they don't even type-check
--

module DNA

ArthurClune

import Test.HUnit (Assertion, (@=?), runTestTT, assertFailure, Test(..), Counts(..))
import System.Exit (ExitCode(..), exitWith)
import DNA (count, nucleotideCounts, Base(..), DNA(..))
import Data.Map (fromList)
import Data.Monoid ( (<>) )
import qualified Control.Exception as E

exitProperly :: IO Counts -> IO ()
exitProperly m = do
  counts <- m

ArthurClune

#!/usr/bin/env python
"""

Code to read a squid log file
    
Sample usage:

f = SquidLog('access.log.1.gz')
for l in f:
    print l.ts, l.remhost, l.url

ArthurClune

    cursor.execute(
        """WITH tr AS (SELECT submitted_time AS tr_from, submitted_time - interval '%(hour)s hour' AS tr_until FROM attacks WHERE id = (SELECT max(id) FROM attacks))
            SELECT ident_id, count(*) AS count, max(submitted_time) AS last, min(submitted_time) AS first, (SELECT tr_from FROM tr) AS tr_from, (SELECT tr_until FROM tr) AS tr_until, now()
            FROM attacks, tr WHERE submitted_time > tr_until AND submitted_time <= tr_from AND ident_id IN (%(idents)s) GROUP BY ident_id ORDER BY count DESC""" ,
            {"hours" : hours, "idents" : ','.join(map(str, ident_ids) )} )
    
    

ArthurClune

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeysP)
import qualified XMonad.StackSet as W
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Layout.Spiral
import System.IO

ArthurClune

For a MBP 13", intel integrated graphics.

Powersave settings:

Install mactel ppa plus macfanctl repo

Fan control:

arthur@jumpjet:~/Dropbox/rode_setup/home/bin$ more fan 
#!/bin/sh

ArthurClune

virtual=192.168.1.1:53
   real=192.168.1.2:53 gate
   real=192.168.1.3:53 gate


   protocol=udp
   scheduler=rr
   persistent=300