andros/burn.el
1
0
Fork 0
mirror of https://github.com/tanrax/burn.el.git synced 2024-09-19 22:27:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Update time

Browse Source
This commit is contained in:
Andros Fenollosa 2021-01-10 20:53:37 +01:00
parent dbd6a655f8
commit 84d5081aff
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
burn.el
View File

@ -12,6 +12,7 @@
;;; Code: ;;; Code:
(setf burn--emoji "🔥") (setf burn--emoji "🔥")
(setf burn--interval 0.001)
(defun burn--is-empty () (defun burn--is-empty ()
(= 0 (length (= 0 (length
@ -32,7 +33,7 @@
"Replace code with burn--emoji." "Replace code with burn--emoji."
(interactive) (interactive)
(while (not (burn--is-empty)) (while (not (burn--is-empty))
(sit-for 0.5) (sit-for burn--interval)
(burn--replace-backward-at-point) (burn--replace-backward-at-point)
(burn--replace-forward-at-point) (burn--replace-forward-at-point)
) )