taylskid

Keybase proof

I hereby claim:

• I am taylskid on github.
• I am taylskid (https://keybase.io/taylskid) on keybase.
• I have a public key ASCyWavjhlHu4rQLh_n96V1CkvqlVG0UKXVSl73YtkYSRAo

To claim this, I am signing this object:

taylskid

module Lib
    ( startServer
    ) where

import Control.Exception
import qualified Data.ByteString.Char8 as S
import Network.Socket hiding (send, recv)
import Network.Socket.ByteString
import System.Directory

taylskid

(require 'package)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))
(package-initialize)

(add-to-list 'load-path "~/.emacs.d/custom")
(require 'better-defaults)
(require 'pastething)

;; path stuff

taylskid

(struct pos (x y) #:transparent)

(define (pos+ p1 p2)
  (match-let ([(pos x1 y1) p1]
              [(pos x2 y2) p2])
    (pos (+ x1 x2)
         (+ y1 y2))))

(define (flip f)
  (lambda (x y)

taylskid

self: super:

{
  gerbil = super.gerbil.overrideAttrs ( oldAttrs: rec {
    version = "0.16";
    git-version = version;
    src = self.fetchFromGitHub {
      owner = "vyzo";
      repo = "gerbil";
      rev = "v${version}";

taylskid

;; path: .emacs.d/private/gerbil/packages.el
;;; packages.el --- gerbil layer packages file for Spacemacs.
;;
;; Copyright (c) 2012-2020 Sylvain Benner & Contributors
;;
;; Author: Taylor Skidmore <[email protected]>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;

taylskid

;; -*- Gerbil -*-
(export ~> ~>>)

(defrules ~> ()
  ((_ x) x)
  ((_ x (f a_1 ...)) (f x a_1 ...))
  ((_ x f) (~> x (f)))
  ((_ x e e1 ...) (~> (~> x e) e1 ...)))

(defrules ~>> ()