andros/burn.el
1
0
Fork 0
mirror of https://github.com/tanrax/burn.el.git synced 2024-11-09 16:35:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

Update variables assignaments

Browse Source
This commit is contained in:
Andros Fenollosa 2021-01-19 17:20:46 +01:00
parent 8b57e8dad3
commit c7f1f63ee1
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
burn.el
View File

@ -1,3 +1,4 @@
-*- lexical-binding: t; -*-
;;; burn.el --- Burn your code by replacing it with 🔥
;; Copyright © 2020 Erick Navarro
@ -11,10 +12,11 @@
;;; Code:
(setf burn--emoji "🔥")
(setf burn--interval 0.001)
(defvar burn--emoji "🔥")
(defvar burn--interval 0.001)
(defun burn--is-empty ()
"Check if there is nothing left to burn."
(= 0 (length
(replace-regexp-in-string (concat "\\`[ \t\n" burn--emoji "]*") ""
(replace-regexp-in-string (concat "[ \t\n" burn--emoji "]*\\'") "" (buffer-string))))))
@ -36,8 +38,7 @@
(while (not (burn--is-empty))
(sit-for burn--interval)
(burn--replace-backward-at-point)
(burn--replace-forward-at-point)
)
(burn--replace-forward-at-point))
(erase-buffer))
;;; burn.el ends here