Compare commits

...

2 commits

Author SHA1 Message Date
31ef9ffe65 Update emacs-config 2023-07-08 00:44:15 -07:00
0563a13567 Remove Inkplate update code from Emacs init
This should now be done by the one-shot service I created.
2023-07-08 00:41:24 -07:00
2 changed files with 2 additions and 27 deletions

View file

@ -50,31 +50,6 @@
(with-eval-after-load 'electric (with-eval-after-load 'electric
(add-hook 'electric-quote-inhibit-functions #'oni-in-word-p)) (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") (setq custom-file "~/.config/emacs/custom.el")
(load custom-file) (load custom-file)

View file

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