diff options
Diffstat (limited to 'src/wasp-utils.el')
| -rw-r--r-- | src/wasp-utils.el | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/src/wasp-utils.el b/src/wasp-utils.el index 5ebcdb00..c0f4ec54 100644 --- a/src/wasp-utils.el +++ b/src/wasp-utils.el @@ -83,7 +83,7 @@ Optionally append EXT to the path." (decode-coding-string (base64-decode-string s) 'utf-8)) (defun w/encode-string (s) - "Decode the base64 UTF-8 string S." + "Encode the base64 UTF-8 string S." (base64-encode-string (encode-coding-string s 'utf-8) t)) (defun w/slurp (path) @@ -96,6 +96,16 @@ Optionally append EXT to the path." "Write DATA to PATH." (write-region data nil path)) +(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))) + +(defun w/daily-log (msg) + "Write MSG to today's daily log file." + (write-region + (s-concat (format-time-string "[%H:%M:%S]" (current-time)) "\t" msg "\n") + nil (w/daily-log-path) t 'donotprintmessagety)) + (defvar w/fetch-last-response nil) (defun w/fetch (url &optional k) "Get URL, passing the returned data to K." @@ -163,7 +173,7 @@ Otherwise, throw an error." (defun w/get-stream-primary-window () "Get the marked primary stream window." - (window-at-x-y 0 0)) + (window-at-x-y 1 1)) (defun w/open-link () "Open URL in the primary stream window." @@ -181,13 +191,13 @@ Otherwise, throw an error." "Return the absolute path given an asset path PATH." (f-join w/asset-base-path path)) -(defun w/image-text (path &optional text) +(defun w/image-text (path &optional text &rest props) "Return TEXT propertized with the image at PATH. If TEXT is nil, use the empty string instead." (propertize (or text "i") 'display - (create-image path) + (apply #'create-image path nil nil props) 'rear-nonsticky t)) (defsubst w/saget (k a) |