Skip to content

Instantly share code, notes, and snippets.

View slogsdon's full-sized avatar

Shane Logsdon slogsdon

130 followers · 7 following
View GitHub Profile
@slogsdon
slogsdon / keybase.md
Last active August 29, 2015 13:57
Keybase Proof

Keybase proof

I hereby claim:

  • I am slogsdon on github.
  • I am slogsdon (https://keybase.io/slogsdon) on keybase.
  • I have a public key whose fingerprint is 5D1B B50F 4AF7 EDAB B55E D1CB D0B3 E6E9 83C9 6A22

To claim this, I am signing this object:

@slogsdon
slogsdon / main.php
Created October 11, 2014 17:16
HTTP server using sockets
<?php
$socket = socket_create(AF_INET, SOCK_STREAM, 0) or die('Failed to create socket!');
socket_bind($socket, 0, 3000);
socket_listen($socket);
$msg = '<html><head><title>Hello, world!</title></head><body>Hello, world!</body></html>';
for (;;) {
if ($client = socket_accept($socket)) {
@slogsdon
slogsdon / offline_docs.exs
Created April 1, 2015 02:16
defmodule OfflineDocs do
def parse_dep({dep, constraint}) when constraint |> is_binary, do: parse_dep({dep, constraint, []})
def parse_dep({dep, options}) when options |> is_list, do: parse_dep({dep, "", []})
def parse_dep({dep, _contraint, options}) do
if options[:only] == nil or options[:only] == Mix.env do
[dep: dep]
else
nil
end
end
@slogsdon
slogsdon / Temp.hs
Created April 4, 2015 00:47
module Temp where
import System.Directory
path :: String
path = "/Users/shane.logsdon/Code/haskell/slogsdon.com/provider/posts/"
files :: IO [FilePath]
files = getDirectoryContents path
@slogsdon
slogsdon / ServiceContainer.php
Created July 8, 2015 18:05
Basic dependency injection container for PHP
<?php
class ServiceContainer
{
private static $services;
private static $generators;
public function __construct()
{
self::$services = [];
@slogsdon
slogsdon / Main.hs
Created July 27, 2015 01:54
{-#LANGUAGE OverloadedStrings #-}
module Main where
import Data.Monoid
import Data.Text (Text, pack)
import Web.Spock.Safe
main :: IO ()
main =
runSpock 3000 $ spockT id $
@slogsdon
slogsdon / test.exs
Created October 3, 2015 14:23
# @spec Control.Applicative.apply(Control.Applicative.t, Control.Functor.t) :: Control.Applicative.t
# @spec Control.Monad.bind(Control.Monad.t, (term -> Control.Monad.t)) :: Control.Monad.t
import Data.Maybe
alias Control.Applicative, as: A
import Control.Monad
(&(&1 + 2))
|> just
|> A.apply(just(5))
@slogsdon
slogsdon / gist:2701393
Created May 15, 2012 12:30 — forked from davidalexander/gist:1086455
Magento Snippets

Magento Snippets

Download extension manually using pear/mage

Pear for 1.4, mage for 1.5. File downloaded into /downloader/.cache/community/

./pear download magento-community/Shipping_Agent
./mage download community Shipping_Agent

Clear cache/reindex

@slogsdon
slogsdon / Main.hs
Created February 13, 2016 01:48
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Concurrent (forkIO)
import Control.Monad (forever)
-- import qualified Data.ByteString.Char8 as S
import Network.Socket hiding (recv)
import Network.Socket.ByteString (sendAll)
main :: IO ()
@slogsdon
slogsdon / Main.hs
Created February 16, 2016 03:50
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Concurrent (forkIO)
import Control.Monad (forever)
import Data.ByteString.Builder (Builder, hPutBuilder, lazyByteString)
import qualified Data.ByteString.Lazy as BS
import Data.Monoid ((<>))
import GHC.IO.Handle (BufferMode (..), hClose,
hSetBinaryMode, hSetBuffering)