jandrewthompson

# OfflineImap config.  
# copy to ~/.offlineimaprc

[general]
accounts = ISU

[Account ISU]
localrepository = Local
remoterepository = Remote

jandrewthompson

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}

module Main where

--import Web.Scotty
import Web.Scotty.Trans
import Data.Aeson (FromJSON, ToJSON)
import Data.Text.Lazy (Text)
import Data.Monoid ((<>))

jandrewthompson

#lang racket/base

;; In .vimrc, add the following config or equivalent:
;;    "au FileType scheme setlocal dict+=~/.racket-dict.vim" 
;;

;; Any (require ..) forms in this source file will impact symbols generated 
(require racket/gui/base)
(require racket/gui)
(require racket/draw)

jandrewthompson

##########################
#  /etc/systemd/logind.conf was recently changed to intercept and 
#  eat power events (like laptop lid closing) BEFORE kde has a 
#  chance to act on them.  Rendering System_Settings->Power_Management->Energy_Savings 
#  settings useless.  The following settings should fix it.
##########################
#
#
#  This file is part of systemd.
#

jandrewthompson

(q '[:find ?food
     :where [?person :person/name "John"]
            [?person :favorite/food ?food]]
    (d/since database #inst "2012-01-01T00:00:00.000-00:00")
   )

jandrewthompson

#!/bin/bash
#################
# set 'merge-tool-cmd = kdiff3svn' in  ~/.subversion/config
# ###############

kdiff3 $1 $2 $3 -o $4

jandrewthompson

(ns oscplay.core)
(use 'overtone.osc)

(def PORT 8000)

(def mappings [{:from "/1/toggle1"
                :to   "/ardour/toggle1"}
               {:from "/1/toggle2"
                :to   "/ardour/toggle2"}])

jandrewthompson

#!/bin/bash

JPID=`pgrep -f journal.wiki`

#Send an alert
kdialog --title "JOURNAL" --passivepopup "Write in your journal!"

if [ -z $JPID ]
then    
    /usr/bin/gvim ~/Dropbox/vimwiki/journal.wiki &

jandrewthompson

import Text.Printf(printf)

data Message = 
    Message {msgType  :: String,
             msgTo    :: String,
             msgValue :: String}
    deriving (Eq, Read)
    
data FooMessage =
    FooMessage {msg       :: Message,

jandrewthompson

import Data.List                                                                                   
import Network                                                                                     
import System.IO                                                                                   
import System.Exit                                                                                 
import System.Random                                                                               
import Control.Arrow                                                                               
import Control.Monad.Reader                                                                        
import Control.Exception                                                                           
import Text.Printf                                                                                 
import Prelude hiding (catch)