Skip to content

Instantly share code, notes, and snippets.

🐒
trying to code his way out of it

Sebastian Gfeller sebug

🐒
trying to code his way out of it
View GitHub Profile
@sebug
sebug / SmartArt.purs
Created Jul 8, 2016
Canvas schematic arrows
View SmartArt.purs
module SmartArt where
import Prelude (bind, ($), (+), (*), (-), (/), pure)
import Control.Monad.Eff (Eff)
import Graphics.Canvas (CANVAS, fillPath, setFillStyle, moveTo, lineTo, fillText, setFont, measureText, Context2D)
import Data.List (List(..))
drawArrows :: forall eff. Context2D -> Number -> Number -> Number -> List String -> Eff (canvas :: CANVAS | eff) Number
drawArrows ctx dx x y Nil = pure x
drawArrows ctx dx x y (Cons l ls) = do
View sample_get_GPO.ps1
$AppliedGPOs = $(Get-WmiObject -Namespace 'ROOT\RSOP\Computer' -Class RSOP_GPLink -Filter "AppliedOrder <> 0" | Select @{n='GPO';e={$_.GPO.Replace("RSOP_GPO.","")}} | Select -ExpandProperty GPO)
Get-WmiObject -Namespace 'ROOT\RSOP\Computer' -Class 'RSOP_GPO' -Filter $AppliedGPOs[0]
View APIServiceRedacted.swift
import Foundation
struct APIService {
let baseUrl = "redacted"
let applicationId = "redacted"
let eventCode = "redacted"
let token: String?
func login(c: Credentials, andThen: APIService -> ()) -> () {
View gist:ddd82f3a14d152404c46
using System;
using System.IO;
using System.Collections.Generic;
using System.Security.Cryptography;
namespace Base64
{
public class Base64Stream
{
public static int Main(string[] args)
View Main
module Main where
import Debug.Trace
import Network.XHR
import qualified Thermite as T
import qualified Thermite.Html as T
import qualified Thermite.Html.Elements as T
import qualified Thermite.Action as T
import qualified Thermite.Types as T
You can’t perform that action at this time.