markhepburn

#!/bin/bash

# See for eg
# http://stackoverflow.com/questions/4526910/rename-a-git-submodule;
# an important point seems to be to avoiding the trailing '/' when
# calling 'add' in the new location.

# Also, note that the name ([submodule = "name"]) in the .gitmodules
# file can be anything; it's just used to map to the corresponding
# .git/config entry.

markhepburn

{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses,
  TemplateHaskell, OverloadedStrings #-}

import Yesod

-- The app is parameterised on a custom datatype; this can also
-- contain other info of course:
data Links = Links

-- Routes, using template-haskell.  (I find "Links" as a string to be

markhepburn

#!/usr/bin/env python

import ConfigParser
import os
import os.path as op

import gdata.photos.service
import gdata.media
import gdata.geo

markhepburn

(defvar org-mobile-push-timer nil
  "Timer that `org-mobile-push-timer' used to reschedule itself, or nil.")

(defun org-mobile-push-with-delay (secs)
  (when org-mobile-push-timer
    (cancel-timer org-mobile-push-timer))
  (setq org-mobile-push-timer
        (run-with-idle-timer
         (* 1 secs) nil 'org-mobile-push)))

markhepburn

(org-mobile-pull) ;; run org-mobile-pull at startup

(defun install-monitor (file secs)
  (run-with-timer
   0 secs
   (lambda (f p)
     (unless (< p (second (time-since (elt (file-attributes f) 5))))
       (org-mobile-pull)))
   file secs))

markhepburn

;;; In all its on-the-day gory glory.  I will admit to being
;;; /slightly/ on the seedy side... Most of these solutions,
;;; particularly problems 3 and 4, are brute-forced and I'm pretty
;;; sure can be more solved much more efficiently.  I'll have a stab
;;; later, but this is all I got up to (I was starting to look at
;;; seesaw for a game-of-life GUI, but as you can see didn't get too
;;; far)
;;;
;;; Thanks everyone!  It was great to see so many people passionate
;;; about Clojure, and I'm really greatful to Logaan and all the

markhepburn

Keybase proof

I hereby claim:

• I am markhepburn on github.
• I am markhepburn (https://keybase.io/markhepburn) on keybase.
• I have a public key whose fingerprint is 65D5 8DDA 447D 1466 CB47 911B EF73 DD14 3AB3 EAC0

To claim this, I am signing this object:

markhepburn

using System;
using System.Collections.Generic;
using System.IO;
using System.Text;
using System.Threading.Tasks;
using clojure.clr.api;
using clojure.lang;
using Microsoft.Ajax.Utilities;
using Microsoft.Owin.Hosting;
using Owin;

markhepburn

;;; toggle-case.el --- toggles case at point like ~ in vi
;; @(#) $Id: toggle-case.el,v 1.5 2008/11/20 23:40:53 joe Exp $

;; This file is not part of Emacs

;; Copyright (C) 2001 by Joseph L. Casadonte Jr.
;; Author:          Joe Casadonte ([email protected])
;; Maintainer:      Joe Casadonte ([email protected])
;; Package-Version: 1.5
;; Created:         January 03, 2001

markhepburn

;; The cljs compiler currently uses string-matching for path comparison; on windows (case-insensitive)
;; for some reason I have both C:\... and c:\... present, which fails.  This is my monkey-patch.
;; See https://dev.clojure.org/jira/browse/CLJS-2221

(in-ns 'cljs.util)
(require '[clojure.java.io :as io]
         '[clojure.string :as string])
(import '[java.net URLDecoder])

(defn ^String relative-name