add all the missing modes

Author: AndreaCrotti

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