Kevin Brubeck Unhammer unhammer

## ical2org.awk
#!/usr/bin/gawk -f
# awk script for converting an iCal formatted file to a sequence of org-mode headings.
# this may not work in general but seems to work for day and timed events from Google's
# calendar, which is really all I need right now...
#
# usage:
#   awk -f THISFILE < icalinputfile.ics > orgmodeentries.org
#
# Note: change org meta information generated below for author and
# email entries!

## IDLE with asyncio + imaplib + mbsyncrc
#!python3

import imaplib
import os
import asyncio

loop = asyncio.get_event_loop()

conf = [x.strip().split() for x in open('mbsyncrc')]

## ad-synopsis.hs
-- From https://twitter.com/GabrielG439/status/647601518871359489

:set -package ad
:set -package numbers
:m Numeric.AD Data.Number.Symbolic
diff (\x -> sqrt x) (var "a")
-- 1.0/(2.0*sqrt a)
diff (\x -> x^2 + sqrt x) (var "a")
-- a+a+1.0/(2.0*sqrt a)
diff (\x -> x^2 + sqrt x) 1

## pidgin2erc.el
(defun my-purple-ReceivedImMsg-handler (_num0 nick msg _num1 _num2)
  "Handle ReceivedImMsg from Purple dbus service.
NICK and MSG go into an alert, other arguments ignored."
  (let ((msg-rendered
         (if (fboundp 'libxml-parse-html-region)
             (with-temp-buffer
               (insert msg)
               (shr-render-region (point-min) (point-max))
               (buffer-string))
           msg)))

## .bashrc-tmuxhist.sh
export TMUX_SESSION=
if [[ -n ${TMUX+set} ]]; then
    TMUX_SESSION=$(tmux display-message -p "#S")
    # can end up wrong if I move a pane to a different session, but I rarely do that
    if [[ -n ${TMUX_SESSION+set} ]]; then
        [[ -d ~/.bash_history.d ]] || mkdir -p ~/.bash_history.d
        export HISTFILE="$HOME/.bash_history.d/${TMUX_SESSION%% *}"
        [[ -f $HISTFILE && -n $HISTFILE ]] || cp "$HOME"/.bash_history "$HISTFILE"
    fi
fi

## apertium-desdupe.hs
{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Control.Applicative
import           Data.Attoparsec.ByteString
import qualified Data.ByteString                         as S
import           Data.Char                               (ord)
import           GHC.Word                                (Word8)
import           Prelude                                 hiding (takeWhile)

## with-focus
#!/bin/bash

# Usage:
#   chmod +x with-focus
#   ./with-focus CMD ARG1 ARG2
# e.g.
#   ./with-focus xfce4-terminal
#   ./with-focus mousepad file.txt

# When this script exits, turn focus_new back to false

## flycheck-gawk.el

(defun my-flycheck-gawk-fix-message (err)
  "Remove the repeated file-name/line from the error message of ERR."
  (setf (flycheck-error-message err)
        (replace-regexp-in-string
         "^\\([ \t]*\\)\\(.*\n\\)\\1"
         "\\2"
         (replace-regexp-in-string
          "\ngawk: [^ ]*:"
          "\n"

## xsv.bash
#!/bin/bash

_xsv()
{
    cur=${COMP_WORDS[COMP_CWORD]}
    prev=${COMP_WORDS[COMP_CWORD-1]}
    cmds=$(xsv --list|awk '/Installed/{next}/./{print $1}')

    while read -r cmd; do
        if [[ "${prev}" = "${cmd}" ]]; then

## my-bbdb-notmuch.el
(require 'bbdb)

  (defun my-bbdb-notmuch-search (&optional record)
    "Search for emails to/from RECORD (or current record if interactive)."
    (interactive)
    (let* ((record (or record (bbdb-current-record)))
           (mails (bbdb-record-field record 'mail))
           (query (combine-and-quote-strings mails " OR ")))
      (notmuch-search query)))
  (define-key bbdb-mode-map (kbd "F") 'my-bbdb-notmuch-search)