From 228baf459707bae2ad67029a71fbfad674d7324a Mon Sep 17 00:00:00 2001
From: gretchen <gretchen@gnar.cool>
Date: Mon, 18 Nov 2019 16:33:03 -0800
Subject: Example and documentation for emacs integration.

---
 README.org          | 19 ++++++++++++++++++-
 example/Makefile    |  9 +++++++++
 example/example.lua | 22 ++++++++++++++++++++++
 norns_upload        |  2 ++
 4 files changed, 51 insertions(+), 1 deletion(-)
 create mode 100644 example/Makefile
 create mode 100644 example/example.lua

diff --git a/README.org b/README.org
index 19f8786..636640a 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 
 Get a lua shell or supercollider shell on a norns from the command-line, similar to the shell in the maiden interface.
 
-Requires nanomsg.
+Requires nanomsg. Install with ~sudo make install~.
 
 #+BEGIN_SRC sh
 # get a lua shell
@@ -12,3 +12,20 @@ Requires nanomsg.
 ./norns_shell ws://norns.local:5556
 #+END_SRC
 
+There's an example in ~example/~ of a project with a Makefile that uploads and loads when ~M-x compile~'d in emacs. This piece of emacs lisp may be helpful if you'd like to ~C-c C-c~ instead.
+
+#+BEGIN_SRC lisp
+(defun recursive-upwards-compile ()
+  (interactive)
+  (if (string-prefix-p "make" compile-command)
+      (let ((directory (locate-dominating-file default-directory "Makefile")))
+	(when directory
+	  (cd directory)
+	  (compile compile-command)
+	  (message directory)))
+    (compile compile-command)))
+
+(add-hook 'lua-mode-hook
+	  (lambda ()
+	    (local-set-key (kbd "C-c C-c") 'recursive-upwards-compile)))
+#+END_SRC
diff --git a/example/Makefile b/example/Makefile
new file mode 100644
index 0000000..bbaebf9
--- /dev/null
+++ b/example/Makefile
@@ -0,0 +1,9 @@
+NORNS=norns.local
+
+all:
+
+upload: example.lua
+	find . -not -path '*/\.*' -type f -exec norns_upload example "{}" \;
+	norns_load example example.lua
+
+.PHONY: all upload
diff --git a/example/example.lua b/example/example.lua
new file mode 100644
index 0000000..e96ba34
--- /dev/null
+++ b/example/example.lua
@@ -0,0 +1,22 @@
+-- An example script for norns-etc
+-- Load this file in emacs and M-x compile to upload.
+
+function redraw()
+   screen.clear()
+   screen.move(64, 32)
+   screen.text_center("norns example #" .. math.floor(math.random() * 1000))
+   screen.update()
+end
+
+
+function init()
+   redraw()
+end
+
+-- This needs to be at the end so that it doesn't conflict with the
+-- norns convention of having a script description in comments on the
+-- first couple of lines.
+
+-- Local Variables:
+-- compile-command: "make upload"
+-- End:
diff --git a/norns_upload b/norns_upload
index dd4dba6..37817ea 100644
--- a/norns_upload
+++ b/norns_upload
@@ -5,6 +5,8 @@ if [[ $# -ne 2 ]]; then
   exit 1
 fi
 
+# TODO: make directories
+
 HOST="${NORNS:-norns.local}"
 API="/api/v1"
 BASE="/dust/code/"
-- 
cgit v1.2.1