oni/home/services/emacs/init.el

@@ -50,6 +50,31 @@
 (with-eval-after-load 'electric
   (add-hook 'electric-quote-inhibit-functions #'oni-in-word-p))
 
+(add-to-list 'load-path (expand-file-name "~/projects/inkplate"))
+(when (require 'inkplate nil t)
+  (let ((my-dev (inkplate-open "/dev/ttyUSB0")))
+
+    (inkplate-clear-screen my-dev)
+    (inkplate-set-cursor my-dev 280 100)
+
+    (inkplate-set-text-size my-dev 10)
+    (inkplate-print my-dev (inkplate--convert-string-to-hex (format-time-string "%Y")))
+
+    (inkplate-set-cursor my-dev 275 180)
+    (inkplate-set-text-size my-dev 8)
+    (inkplate-print my-dev (inkplate--convert-string-to-hex (format-time-string "%m-%d")))
+
+    (inkplate-draw-rectangle my-dev 270 90 250 155 3)
+    (inkplate-draw-rectangle my-dev 269 89 252 157 3)
+    (inkplate-draw-rectangle my-dev 268 88 254 159 3)
+
+    (inkplate-partial-update my-dev)
+    ;; It doesn't seem to update properly unless I send the same update twice.
+    (inkplate-partial-update my-dev)
+    (inkplate-send my-dev)
+
+    (delete-process (inkplate-device-process my-dev))))
+
 (setq custom-file "~/.config/emacs/custom.el")
 (load custom-file)
 

oni/packages/emacs-config.scm

@@ -13,7 +13,7 @@
   #:use-module (oni packages go))
 
 (define-public emacs-oni-config
-  (let ((commit "dfc257cd8ccf382f396abaa45a547d818db2123f")
+  (let ((commit "748db4a4ee2f2e474f6a295cd417c65e3c5ad88a")
         (revision "0"))
     (package
       (name "emacs-oni-config")
@@ -26,7 +26,7 @@
                (commit commit)))
          (file-name (git-file-name name version))
          (sha256
-          (base32 "0nrs54mhbqbc2fw8k81blnh8s7k9i9j9akqjq8gn0p72bggwwnc4"))))
+          (base32 "1qimxih1mw6zdci8by097wqdf0n9wfkbw00yxycp1sii32j4mdlq"))))
       (build-system emacs-build-system)
       (home-page "https://code.ryuslash.org/ryuslash/emacs-config")
       (synopsis "My Emacs configuration")