Remove snippets

This is not the way I want to present them

5 files changed, 0 insertions, 359 deletions

diff --git a/site/index.org b/site/index.org
index f5ba2c4..4885bf3 100644
--- a/site/index.org
+++ b/site/index.org
@@ -38,10 +38,3 @@
   [[file:projects/mode-icons.org][mode-icons]]
   [[file:projects/ogi.org][ogi]]
   [[file:projects/yoshi-theme.org][yoshi-theme]]
-
-* Snippets
-
-  [[file:snippets/check-php-syntax.org][check-php-syntax]]
-  [[file:snippets/etcgit.org][etcgit]]
-  [[file:snippets/euler-problem-1.org][euler-problem-1]]
-  [[file:snippets/org-export.org][org-export]]
diff --git a/site/snippets/check-php-syntax.org b/site/snippets/check-php-syntax.org
deleted file mode 100644
index b213113..0000000
--- a/site/snippets/check-php-syntax.org
+++ /dev/null
@@ -1,32 +0,0 @@
-#+TITLE: check-php-syntax
-#+OPTIONS: toc:nil
-
-* check-php-syntax
-
-  A ~pre-commit~ script for git that checks if all php source files
-  have proper syntax.  This catches far from all mistakes (as most are
-  not syntax related, of course), but it helps sometimes.
-
-  #+BEGIN_SRC sh :tangle yes
-    #!/bin/zsh
-
-    result=0
-
-    cd $PWD/src
-    for php in **/*.php
-    do
-        message=$(php -l $php)
-        if [ $? -ne 0 ]
-        then
-            echo "$message"
-        result=1
-        fi
-    done
-
-    if [ $result -eq 0 ]
-    then
-        echo "All checked out"
-    fi
-
-    exit $result
-  #+END_SRC
diff --git a/site/snippets/etcgit.org b/site/snippets/etcgit.org
deleted file mode 100644
index d266a2d..0000000
--- a/site/snippets/etcgit.org
+++ /dev/null
@@ -1,12 +0,0 @@
-#+TITLE: etcgit
-#+OPTIONS: toc:nil
-
-* etcgit
-
-  A tiny wrapper around git to help it make managing my ~/etc/~
-  directory a little easier
-
-  #+BEGIN_SRC sh :tangle etcgit
-    #!/usr/bin/env rc
-    git --git-dir /home/slash/projects/etcfiles --work-tree /etc/ $*
-  #+END_SRC
diff --git a/site/snippets/euler-problem-1.org b/site/snippets/euler-problem-1.org
deleted file mode 100644
index ad2fad2..0000000
--- a/site/snippets/euler-problem-1.org
+++ /dev/null
@@ -1,286 +0,0 @@
-#+TITLE: euler-problem-1
-
-* euler-problem-1
-
-  Here is my solution to the Project Euler problem #1 in as many
-  languages as I could write it.
-
-  Each section will first show the commands to run the program and
-  then the source for it.
-
-  I should still add:
-
-  - C# (Mono)
-
-  Maybe, someday soon I'll also add:
-
-  - Ruby
-  - Io
-  - Prolog
-  - Scala
-  - Erlang
-  - Haskell
-
-** Bash
-
-   #+BEGIN_EXAMPLE
-     ./euler-problem-1.sh
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC shell-script :tangle yes
-     #!/bin/sh
-     TOTAL=0
-     I=0
-
-     while [ $I -lt 1000 ]; do
-         if [ $[ $I % 3 ] -eq 0 -o $[ $I % 5 ] -eq 0 ]; then
-             let TOTAL=TOTAL+I
-         fi
-         let I=I+1
-     done
-
-     echo $TOTAL
-   #+END_SRC
-
-** C
-
-   #+BEGIN_EXAMPLE
-     gcc euler-problem-1.c && ./a.out
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC c :tangle yes
-     #include <stdio.h>
-
-     int main(int argc, char *argv[])
-     {
-         int i, total = 0;
-
-         for (i = 0; i < 1000; i++)
-             if (i % 3 == 0 || i % 5 == 0)
-                 total += i;
-
-         printf("%d\n", total);
-
-         return 0;
-     }
-   #+END_SRC
-
-** Clojure
-
-   #+BEGIN_EXAMPLE
-     clj euler-problem-1.clj
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC clojure :tangle yes
-     (def total 0)
-
-     (dotimes [i 1000]
-       (when (or (zero? (mod i 3)) (zero? (mod i 5)))
-         (def total (+ total i))))
-     (println total)
-   #+END_SRC
-
-** Emacs lisp
-
-   #+BEGIN_EXAMPLE
-     emacs -script euler-problem-1.el
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC emacs-lisp :tangle yes
-     (let ((i 0)
-           (total 0))
-       (while (< i 1000)
-         (when (or (zerop (mod i 3)) (zerop (mod i 5)))
-           (setq total (+ total i)))
-         (setq i (1+ i)))
-       (message "%d" total))
-   #+END_SRC
-
-** Go
-
-   #+BEGIN_EXAMPLE
-     go run euler-problem-1.go
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC go :tangle yes
-     package main
-
-     import (
-         "fmt"
-     )
-
-     func main() {
-         total := 0
-
-         for i := 0; i < 1000; i++ {
-             if i % 3 == 0 || i % 5 == 0 {
-                 total += i
-             }
-         }
-
-         fmt.Printf("%d\n", total)
-     }
-   #+END_SRC
-
-** Java
-
-   #+BEGIN_EXAMPLE
-     javac euler-problem-1.java && java Problem
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC java :tangle yes
-     class Problem
-     {
-         public static void main(String args[])
-         {
-             int total = 0;
-             int i;
-
-             for (i = 0; i < 1000; i++)
-                 if (i % 3 == 0 || i % 5 == 0)
-                     total += i;
-
-             System.out.println(total);
-         }
-     }
-   #+END_SRC
-
-** JavaScript
-
-   #+BEGIN_EXAMPLE
-     js euler-problem-1.js
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC javascript :tangle yes
-     var total = 0;
-
-     for (i = 0; i < 1000; i++)
-         if (i % 3 == 0 || i % 5 == 0)
-             total += i;
-
-     print(total);
-   #+END_SRC
-
-** Common Lisp
-
-   #+BEGIN_EXAMPLE
-     sbcl --script euler-problem-1.lisp
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC lisp :tangle yes
-     (loop for i from 0 to 999
-        when (or (zerop (mod i 3)) (zerop (mod i 5))) sum i into total
-        finally (format t "~d~%" total))
-   #+END_SRC
-
-** PHP
-
-   #+BEGIN_EXAMPLE
-     php euler-problem-1.php
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC php :tangle yes
-     <?php
-     $total = 0;
-
-     for ($i = 0; $i < 1000; $i++)
-         if ($i % 3 == 0 || $i % 5 == 0)
-             $total += $i;
-
-     echo $total . "\n";
-     ?>
-   #+END_SRC
-
-** Python
-
-   #+BEGIN_EXAMPLE
-     python euler-problem-1.py
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC python :tangle yes
-     TOTAL = 0
-
-     for i in range(1000):
-         if i % 3 == 0 or i % 5 == 0:
-             TOTAL += i
-
-     print(TOTAL)
-   #+END_SRC
-
-** Rep
-
-   #+BEGIN_EXAMPLE
-     rep euler-problem-1.java
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC sawfish :tangle yes
-     (do ((i 0 (1+ i))
-          (total 0))
-         ((>= i 1000)
-          (format standard-output "%d\n" total))
-         (when (or (zerop (mod i 3)) (zerop (mod i 5)))
-           (setq total (+ total i))))
-   #+END_SRC
-
-** Rust
-
-   #+BEGIN_EXAMPLE
-     rustc euler-problem-1.rs && ./euler-problem-1
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC rust :tangle yes
-     fn main() {
-         let mut total = 0;
-         let mut i = 0;
-
-         while i < 1000 {
-             if i % 3 == 0 || i % 5 == 0 {
-                 total += i;
-             }
-
-             i += 1;
-         }
-
-         io::print(fmt!("%d\n", total));
-     }
-   #+END_SRC
-
-** Scheme
-
-   #+BEGIN_EXAMPLE
-     guile euler-problem-1.scm
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC scheme :tangle yes
-     (use-modules ((rnrs base)))
-
-     (do ((i 0 (1+ i))
-          (total 0))
-         ((>= i 1000)
-          (display total)
-          (newline))
-       (when (or (zero? (mod i 3)) (zero? (mod i 5)))
-         (set! total (+ total i))))
-   #+END_SRC
-
-** Vala
-
-   #+BEGIN_EXAMPLE
-     valac euler-problem-1.vala && ./euler-problem-1
-   #+END_EXAMPLE
-
-   #+BEGIN_SRC vala :tangle yes
-     class Euler.Problem1 : GLib.Object {
-         public static int main(string[] args) {
-             int total = 0;
-
-             for (int i = 0; i < 1000; i++)
-                 if (i % 3 == 0 || i % 5 == 0)
-                     total += i;
-
-             stdout.printf("%d\n", total);
-
-             return 0;
-         }
-     }
-   #+END_SRC
diff --git a/site/snippets/org-export.org b/site/snippets/org-export.org
deleted file mode 100644
index 568e7e0..0000000
--- a/site/snippets/org-export.org
+++ /dev/null
@@ -1,22 +0,0 @@
-#+TITLE: org-export
-#+OPTIONS: toc:nil
-
-* org-export
-
-  An ~about-filter~ for cgit using Emacs org-mode
-
-  #+BEGIN_SRC sh :tangle yes
-    #!/bin/sh
-
-    oname="`mktemp --suffix=.org`"
-    hname="${oname%.*}.html"
-
-    cat > "$oname"
-    emacs -Q -visit "$oname" -batch \
-    -l /usr/local/share/emacs/site-lisp/htmlize-1.39.el \
-    -eval "(let ((org-export-htmlize-output-type 'css))
-             (org-export-as-html 3 nil nil nil t))" \
-    2> /dev/null
-    cat "$hname"
-    rm "$hname" "$oname"
-  #+END_SRC