15 lines
280 B
EmacsLisp
15 lines
280 B
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defface handwriting
|
||
|
|
'((t :family "Jeremy Sans"))
|
||
|
|
"A face with handwritten font")
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun handwrite ()
|
||
|
|
"Make the buffer look handwritten"
|
||
|
|
(interactive)
|
||
|
|
(buffer-face-set 'handwriting))
|
||
|
|
|
||
|
|
(provide 'handwriting)
|