;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/vt.el (set-char-table-extra-slot glyphless-char-display 0 "%") ;; test: (insert-char #x1f3ab) (defun dump (name) (interactive "sname: ") (prog1 (message "") (let*((file (format "~/%s.png" name)) (cmd (format "fbgrab %s" file))) (shell-command cmd)))) (provide 'vt)