Add UUID plugin

Author: jebberjeb

uuid-plugin/.gitignore

@@ -0,0 +1,11 @@
+/target
+/classes
+/checkouts
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/.lein-*
+/.nrepl-port
+.hgignore
+.hg/

uuid-plugin/plugin/sample.vim

@@ -0,0 +1,22 @@
+let s:p_dir = expand('<sfile>:p:h')
+let g:is_running = 0
+let g:channel = -1
+
+function! StartIfNotRunning()
+    if g:is_running == 0
+        echo 'starting plugin...'
+        "TODO - This is a dirty hack. We should launch things without changing
+        "the working directory.
+        exec ':cd ' . s:p_dir
+        let g:channel = rpcstart('lein', ['run'])
+        let g:is_running = 1
+    endif
+endfunction
+
+function! GetUUID()
+    call StartIfNotRunning()
+    let res = rpcrequest(g:channel, 'uuid', [])
+    return res
+endfunction
+
+echo 'uuid plugin loaded!'

uuid-plugin/project.clj

@@ -0,0 +1,11 @@
+(defproject uuid-plugin "0.1.0-SNAPSHOT"
+  :description "FIXME: write description"
+  :url "http://example.com/FIXME"
+  :license {:name "Eclipse Public License"
+            :url "http://www.eclipse.org/legal/epl-v10.html"}
+  :dependencies [[org.clojure/clojure "1.8.0"]
+                 [datascript "0.15.2"]
+                 [neovim-client "0.1.0-SNAPSHOT"]]
+  :main ^:skip-aot uuid-plugin.core
+  :target-path "target/%s"
+  :profiles {:uberjar {:aot :all}})

uuid-plugin/src/uuid_plugin/core.clj

@@ -0,0 +1,22 @@
+(ns uuid-plugin.core
+  (:require [neovim-client.nvim :as nvim]
+            [datascript.core :as d])
+  #_(:gen-class))
+
+(defn -main
+  [& args]
+  (nvim/connect!)
+
+  (nvim/register-method!
+    "uuid"
+    (fn [msg] (pr-str (d/squuid))))
+
+  ;; Stay alive for a minute!
+  (dotimes [n 60]
+    (if (= 0 (mod n 10))
+      (nvim/run-command! (str ":echo 'plugin alive for " n " seconds.'")))
+    (Thread/sleep 1000))
+
+  ;; Let nvim know we're shutting down.
+  (nvim/run-command! ":let g:is_running=0")
+  (nvim/run-command! ":echo 'plugin stopping.'"))