1 files changed, 7 insertions, 11 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-utils.el b/emacs/.emacs.d/lisp/my/my-utils.el
index 0743227..05ca2e6 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))
@@ -295,6 +298,7 @@ Example: (format-time-string ... (my-time-from-epoch 1698582504))"
 (defvar my-video-incoming-dir my-incoming-dir)
 (defvar my-audio-incoming-dir my-incoming-dir)
 (defvar my-document-incoming-dir my-incoming-dir)
+(defvar my-music-incoming-dir my-incoming-dir)
 
 (defmacro my-with-default-directory (dir &rest body)
   "Run BODY with the default directory."
@@ -311,21 +315,13 @@ Example: (format-time-string ... (my-time-from-epoch 1698582504))"
     (apply 'call-process (append (list command nil t nil) args))
     (buffer-string)))
 
-(defun my-call-process-with-torsocks
-    (program &optional infile destination display &rest args)
-  (apply 'call-process
-         (append (list "torsocks" infile destination display program) args)))
-
-(defun my-start-process-with-torsocks (no-tor name buffer program &rest program-args)
-  (if no-tor
-      (apply 'start-process (append (list name buffer program) program-args))
-    (apply 'start-process
-           (append (list name buffer "torsocks" program) program-args))))
-
 (defun my-touch-new-file (filename)
   "Touch a new file."
   (with-temp-buffer (write-file filename)))
 
+(defun my-touch-file-mtime (file date)
+  (call-process "touch" nil nil nil "-d" date file))
+
 (defvar my-extension-types
   '((audio . ("asf" "cue" "flac" "m4a" "m4r" "mid" "mp3" "ogg" "opus"
               "wav" "wma" "spc" "mp4"))