cstrahan

diff --git a/w3mimg/x11/x11_w3mimg.c b/w3mimg/x11/x11_w3mimg.c
index d24213e..c534393 100644
--- a/w3mimg/x11/x11_w3mimg.c
+++ b/w3mimg/x11/x11_w3mimg.c
@@ -378,6 +378,10 @@ x11_load_image(w3mimg_op * self, W3MImage * img, char *fname, int w, int h)
        w = imlib_image_get_width();
     if (h <= 0)
        h = imlib_image_get_height();
+
+    im = imlib_create_cropped_scaled_image(0, 0, imlib_image_get_width(), imlib_image_get_height(), w, h);

cstrahan

{-# language KindSignatures #-}
{-# language PolyKinds #-}
{-# language DataKinds #-}
{-# language TypeFamilies #-}
{-# language RankNTypes #-}
{-# language NoImplicitPrelude #-}
{-# language FlexibleContexts #-}
{-# language MultiParamTypeClasses #-}
{-# language GADTs #-}
{-# language ConstraintKinds #-}

cstrahan

{-# LANGUAGE Rank2Types #-}

import Control.Applicative (Applicative(..), (<$>), Const(..))
import Control.Lens.Internal.Review (Reviewed(..))
import Control.Lens.Internal.Bazaar (Bazaar(..))
import Data.Monoid (Monoid(..), First(..))
import Data.Profunctor
import Data.Profunctor.Rep
import Data.Functor.Identity

cstrahan

{-# LANGUAGE RecordWildCards #-}
import Control.Monad
import Control.Monad.Trans.Class
import Data.Void

data ProxyOps a' a b' b m = Ops { req :: a' -> m a, resp :: b -> m b' }

newtype Proxy a' a b' b m r = Proxy { runProxy :: ProxyOps a' a b' b m -> m r }

run :: ProxyOps a' a b' b m -> Proxy a' a b' b m r -> m r

cstrahan

This is a modified version of the patch found here:
https://gist.github.com/choppsv1/36aacdd696d505566088

Which itself is a modified version of:
http://emacs.1067599.n5.nabble.com/RFC-Add-tty-True-Color-support-tt299962.html

To use true-color, use the flag --color=true-color.

Alternatively, set the EMACS_TRUE_COLOR_SEPARATOR environment variable to
either ':' or ';'.

cstrahan

Pieces you need:

* emacs
* ghcid

ghcid needs to know the height of the terminal, we'll set it explicitly 

height = (window-height) - (scroll-margin) - 1

set this height as your term-buffer-maximum-size

cstrahan

{-# Language TypeFamilies #-}

module Pcbt where

import Prelude hiding (lookup)
import Data.Set (Set)
import Data.Map (Map)
import qualified Data.Set as Set
import qualified Data.Map.Strict as Map
import Data.Maybe

cstrahan

Profunctor lenses
=================

First, we enable the RankNTypes extension which gives us 'forall' and also import some modules:

> {-# LANGUAGE RankNTypes #-}
> module ProfunctorLenses where
> import Data.Profunctor
> import Data.Tagged
> import Data.Bifunctor

cstrahan

{-# language KindSignatures #-}
{-# language PolyKinds #-}
{-# language DataKinds #-}
{-# language TypeFamilies #-}
{-# language RankNTypes #-}
{-# language NoImplicitPrelude #-}
{-# language FlexibleContexts #-}
{-# language MultiParamTypeClasses #-}
{-# language GADTs #-}
{-# language ConstraintKinds #-}

cstrahan

@namespace html url(http://www.w3.org/1999/xhtml);
@namespace xul url(http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul);
/*
    Author: Twily
    Description: Minimal flat styled tabs for Australis
    Compitability: Firefox Nightly v31.0a1 - v32.0a1 (Australis)
       CSS Variables were introduced to Firefox in v29.0a1
    Website: http://twily.info/