From 5769114042ec60274d48cb3794c00348ca22da66 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 15 Aug 2012 00:24:32 +0200
Subject: Add Makefiles and others

---
 undone/.gitignore |  1 +
 undone/Makefile   | 30 ++++++++++++++++++++++++++++++
 undone/main.scm   |  9 ++++++---
 3 files changed, 37 insertions(+), 3 deletions(-)
 create mode 100644 undone/.gitignore
 create mode 100644 undone/Makefile

(limited to 'undone')

diff --git a/undone/.gitignore b/undone/.gitignore
new file mode 100644
index 0000000..e796b66
--- /dev/null
+++ b/undone/.gitignore
@@ -0,0 +1 @@
+*.go
diff --git a/undone/Makefile b/undone/Makefile
new file mode 100644
index 0000000..fe92bd7
--- /dev/null
+++ b/undone/Makefile
@@ -0,0 +1,30 @@
+DESTDIR ?= /usr/local
+SITEDIR = $(shell pkg-config guile-2.0 --variable=sitedir \
+	--define-variable=prefix=$(DESTDIR))
+COMPDIR = $(DESTDIR)/lib/guile/2.0/site-ccache
+
+objects = main.scm main.go
+install-objects = $(addprefix install-,$(objects))
+uninstall-objects = $(addprefix uninstall-,$(objects))
+
+.PHONY: all install $(install-objects) uninstall $(uninstall-objects)
+
+all: $(filter %.go,$(objects))
+
+$(filter %.go,$(objects)): %.go: %.scm
+	../env guild compile -o $@ $^
+
+install: $(install-objects)
+uninstall: $(uninstall-objects)
+
+$(filter %.go,$(install-objects)): install-%: $(filter %.go,$(objects))
+	install -Dm 644 $* "$(COMPDIR)/undone/$*"
+
+$(filter %.scm,$(install-objects)): install-%:
+	install -Dm 644 $* "$(SITEDIR)/undone/$*"
+
+$(filter %.go,$(uninstall-objects)): uninstall-%:
+	rm -f "$(COMPDIR)/undone/$*"
+
+$(filter %.scm,$(uninstall-objects)): uninstall-%:
+	rm -f "$(SITEDIR)/undone/$*"
diff --git a/undone/main.scm b/undone/main.scm
index 663aa1e..18beab3 100644
--- a/undone/main.scm
+++ b/undone/main.scm
@@ -129,7 +129,12 @@
         (apply view-func '()))))
 
 (define (main args)
-  (load rc-file)
+  ;; Ugly hack, can't think of a better way right now...
+  (save-module-excursion
+   (lambda ()
+     (set-current-module (resolve-module '(undone main)))
+     (load rc-file)))
+
   (if (> (length args) 1)
       (case (string->symbol (cadr args))
         ((add)
@@ -144,5 +149,3 @@
                 (format #t "~a~20t~a~%"
                         (car view) (procedure-documentation (cdr view))))
               view-list)))))
-
-(main (program-arguments))
-- 
cgit v1.2.3-54-g00ecf