Skip to content

Instantly share code, notes, and snippets.

nbogie

View GitHub Profile
View CrapJsonWebsocketServer.hs
-- don't do it like this, especially the json!
import Network.WebSockets (shakeHands, getFrame, putFrame)
import Network (listenOn, PortID(PortNumber), accept, withSocketsDo)
import System.IO (Handle, hClose)
import qualified Data.ByteString as B (append, null)
import Data.ByteString.UTF8 (fromString) -- this is from utf8-string
import Control.Monad (forever)
import Control.Concurrent (forkIO, threadDelay)
import Data.List (intercalate)
View CrapJsonWebsocketClient.html
<html>
<!-- for use with equally crap server at https://gist.github.com/821606 -->
<!-- you'll need jquery and flot -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Flot Log presenter with External json file</title>
<link href="./clientsupport/layout.css" rel="stylesheet" type="text/css">
<script language="javascript" type="text/javascript" src="./clientsupport/jquery.js"></script>
<script language="javascript" type="text/javascript" src="./clientsupport/jquery.flot.js"></script>
@nbogie
nbogie / gist:822659
Created Feb 11, 2011
Nokogiri shortcut for using whatever namespace the doc announced
View gist:822659
envNodes = mydoc.xpath '//xmlns:environment', mydoc.root.namespaces
@nbogie
nbogie / GroupExample.hs
Created Mar 5, 2011
Still avoiding bytestring, and without anticipating next stage. Perf ok: 1 million lines in 2 sec and 1 Mb ram, with -O2
View GroupExample.hs
import Data.Function (on)
import Data.List (groupBy)
import Data.Maybe (mapMaybe)
import qualified Data.List.Utils as U
type Domain = String
type NameServer = String
main :: IO ()
main = interact (processLines . lines)
@nbogie
nbogie / GroupExample.hs
Created Mar 5, 2011
break out parseInput - it's good to have dedicated parse stage indicating parsed type.
View GroupExample.hs
import Data.Function (on)
import Data.List (groupBy)
import Data.Maybe (mapMaybe)
import qualified Data.List.Utils as U
type Domain = String
type NameServer = String
main :: IO ()
main = interact process
@nbogie
nbogie / CompactNameServers.hs
Created Mar 17, 2011
Compacts lists of nameservers "a.y.z", "b.y.z" into z(y(a,b))
View CompactNameServers.hs
import qualified Data.List.Utils as U
import Data.List (sort, groupBy, intercalate)
import Data.Function (on)
-- -------------------------------------------------
-- example data
-- -------------------------------------------------
examples :: [(Domain, [NameServer])]
examples = [("pachube.com",["7.f.c",
"5.f.c",
View PodParser.hs
{-- snippet all --}
module PodParser where
import PodTypes
import Text.XML.HaXml
import Text.XML.HaXml.Parse
import Text.XML.HaXml.Posn
import Text.XML.HaXml.Html.Generate(showattr)
import Data.Char
import Data.List
@nbogie
nbogie / haxml_showattr_bugdemo.hs
Created Mar 23, 2011
A demonstration of a problem calling showattr in HaXml
View haxml_showattr_bugdemo.hs
module Main where
import Text.XML.HaXml
import Text.XML.HaXml.Posn
main :: IO ()
main = processXmlWith (hexagrams `o` tag "IChing")
hexagrams :: Content Posn -> [Content Posn]
hexagrams = html [ hbody [htable [rows `o` children `with` ( tag "hexagram")] ] ]
@nbogie
nbogie / SimpleAesonJsonExample.hs
Created May 22, 2011
Simplest Aeson json parsing and generation example
View SimpleAesonJsonExample.hs
{-# LANGUAGE OverloadedStrings #-}
-- This is a very simple example of parsing and generating json with Aeson,
-- by a haskell newbie and intended for newbies.
--
-- This almost certainly contains a number of bad practices. It works for
-- me and hopefully will get you started.
--
-- I couldn't find a stand-alone example of Aeson usage and found it tricky to
-- get going. For example, if you don't realize to enable the language extension
@nbogie
nbogie / custom_log_subscriber.rb
Created Jun 16, 2011
attempt to change out ActionController::LogSubscriber in rails 3
View custom_log_subscriber.rb
#put this in config/initializers/custom_ac_log_subscriber.rb
## needed if we re-enable additions
#
#require 'active_support/core_ext/object/blank'
module MyApp
#TODO: we should no longer interit from ActionController::LogSubscriber
# as we are not truly unregistering the parent.
class CustomAcLogSubscriber < ActiveSupport::LogSubscriber
INTERNAL_PARAMS = ActionController::LogSubscriber::INTERNAL_PARAMS
You can’t perform that action at this time.