add all the missing modes

report/src/core.clj

@@ -84,5 +84,25 @@
      (hiccup/html
       (structure tables)))))
 
+(def mode-line "# -*- mode: snippet -*-")
+
+(defn all-snips
+  [d]
+  (filter #(and (.isFile %)
+                (not= (.getName %) ".yas-parents")
+                (not (.endsWith (str %) ".el")))
+
+          (file-seq (io/file d))))
+
+(defn fix-all-modelines
+  [snips]
+  (doseq [s snips]
+    (let [content (-> s slurp str/split-lines)
+          f-line (first content)]
+
+      (when-not (str/includes? f-line "# -*- mode")
+        (println "Writing to " s)
+        (spit s (str/join "\n" (cons mode-line content)))))))
+
 (comment
   (gen-html "../snippets"))

snippets/c++-mode/ns

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: namespace ...
 # key: ns
 # --

snippets/c++-mode/using

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: using namespace ... 
 # key: using
 # --

snippets/c-lang-common/once

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: #ifndef XXX; #define XXX; #endif
 # key: once
 # --

snippets/cc-mode/do

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: do { ... } while (...)
 # key: do
 # --

snippets/cc-mode/struct

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: struct ... { ... }
 # key: struct
 # --

snippets/clojure-mode/bench

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: bench
 # key: bench
 # --

snippets/clojure-mode/bp

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # name: bp
 # key: bp
 # --
-(swank.core/break)
+(swank.core/break)

snippets/clojure-mode/def

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # name: def
 # key: def
 # --
-(def $0)
+(def $0)

snippets/clojure-mode/defm

@@ -1,7 +1,8 @@
+# -*- mode: snippet -*-
 # name: defmacro
 # key: defm
 # --
 (defmacro $1
   "$2"$>
   [$3]$>
-  $0)$>
+  $0)$>

snippets/clojure-mode/defn

@@ -1,7 +1,8 @@
+# -*- mode: snippet -*-
 # name: defn
 # key: defn
 # --
 (defn $1
   "$2"$>
   [$3]$>
-  $0)$>
+  $0)$>

snippets/clojure-mode/defr

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: defrecord
 # key: defr
 # --
@@ -5,4 +6,4 @@
   ^{"$1"}$>
   $2$>
   [$3]$>
-  $0)$>
+  $0)$>

snippets/clojure-mode/deft

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: deftype
 # key: deft
 # --

snippets/clojure-mode/doseq

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: doseq
 # key: doseq
 # --

snippets/clojure-mode/fn

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # name: fn
 # key: fn
 # --
 (fn [$1]
-  $0)$>
+  $0)$>

snippets/clojure-mode/for

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # name: for
 # key: for
 # --
 (for [$1 $2]
-  $3)$>
+  $3)$>

snippets/clojure-mode/if

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: if
 # key: if
@@ -5,4 +6,4 @@
 (if $1
   $2$>
   $3)$>
-$0
+$0

snippets/clojure-mode/ifl

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: ifl
 # key: ifl

snippets/clojure-mode/import

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: import
 # key: import
 # expand-env: ((yas-triggers-in-field nil))

snippets/clojure-mode/is

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: is
 # key: is
 # --
-(is (= $1 $2))
+(is (= $1 $2))

snippets/clojure-mode/let

@@ -1,7 +1,8 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: let
 # key: let
 # --
 (let [$1 $2]$>
   $3)$>
-$0
+$0

snippets/clojure-mode/map

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: map
 # key: map

snippets/clojure-mode/map.lambda

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: map lambda
 # key: map

snippets/clojure-mode/mdoc

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: mdoc
 # key: mdoc

snippets/clojure-mode/ns

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: ns
 # key: ns
@@ -19,4 +20,4 @@
 	      (p4 (mapconcat '(lambda (x) x)
 			     (split-string p3 "/")
 			     ".")))
-	 (replace-regexp-in-string "_" "-" p4)))`)
+	 (replace-regexp-in-string "_" "-" p4)))`)

snippets/clojure-mode/opts

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # key: opts
 # name: opts
 # --

snippets/clojure-mode/pr

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: pr
 # key: pr

snippets/clojure-mode/print

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: print
 # key: print

snippets/clojure-mode/reduce

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: reduce
 # key: reduce
 # --
-(reduce ${1:(fn [p n] $0)} $2)
+(reduce ${1:(fn [p n] $0)} $2)

snippets/clojure-mode/require

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # name: require
 # key: require
 # expand-env: ((yas-triggers-in-field nil))
 # --
-(:require [$1 :as $2])$>
+(:require [$1 :as $2])$>

snippets/clojure-mode/test

@@ -1,6 +1,7 @@
+# -*- mode: snippet -*-
 # name: test
 # key: test
 # --
 (deftest $1
   (is (= $2))$>
-  $0)$>
+  $0)$>

snippets/clojure-mode/try

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: try
 # key: try
 # --

snippets/clojure-mode/use

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: use
 # key: use
 # expand-env: ((yas-triggers-in-field nil))

snippets/clojure-mode/when

@@ -1,7 +1,8 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: when
 # key: when
 # --
 (when $1
       $2)$>
-$0$>
+$0$>

snippets/clojure-mode/whenl

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: whenl
 # key: whenl

snippets/csharp-mode/attrib

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: private attribute ....;
 # key: attrib

snippets/csharp-mode/attrib.1

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: private attribute ....; public property ... ... { ... }
 # key: attrib
@@ -19,4 +20,4 @@ public $1 $2
     set {
         this.$2 = value;
     }
-}
+}

snippets/csharp-mode/attrib.2

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: private _attribute ....; public Property ... ... { ... }
 # key: attrib
@@ -19,4 +20,4 @@ public ${1:Type} ${2:Name}
     set {
         this.${2:$(if (> (length yas-text) 0) (format "_%s%s" (downcase (substring yas-text 0 1)) (substring yas-text 1 (length yas-text))) "")} = value;
     }
-}
+}

snippets/csharp-mode/class

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: class ... { ... }
 # key: class

snippets/csharp-mode/comment

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: /// <summary> ... </summary>
 # key: comment

snippets/csharp-mode/comment.1

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: /// <param name="..."> ... </param>
 # key: comment
 # --
-/// <param name="$1">$2</param>
+/// <param name="$1">$2</param>

snippets/csharp-mode/comment.2

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: /// <param name="..."> ... </param>
 # key: comment
 # --
-/// <returns>$1</returns>
+/// <returns>$1</returns>

snippets/csharp-mode/comment.3

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: /// <exception cref="..."> ... </exception>
 # key: comment
 # --
-/// <exception cref="$1">$2</exception>
+/// <exception cref="$1">$2</exception>

snippets/csharp-mode/fore

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Jostein Kjønigsen <jostein@kjonigsen.net>
 # name: foreach { ... }
 # key: fore

snippets/csharp-mode/method

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: public void Method { ... }
 # key: method

snippets/csharp-mode/namespace

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: namespace .. { ... }
 # key: namespace
@@ -5,4 +6,4 @@
 namespace $1
 {
 $0
-}
+}

snippets/csharp-mode/prop

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: property ... ... { ... }
 # key: prop

snippets/csharp-mode/region

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: #region ... #endregion
 # key: region

snippets/csharp-mode/using

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: using ...;
 # key: using

snippets/csharp-mode/using.1

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: using System;
 # key: using
 # --
-using System;
+using System;

snippets/csharp-mode/using.2

@@ -1,5 +1,6 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: using System....;
 # key: using
 # --
-using System.$1;
+using System.$1;

snippets/css-mode/bg

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: background-color: ...
 # --
 background-color: #${1:DDD};

snippets/css-mode/bg.1

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: background-image: ...
 # --
-background-image: url($1);
+background-image: url($1);

snippets/css-mode/bor

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: border size style color
 # --
 border: ${1:1px} ${2:solid} #${3:999};

snippets/css-mode/cl

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: clear: ...
 # --
-clear: $1;
+clear: $1;

snippets/css-mode/disp.block

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: display: block
 # --
-display: block;
+display: block;

snippets/css-mode/disp.inline

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: display: inline
 # --
-display: inline;
+display: inline;

snippets/css-mode/disp.none

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: display: none
 # --
-display: none;
+display: none;

snippets/css-mode/ff

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: font-family: ...
 # --
-font-family: $1;
+font-family: $1;

snippets/css-mode/fs

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: font-size: ...
 # --
-font-size: ${12px};
+font-size: ${12px};

snippets/css-mode/mar.bottom

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: margin-bottom: ...
 # --
-margin-bottom: $1;
+margin-bottom: $1;

snippets/css-mode/mar.left

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: margin-left: ...
 # --
-margin-left: $1;
+margin-left: $1;

snippets/css-mode/mar.mar

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: margin: ...
 # --
-margin: $1;
+margin: $1;

snippets/css-mode/mar.margin

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: margin top right bottom left
 # --
-margin: ${top} ${right} ${bottom} ${left};
+margin: ${top} ${right} ${bottom} ${left};

snippets/css-mode/mar.right

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: margin-right: ...
 # --
-margin-right: $1;
+margin-right: $1;

snippets/css-mode/mar.top

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: margin-top: ...
 # --
-margin-top: $1;
+margin-top: $1;

snippets/css-mode/pad.bottom

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: padding-bottom: ...
 # --
-padding-bottom: $1;
+padding-bottom: $1;

snippets/css-mode/pad.left

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: padding-left: ...
 # --
-padding-left: $1;
+padding-left: $1;

snippets/css-mode/pad.pad

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: padding: ...
 # --
-padding: $1;
+padding: $1;

snippets/css-mode/pad.padding

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: padding: top right bottom left
 # --
-padding: ${top} ${right} ${bottom} ${left};
+padding: ${top} ${right} ${bottom} ${left};

snippets/css-mode/pad.right

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: padding-right: ...
 # --
-padding-right: $1;
+padding-right: $1;

snippets/css-mode/pad.top

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: padding-top: ...
 # --
-padding-top: $1;
+padding-top: $1;

snippets/emacs-lisp-mode/.read_me

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 -*- coding: utf-8 -*-
 Originally started by Xah Lee (xahlee.org) on 2009-02-22
 Released under GPL 3.

snippets/emacs-lisp-mode/and

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: and
 # key: and

snippets/emacs-lisp-mode/aref

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: aref
 # key: aref

snippets/emacs-lisp-mode/aset

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: aset
 # key: aset

snippets/emacs-lisp-mode/assq

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: assq
 # key: assq

snippets/emacs-lisp-mode/autoload

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: autoload
 # key: autoload

snippets/emacs-lisp-mode/backward-char

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: backward-char
 # key: backward-char

snippets/emacs-lisp-mode/beginning-of-line

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: beginning-of-line
 # key: beginning-of-line

snippets/emacs-lisp-mode/bounds-of-thing-at-point

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: bounds-of-thing-at-point
 # key: bounds-of-thing-at-point

snippets/emacs-lisp-mode/buffer-file-name

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: buffer-file-name
 # key: buffer-file-name

snippets/emacs-lisp-mode/buffer-modified-p

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: buffer-modified-p
 # key: buffer-modified-p

snippets/emacs-lisp-mode/buffer-substring

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: buffer-substring
 # key: buffer-substring

snippets/emacs-lisp-mode/buffer-substring-no-properties

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: buffer-substring-no-properties
 # key: buffer-substring-no-properties

snippets/emacs-lisp-mode/cond

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: cond
 # key: cond

snippets/emacs-lisp-mode/condition-case

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: condition-case
 # key: condition-case

snippets/emacs-lisp-mode/copy-directory

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: copy-directory
 # key: copy-directory

snippets/emacs-lisp-mode/copy-file

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: copy-file
 # key: copy-file

snippets/emacs-lisp-mode/current-buffer

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: current-buffer
 # key: current-buffer

snippets/emacs-lisp-mode/custom-autoload

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: custom-autoload
 # key: custom-autoload

snippets/emacs-lisp-mode/defalias

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: defalias
 # key: defalias

snippets/emacs-lisp-mode/defcustom

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: defcustom
 # key: defcustom

snippets/emacs-lisp-mode/define-key

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: define-key
 # key: define-key

snippets/emacs-lisp-mode/defvar

@@ -1,4 +1,5 @@
+# -*- mode: snippet -*-
 # name: defvar
 # key: defvar
 # --
-(defvar ${1:symbol} ${2:initvalue} "${3:docstring}")
+(defvar ${1:symbol} ${2:initvalue} "${3:docstring}")

snippets/emacs-lisp-mode/delete-char

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: delete-char
 # key: delete-char

snippets/emacs-lisp-mode/delete-directory

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: delete-directory
 # key: delete-directory

snippets/emacs-lisp-mode/delete-file

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: delete-file
 # key: delete-file

snippets/emacs-lisp-mode/delete-region

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: delete-region
 # key: delete-region

snippets/emacs-lisp-mode/directory-files

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor: Xah Lee (XahLee.org)
 # name: directory-files
 # key: directory-files