Add Makefiles, utility

Change the directory structure and add a bunch of Makefiles to make it
easy to install gitto. Also add a utility to run gitto in its current
state.

Makefile

@@ -0,0 +1,20 @@
+export DESTDIR ?= /usr
+
+dirs = src gitto
+install-dirs = $(addprefix install-,$(dirs))
+uninstall-dirs = $(addprefix uninstall-,$(dirs))
+
+.PHONY: all $(dirs) install $(install-dirs) uninstall $(uninstall-dirs)
+
+all: $(dirs)
+install: $(install-dirs)
+uninstall: $(uninstall-dirs)
+
+$(dirs):
+	$(MAKE) -C $@/
+
+$(install-dirs): install-%:
+	$(MAKE) -C $*/ install
+
+$(uninstall-dirs): uninstall-%:
+	$(MAKE) -C $*/ uninstall

gitto/.gitignore

@@ -0,0 +1 @@
+*.go

gitto/Makefile

@@ -0,0 +1,25 @@
+DESTDIR ?= /usr/local
+
+objects = main.go main.scm
+install-objects = $(addprefix install-,$(objects))
+uninstall-objects = $(addprefix uninstall-,$(objects))
+
+$(filter %.go,$(objects)): %.go: %.scm
+	guile-tools compile -o $@ $^
+
+.PHONY: install $(install-objects) uninstall $(uninstall-objects)
+
+install: $(install-objects)
+uninstall: $(uninstall-objects)
+
+$(filter %.go,$(install-objects)): install-%:
+	install -Dm 644 $* $(DESTDIR)/lib/guile/2.0/ccache/gitto/$*
+
+$(filter %.scm,$(install-objects)): install-%:
+	install -Dm 644 $* $(DESTDIR)/share/guile/2.0/gitto/$*
+
+$(filter %.go,$(uninstall-objects)): uninstall-%:
+	rm -f $(DESTDIR)/lib/guile/2.0/ccache/gitto/$*
+
+$(filter %.scm,$(uninstall-objects)): uninstall-%:
+	rm -f $(DESTDIR)/share/guile/2.0/gitto/$*

gitto/main.scm

@@ -1,10 +1,9 @@
-#! /usr/bin/guile \
--e main -s
-!#
-(use-modules (ice-9 format)
-             (ice-9 getopt-long)
-             (ice-9 popen)
-             (ice-9 rdelim))
+(define-module (gitto main)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 getopt-long)
+  #:use-module (ice-9 popen)
+  #:use-module (ice-9 rdelim)
+  #:export (main))
 
 (define data-dir
   (let ((xdg (getenv "XGD_DATA_HOME"))

run-gitto

@@ -0,0 +1,5 @@
+#!/bin/sh
+
+export GUILE_LOAD_PATH="$(dirname $(realpath $0)):$GUILE_LOAD_PATH"
+export GUILE_LOAD_COMPILED_PATH="$(dirname $(realpath $0)):$GUILE_LOAD_PATH"
+exec src/gitto "$@"

src/Makefile

@@ -0,0 +1,11 @@
+DESTDIR ?= /usr/local
+
+all:
+
+.PHONY: install uninstall
+
+install: gitto
+	install -Dm 755 $^ ${DESTDIR}/bin/$^
+
+uninstall: gitto
+	rm -f ${DESTDIR}/bin/$^

src/gitto

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+BOOT="((@ (gitto main) main) (program-arguments))"
+exec guile $GUILE_FLAGS -c "$BOOT" "$0" "$@"