diff options
| author | Yuchen Pei <id@ypei.org> | 2025-08-30 20:51:52 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-08-30 20:51:52 +1000 |
| commit | 966bed8c8893980845f9b4c0cd8bb21481b1ec2a (patch) | |
| tree | b420f0fd2938a8d5e25620c1159bef4a8339061e /emacs/.emacs.d/lisp/my/my-utils.el | |
| parent | a152ecc6ce54f67e93cd628b9105b6874d262f33 (diff) | |
[emacs] Add my-ttrss
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-utils.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-utils.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-utils.el b/emacs/.emacs.d/lisp/my/my-utils.el index 98c8caa..550d33e 100644 --- a/emacs/.emacs.d/lisp/my/my-utils.el +++ b/emacs/.emacs.d/lisp/my/my-utils.el @@ -226,6 +226,9 @@ Example: (format-time-string ... (my-time-from-epoch 1698582504))" (replace-regexp-in-string "[[:punct:][:space:]\n\r]+" sep (string-trim name))) +(defun my-make-doc-file-name (name) + (replace-regexp-in-string "[:;?/]" "_" name)) + (defun my-make-filename-from-url (url) (let* ((urlobj (url-generic-parse-url url)) (filename (url-filename urlobj)) |