;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/vt.el

(latin1-display-ucs-per-lynx t)
(set-char-table-extra-slot glyphless-char-display 0 "%")
;; (insert-char #x1f3ab)

(defun dump (name)
  (interactive "sname: ")
  (message nil)
  (let*((file (format "~/%s.png" name))
        (cmd  (format "fbgrab %s" file)) )
    (shell-command cmd) ))