From bab58dd6262a716350297dabb701532f61d23d7a Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Mon, 24 May 2021 20:28:39 -0700
Subject: [PATCH] Initial commit

---
 oni/packages/emacs-config.scm   | 31 ++++++++++++++++++++++++++++++
 oni/packages/emacs-inkplate.scm | 28 +++++++++++++++++++++++++++
 oni/packages/stumpwm.scm        | 34 +++++++++++++++++++++++++++++++++
 3 files changed, 93 insertions(+)
 create mode 100644 oni/packages/emacs-config.scm
 create mode 100644 oni/packages/emacs-inkplate.scm
 create mode 100644 oni/packages/stumpwm.scm

diff --git a/oni/packages/emacs-config.scm b/oni/packages/emacs-config.scm
new file mode 100644
index 0000000..6febe47
--- /dev/null
+++ b/oni/packages/emacs-config.scm
@@ -0,0 +1,31 @@
+(define-module (oni packages emacs-config)
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system emacs)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages emacs-xyz))
+
+(define-public emacs-oni-vterm
+  (let ((commit "b1c7553275218dd89676a1136a0e0d708acd5bec")
+        (revision "0"))
+    (package
+      (name "emacs-oni-vterm")
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://git.sr.ht/~ryuslash/emacs-config")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1977csi34jgvvnsn2bv1rawnw1mqvw2j8i6g9c26l49wp7l63szi"))))
+      (build-system emacs-build-system)
+      (arguments
+       '(#:include '("oni-vterm.el")))
+      (propagated-inputs
+       `(("emacs-vterm" ,emacs-vterm)))
+      (home-page "https://git.sr.ht/~ryuslash/emacs-config")
+      (synopsis "My Emacs vterm configuration")
+      (description "This package provides my configuration for emacs-vterm")
+      (license license:gpl3+))))
diff --git a/oni/packages/emacs-inkplate.scm b/oni/packages/emacs-inkplate.scm
new file mode 100644
index 0000000..0783d61
--- /dev/null
+++ b/oni/packages/emacs-inkplate.scm
@@ -0,0 +1,28 @@
+(define-module (oni packages emacs-inkplate)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system emacs)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public emacs-inkplate
+  (let ((commit "0897721a7b3d84aa3f200ae85fddd5fdd370fc42")
+        (revision "0"))
+    (package
+      (name "emacs-inkplate")
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (uri (git-reference
+               (url "https://git.sr.ht/~ryuslash/inkplatel")
+               (commit commit)))
+         (method git-fetch)
+         (sha256
+          (base32 "0mqnpf4vrzn3013pcwcr9150k4jy4klrdg0pd3amhg2y25054w4s"))
+         (file-name (git-file-name name version))))
+      (build-system emacs-build-system)
+      (synopsis "Interface for my Inkplate")
+      (description
+       "This package provides a way to communicate with Inkplate in peripheral mode.")
+      (license license:gpl3+)
+      (home-page "https://sr.ht/~ryuslash/inkplate/"))))
diff --git a/oni/packages/stumpwm.scm b/oni/packages/stumpwm.scm
new file mode 100644
index 0000000..21ce63c
--- /dev/null
+++ b/oni/packages/stumpwm.scm
@@ -0,0 +1,34 @@
+(define-module (oni packages stumpwm)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (gnu packages wm)
+  #:use-module (gnu packages lisp-xyz))
+
+(define-public stumpwm+swank
+  (package
+    (inherit stumpwm)
+    (name "stumpwm-with-swank")
+    (outputs '("out"))
+    (inputs
+     `(("stumpwm" ,stumpwm "lib")
+       ("swank" ,sbcl-slime-swank)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments stumpwm)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (replace 'build-program
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (program (string-append out "/bin/stumpwm")))
+                 (setenv "HOME" "/tmp")
+                 (build-program program outputs
+                                #:entry-program '((stumpwm:stumpwm) 0)
+                                #:dependencies '("stumpwm" "swank")
+                                #:dependency-prefixes
+                                (map (lambda (input) (assoc-ref inputs input))
+                                     '("stumpwm" "swank")))
+                 #t)))
+           (delete 'copy-source)
+           (delete 'build)
+           (delete 'check)
+           (delete 'cleanup)))))))