Skip to content

Instantly share code, notes, and snippets.

View mowen's full-sized avatar

Martin Owen mowen

31 followers · 23 following
View GitHub Profile
@mowen
mowen / gist:291247
Created January 31, 2010 21:15
(eval-after-load 'org
'(progn
(set-face-foreground 'org-level-2 "magenta4")
(set-face-foreground 'outline-2 "magenta4")
(set-face-foreground 'org-level-6 "red3")
(set-face-foreground 'outline-6 "red3")))
@mowen
mowen / euler4.el
Created February 3, 2010 14:59
;; A palindromic number reads the same both ways. The largest palindrome made
;; from the product of two 2-digit numbers is 9009 = 91 × 99.
;;
;; Find the largest palindrome made from the product of two 3-digit numbers.
;;
(defun array-reverse (array)
"Reverse the ARRAY."
(let ((reversed-array (copy-sequence array))
(array-length (length array))
@mowen
mowen / SiteFocus.js
Created March 6, 2010 13:45
/**
* SiteFocus, an enhanced version of the Blacklist Sites - Page Mods Demo.
* Recommended for anyone who has this problem: http://xkcd.com/477/
* Martin Owen - [email protected]
*/
jetpack.future.import("storage.simple");
jetpack.future.import('menu');
function SiteFocus() {
@mowen
mowen / org-style.css
Created March 9, 2010 12:19
A stylesheet for the Emacs Org Mode HTML export
/**
* This stylesheet will work pretty well with a regular Org Mode HTML export.
* However, you do have to turn off all of the defaults:
*
* (setq org-export-html-style-include-scripts nil
* org-export-html-style-include-default nil)
*
* and insert a call to the stylesheet:
*
* (setq org-export-html-style
@mowen
mowen / euler-6.clj
Created April 3, 2010 20:21
(ns martin)
(defn sqr
"Square the given number."
[n]
(. (BigInteger/valueOf n) (pow 2)))
(defn euler-6
"Find the difference between the sum of the squares of the first one hundred
natural numbers and the square of the sum."
@mowen
mowen / euler-5.clj
Created April 3, 2010 21:10
(ns martin)
(defn evenly-divisible?
"Is N evenly-divisible by all of the numbers in SEQ?"
[n seq]
(loop [s seq]
;; TODO: Find out how to do 'cond' in Clojure
(if (empty? s)
true
(if (not (zero? (mod n (first s))))
@mowen
mowen / nassi-shneiderman.html
Created August 8, 2010 11:58
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title>jQuery Prototype</title>
<link type="text/css" href="css/ui-lightness/jquery-ui-1.8.2.custom.css" rel="stylesheet" />
<script type="text/javascript" language="javascript" src="jquery-ui-1.8.2.custom/js/jquery-1.4.2.min.js"></script>
<script type="text/javascript" language="javascript" src="jquery-ui-1.8.2.custom/js/jquery-ui-1.8.2.custom.min.js"></script>
<script type="text/javascript" language="javascript" src="nassi-shneiderman.js"></script>
<style type="text/css">
.block { border: 1px solid #000; text-align: center; }
@mowen
mowen / footer.php
Created August 10, 2010 20:23
@mowen
mowen / BadService.cs
Created August 22, 2010 17:30
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace Experiments
{
public class BadService : IService
{
public string ProvideService()
@mowen
mowen / DynamicUtils.cs
Created September 13, 2010 19:29
// Method for converting a Json.NET object into a dynamic CLR object.
// http://groups.google.com/group/mongodb-csharp/browse_thread/thread/ef1308f38bdbde3e
public static class DynamicUtils
{
public static object ConvertJTokenToObject(JToken token)
{
if (token is JValue)
{
return ((JValue)token).Value;
}