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,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: bp
 # key: bp
 # --

snippets/clojure-mode/def

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

snippets/clojure-mode/defm

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

snippets/clojure-mode/defn

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

snippets/clojure-mode/defr

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

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: fn
 # key: fn
 # --

snippets/clojure-mode/for

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

snippets/clojure-mode/if

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

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: is
 # key: is

snippets/clojure-mode/let

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

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

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: reduce
 # key: reduce

snippets/clojure-mode/require

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

snippets/clojure-mode/test

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

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # -*- coding: utf-8 -*-
 # name: when
 # key: when

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

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

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
 # name: /// <param name="..."> ... </param>
 # key: comment

snippets/csharp-mode/comment.2

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

snippets/csharp-mode/comment.3

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

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

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

snippets/csharp-mode/using.2

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

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);

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: clear: ...
 # --

snippets/css-mode/disp.block

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

snippets/css-mode/disp.inline

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

snippets/css-mode/disp.none

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

snippets/css-mode/ff

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

snippets/css-mode/fs

@@ -1,3 +1,4 @@
+# -*- mode: snippet -*-
 # contributor : rejeep <johan.rejeep@gmail.com>
 # name: font-size: ...
 # --

snippets/css-mode/mar.bottom

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

snippets/css-mode/mar.left

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

snippets/css-mode/mar.mar

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

snippets/css-mode/mar.margin

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

snippets/css-mode/mar.right

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

snippets/css-mode/mar.top

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

snippets/css-mode/pad.bottom

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

snippets/css-mode/pad.left

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

snippets/css-mode/pad.pad

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

snippets/css-mode/pad.padding

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

snippets/css-mode/pad.right

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

snippets/css-mode/pad.top

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

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,3 +1,4 @@
+# -*- mode: snippet -*-
 # name: defvar
 # key: defvar
 # --

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