purcell

@-moz-document domain("github.com"), domain("gist.github.com") {
tt, code, pre, .file-data pre, textarea, .blob-line-code, .blob-code, .blob-code-inner, .diff-line-code {
        font-family: "Iosevka Fixed SS08", "Iosevka Fixed", "Iosevka Term", "Iosevka", "Input Mono Condensed", "PragmataPro", "Ubuntu Mono", "Menlo";
        font-weight: 400;
    }
}

@-moz-document domain("gitlab.com") {
tt, code, pre, textarea, .code, .file-content.code pre code {
        font-family: "Iosevka Fixed SS08", "Iosevka Fixed", "Iosevka Term", "Iosevka", "Input Mono Condensed", "PragmataPro", "Ubuntu Mono", "Menlo";

purcell

#!/bin/sh -e
# https://github.com/be5invis/Iosevka#build-your-own-style

DIR=~/Projects/External/iosevka

if [ -d "$DIR" ]; then
    (cd $DIR && git pull)
else
    git clone --depth 1 https://github.com/be5invis/Iosevka $DIR
fi

purcell

let
  # Assumes niv sources, which should include the repos for
  # nimlsp, ast-pattern-matching and jsonschema.
  sources = import ./nix/sources.nix;
  pkgs = import sources.nixpkgs {};

  unpackedSource = d: d.overrideAttrs (orig: {
    name = "${orig.pname}-source";
    phases = ["unpackPhase" "patchPhase" "installPhase"];
    installPhase = "mkdir $out; cp -aR . $out/.";

purcell

-- This is based on ideas from the excellent article "Beautiful Aggregations
-- with Haskell" by Evan Borden: https://tech.freckle.com/2017/09/22/aggregations/
module Aggregation where

import Prelude

import Data.Foldable (foldMap)
import Data.Monoid.Additive (Additive(..))
import Data.Newtype (un)

purcell

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}

purcell

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 157b2dd..f3807b7 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -1263,6 +1263,11 @@ the operating system.")
 (add-to-list 'window-system-initialization-alist '(ns . ns-initialize-window-system))
 
 
+(declare-function ns-toggle-fullscreen-internal "nsfns.m" ())
+(defun ns-toggle-fullscreen ()

purcell

(defun key-quiz--shuffle-list (list)
  "Shuffles LIST randomly, modying it in-place."
  (dolist (i (reverse (number-sequence 1 (1- (length list)))))
    (let ((j (random (1+ i)))
	  (tmp (elt list i)))
      (setf (elt list i) (elt list j))
      (setf (elt list j) tmp)))
  list)

purcell

{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -fno-warn-missing-fields #-}

-- | Interpolate any type that inhabits both IsString and Semigroup
-- This code is based on the "here" package. It would be nice to strip
-- leading whitespace, as the "neat-interpolation" package does.
-- Additionally, "neat-interpolation" has a simpler interpolation

purcell

commit 3b63b2c6e9e93adab09eace60750ed981a8e528f
Author: Steve Purcell <steve@sanityinc.com>
Date:   Sat Dec 21 11:44:12 2013 +0000

    Treat hex colors as sRGB (see  http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8402)

diff --git a/src/nsterm.m b/src/nsterm.m
index 733c05a..0c79186 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m

purcell

#!/bin/bash -e

image=mdillon/postgis:9.6-alpine
container_name=my-app-postgresql

if [ -z "$1" ]; then
    echo "Run command with a dockerised PostgreSQL DB.

usage: $(basename "$0") command