Skip to content

Instantly share code, notes, and snippets.

View joefiorini's full-sized avatar

Joe Fiorini joefiorini

134 followers · 20 following
View GitHub Profile
@joefiorini
joefiorini / libxdg_basedir.rb
Last active August 29, 2015 14:13
require 'formula'
class LibxdgBasedir < Formula
url 'https://github.com/devnev/libxdg-basedir/archive/libxdg-basedir-1.2.0.tar.gz'
homepage 'http://n.ethz.ch/~nevillm/download/libxdg-basedir/'
md5 'bd3bb815c9e27fda9c721b9c0b29ddda'
def install
ENV['PATH'] = "/usr/local/bin:#{ENV['PATH']}"
@joefiorini
joefiorini / awesome.rb
Last active November 24, 2015 20:01 — forked from dr-fozzy/gist:9638661
require 'formula'
class Awesome < Formula
url 'http://awesome.naquadah.org/download/awesome-3.5.6.tar.bz2'
homepage 'http://awesome.naquadah.org/'
md5 '81c7353932dd067cc7a222d9ede1cdd7'
depends_on 'cmake'
depends_on 'lua'
depends_on 'imlib2'
@joefiorini
joefiorini / undo.elm
Last active August 29, 2015 14:13
An example of a genericized undo/redo in Elm
import List
import List ((::))
import Signal
import Signal ((<~), (~))
import Html
import Html (div, text, button, ul, input, li, p, label)
import Html.Attributes (disabled, type', name, id, value, checked)
import Html.Events (onClick, on, targetValue)
@joefiorini
joefiorini / toggle.elm
Created January 9, 2015 01:12
Signal.toggle for Elm
import Signal
import Html
import Html (div, text, button)
import Html.Events (onClick)
toggle s1 s2 s =
Signal.foldp
(\prev curr ->
if prev == s1 then s2 else s1) s1 s
@joefiorini
joefiorini / test.md
Last active August 29, 2015 14:13
@joefiorini
joefiorini / xmbarrc.hs
Created January 8, 2015 18:05
Xmobarrc
Config { font = "xft:Source Code Pro:size=24:bold:antialias=true"
, bgColor = "#002b36"
, fgColor = "#657b83"
, position = TopP 0 150
, lowerOnStart = True
, commands = [ Run Cpu ["-L", "3", "-H", "50", "-n", "#719e07", "-h", "#dc322f"] 10
, Run Battery ["-t", "<left>% (<timeleft>)", "-L", "25", "-H", "75", "-h", "#719e07", "-n", "#b58900", "-l", "#dc322f"] 10
, Run ThermalZone 0 ["-t", "<temp> C", "-L", "40", "-H", "79", "-h", "#dc322f", "-n", "#b58900", "-l", "#719e07"] 10
, Run Memory ["-t","<usedratio>%"] 10
, Run Date "%a %_d/%m %H:%M" "date" 10
@joefiorini
joefiorini / main.elm
Created January 8, 2015 17:06
String Calculator Kata in Elm
import Graphics.Element (..)
import Graphics.Input.Field (Content, Selection, Direction(..))
import Graphics.Input.Field as Field
import Signal
import Time
import String
import List
import Result
import Text (plainText)
import Debug
@joefiorini
joefiorini / main.js
Created November 28, 2014 21:48
var Elm = Elm || { Native: {} };
Elm.Array = Elm.Array || {};
Elm.Array.make = function (_elm) {
"use strict";
_elm.Array = _elm.Array || {};
if (_elm.Array.values)
return _elm.Array.values;
var _op = {},
_N = Elm.Native,
_U = _N.Utils.make(_elm),
@joefiorini
joefiorini / keter.service
Created October 24, 2014 12:21
[Unit]
Description=Keter Deployment Tool
[Service]
ExecStart=/opt/keter/bin/keter /opt/keter/etc/keter-config.yaml
[Install]
WantedBy=multi-user.target
@joefiorini
joefiorini / compiler-output.txt
Last active August 29, 2015 14:06
Main.hs:47:3:
Couldn't match type ‘WhebT WhebShort () IO HandlerResponse’
with ‘HandlerResponse’
Expected type: LoggingT (WhebT WhebShort () IO) HandlerResponse
Actual type: LoggingT (WhebT WhebShort () IO) ShortHandler
In a stmt of a 'do' block:
return
$ renderHtml
$ layout
$ do { ((Control.Monad.Logger.monadLoggerLog