lierdakil’s gists

lierdakil / docx-toc.hs

Last active August 29, 2015 14:08

Pandoc filter to insert toc openxml in the beginning of document

	import Text.Pandoc.JSON

	tocXml :: String
	tocXml = "<w:sdt><w:sdtPr><w:docPartObj>"++
	"<w:docPartGallery w:val=\"Table of Contents\" /><w:docPartUnique />"++
	"</w:docPartObj></w:sdtPr><w:sdtContent><w:p><w:pPr>"++
	"<w:pStyle w:val=\"TOCHeading\" /></w:pPr><w:r>"++
	"<w:t>Table of Contents</w:t></w:r></w:p><w:p><w:r>"++
	"<w:fldChar w:fldCharType=\"begin\" w:dirty=\"true\" />"++
	"<w:instrText xml:space=\"preserve\"> TOC \\o \"1-3\" \\h \\z \\u "++

lierdakil / xmonad-client.hs

Last active June 4, 2018 19:17

Xmonad client for external control.

	import Graphics.X11.Xlib
	import Graphics.X11.Xlib.Extras
	import System.Environment

	main :: IO ()
	main = sendCommand "XMONAD_COMMAND" =<< getArgs

	sendCommand :: String -> [String] -> IO ()
	sendCommand addr (s:_) = do
	d <- openDisplay ""

lierdakil / pandoc-svg.hs

Last active August 29, 2015 14:17

Pandoc filter to convert svg to pdf with inkscape (useful for pdf output)

	import Text.Pandoc.JSON
	import Network.Mime
	import Data.Text as T
	import Data.ByteString.Char8 as BS
	import System.Process

	go :: Inline -> IO Inline
	go (Image alt (src,title)) =
	case BS.unpack $ defaultMimeLookup $ T.pack src of
	"image/svg+xml" -> do

lierdakil / texsvg.hs

Last active February 19, 2022 07:29

Pandoc filter to convert math to inline svg using latex and dvisvgm

	{-# LANGUAGE OverloadedStrings #-}
	import Text.Pandoc.JSON
	import System.Directory
	import System.FilePath ((</>))
	import qualified Data.Hash.MD5 as MD5
	import qualified Data.Text as T
	import System.IO.Temp
	import System.Process
	import Control.Monad (unless)

lierdakil / img2pdf.hs

Created April 8, 2015 17:08

	import Codec.Picture
	import Codec.Picture.Types
	import Graphics.PDF
	import Codec.Picture.Saving
	import Data.ByteString.Lazy as B
	import System.IO (hClose)
	import System.IO.Temp
	import System.Environment

	main :: IO ()

lierdakil / ghc-mod-built.log

Created August 18, 2015 01:37

	Root directory: /home/livid/github/pandoc-crossref
	Current directory: /home/livid/github/pandoc-crossref
	GHC Package flags:
	-hide-all-packages -no-user-package-db -package-db
	/home/livid/github/pandoc-crossref/.cabal-sandbox/x86_64-linux-ghc-7.10.2-packages.conf.d
	-package-id base-4.8.1.0-4f7206fd964c629946bb89db72c80011
	-package-id bytestring-0.10.6.0-2362d1f36f1255e85478e7793e15b170
	-package-id containers-0.5.6.2-2de75421d746ab474b330e43191bb31b
	-package-id data-default-0.5.3-4c3290e8e96ed6070337a2a566c7dc89
	-package-id mtl-2.2.1-d47f97102c5df05a46949da5cc90a7f3 -package-id

lierdakil / dotsvg.hs

Created September 6, 2015 06:06

	import Text.Pandoc.JSON
	import System.Process
	import Text.HTML.TagSoup

	main :: IO ()
	main = toJSONFilter dotToSvg

	dotToSvg :: Block -> IO Block
	dotToSvg x@(CodeBlock (_, cls, _) text)
	\| "dot" `elem` cls = do

lierdakil / common.h

Created February 13, 2016 19:21

Source-level singleton plugins for C++

	struct registry {
	static std::map<const char,Plugin> plugins;
	registry(const char* name, Plugin* plugin) {
	plugins[name]=plugin;
	}
	};

	#define REGISTER(name) \
	registry name ## _register(#name, new name());

lierdakil / xmonad.hs

Last active May 2, 2016 15:47

	{-# LANGUAGE Rank2Types, TypeOperators, ConstraintKinds, MultiParamTypeClasses #-}
	{-# LANGUAGE FlexibleInstances, FlexibleContexts, UndecidableInstances #-}

	import XMonad
	import Data.Constraint
	import XMonad.Layout.LayoutModifier (LayoutModifier, ModifiedLayout)
	import XMonad.Layout.NoBorders

	type IsLayout l a = (Read (l a), LayoutClass l a)

lierdakil / xmonad.hs

Last active May 5, 2016 16:45

A toy implementation of fully monadic config

	{-# LANGUAGE ConstraintKinds #-}
	{-# LANGUAGE FlexibleContexts #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE MultiParamTypeClasses #-}
	{-# LANGUAGE PolyKinds #-}
	{-# LANGUAGE Rank2Types #-}
	{-# LANGUAGE TypeOperators #-}
	{-# LANGUAGE FunctionalDependencies #-}
	{-# OPTIONS_GHC -Wall #-}

Nikolay Yakimov lierdakil