ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove Inkplate update code from Emacs init

Browse source 
This should now be done by the one-shot service I created.
This commit is contained in:
Tom Willemse 2023-07-08 00:41:24 -07:00
parent c9beaec472
commit 0563a13567
1 changed files with 0 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
oni/home/services/emacs/init.el
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)