This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import System.IO | |
import Data.Ratio | |
import Control.Monad (liftM2) | |
import XMonad | |
-- import XMonad.Config.Gnome | |
import Data.Monoid | |
import System.Exit |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
" .vimrc | |
" OrigAuthor: Steve Losh <steve@stevelosh.com> | |
" OrigSource: http://bitbucket.org/sjl/dotfiles/src/tip/vim/ | |
" Author: Martin Heuschober <epsilonhalbe@gmail.com> | |
" Source: http://http://github.com/epsilonhalbe/dotfiles/vimrc | |
" | |
" This file changes a lot. I'll try to document pieces of it whenever I have | |
" a few minutes to kill. | |
" Preamble ---------------------------------------------------------------- {{{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version='1.0' encoding='UTF-8' standalone='yes' ?> | |
<opml version="1.0"> | |
<head> | |
<title>PodcastAddict registration feeds</title> | |
<dateCreated>24 Mar 2020 23:51:56</dateCreated> | |
<dateModified>24 Mar 2020 23:51:56</dateModified> | |
</head> | |
<body> | |
<outline text="+1 Forward" type="rss" xmlUrl="http://1forward.libsyn.com/rss" htmlUrl="http://plusoneforward.libsyn.com/podcast" /> | |
<!-- <outline text="13 Minutes to the Moon" type="rss" xmlUrl="https://podcasts.files.bbci.co.uk/w13xttx2.rss" htmlUrl="http://www.bbc.co.uk/programmes/w13xttx2" /> --> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<schedule> | |
<version>1.0</version> | |
<conference> | |
<title>Vienna Honey Swing 2018</title> | |
<acronym>vhs18</acronym> | |
<days>4</days> | |
<start>2018-09-13</start> | |
<end>2018-09-16</end> | |
<timeslot_duration>0:05</timeslot_duration> | |
</conference> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function haskell_info() { | |
cabal_files=(*.cabal(N)) | |
if [ $#cabal_files -gt 0 ]; then | |
if [ -f cabal.sandbox.config ]; then | |
cabal_sandbox_info | |
elif [ -f stack.yaml ]; then | |
stack_info | |
else | |
echo "%{$fg[red]%}no stack/sandbox%{$reset_color%}" | |
fi |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
listWidget :: MonadWidget t m => m () | |
listWidget = do | |
rec oldlist :: Dynamic t [Event t Int] | |
<- simpleList newlist ((sample . current) >=> button') | |
clicked :: Event t Int <- leftmost <$> (sample $ current oldlist) | |
newlist :: Dynamic t [Int] <- holdDyn [0..10] ((enumFromTo 0 . succ) <$> clicked) | |
val :: Dynamic t Int <- (holdDyn 0 clicked) | |
divClass "container" $ (dynText $ fmap (("Last clicked value: " <>) . pack . show) val) | |
return () |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE OverloadedStrings #-} | |
{-# LANGUAGE RecursiveDo #-} | |
import Reflex | |
import Reflex.Dom | |
import Data.Monoid ((<>)) | |
import qualified Data.Map as Map | |
import Safe (readMay) | |
import Data.Text (pack, unpack, Text) | |
import Control.Applicative ((<*>), (<$>)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE NoMonomorphismRestriction #-} | |
{-# LANGUAGE MultiParamTypeClasses #-} | |
{-# LANGUAGE FlexibleInstances #-} | |
{-# LANGUAGE FlexibleContexts #-} | |
{-# LANGUAGE TypeFamilies #-} | |
{-# LANGUAGE TupleSections #-} | |
{-# LANGUAGE ViewPatterns #-} | |
{-# LANGUAGE BangPatterns #-} | |
import Control.Monad | |
import Control.Monad.Random |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module MyCombinatorics where | |
import Data.List ( (\\), | |
sort) | |
import Control.Applicative ( liftA2, | |
Applicative, | |
pure) | |
(^*) :: (a -> b) -> (b -> c) -> a -> c | |
f ^* g = g . f |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module MyCombinatorics where | |
import Data.List ( (\\), | |
sort) | |
import Control.Applicative ( liftA2, | |
Applicative, | |
pure) | |
(^*) :: (a -> b) -> (b -> c) -> a -> c | |
f ^* g = g . f |
NewerOlder