summaryrefslogtreecommitdiff
path: root/src/wasp-utils.el
diff options
context:
space:
mode:
authorLLLL Colonq <llll@colonq>2025-03-13 21:30:13 -0400
committerLLLL Colonq <llll@colonq>2025-03-13 21:30:13 -0400
commitb21ecce6645fc17c520b722de3d96e550c77c490 (patch)
treeea43d01bd3e36c36eb7b43945ef662088aee3cb7 /src/wasp-utils.el
parenta2d075656ca6a07c6263eee588e15cf2ee802995 (diff)
Update
Diffstat (limited to 'src/wasp-utils.el')
-rw-r--r--src/wasp-utils.el6
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))