diff options
| author | LLLL Colonq <llll@colonq> | 2025-03-13 21:30:13 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-03-13 21:30:13 -0400 |
| commit | b21ecce6645fc17c520b722de3d96e550c77c490 (patch) | |
| tree | ea43d01bd3e36c36eb7b43945ef662088aee3cb7 /src/wasp-utils.el | |
| parent | a2d075656ca6a07c6263eee588e15cf2ee802995 (diff) | |
Update
Diffstat (limited to 'src/wasp-utils.el')
| -rw-r--r-- | src/wasp-utils.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/wasp-utils.el b/src/wasp-utils.el index 31a17996..54cc3cae 100644 --- a/src/wasp-utils.el +++ b/src/wasp-utils.el @@ -98,6 +98,10 @@ Optionally append EXT to the path." "Write DATA to PATH." (f-write-text data 'utf-8 path)) +(defun w/unix-time () + "Return the current Unix timestamp." + (float-time (current-time))) + (defun w/daily-log-path () "Return the path to today's daily log file." (format-time-string "~/logs/log-%Y-%m-%d.txt" (current-time))) @@ -140,7 +144,7 @@ Optionally append EXT to the path." (defun w/devour (start end) "Delete and return the region from START to END." - (w/write-log (format "devouring: %s %s %s" start end (buffer-string))) + ;; (w/write-log (format "devouring: %s %s %s" start end (buffer-string))) (let ((ret (decode-coding-string (buffer-substring start end) 'utf-8))) (delete-region start end) ret)) |
