marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Copy and delete files

Browse source
This commit is contained in:
Marcus Kammer 2022-08-13 12:30:46 +02:00
parent 19370bd0c8
commit 4a7f43b516
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
bundle/bundle--mk.el
View file

@ -89,3 +89,22 @@
("^(0[1-9]|[12][0-9]|3[01])/(0[1-9]|1[0-2])/\d{4}$" "matching dates dd/mm/yyyy")
("<.+>" "matching html")
("<\/?(?:p|a|b|img)(?: \/)?>" "matchig specific tags")))
(defun me/list-files (folder suffix)
(let* ((regexp (concat "^.*\." suffix))
(files (directory-files folder nil regexp)))
files))
(defun me/copy-files (src-dir dst-dir suffix)
(let ((src-files '())
(src-dir (expand-file-name src-dir))
(dst-dir (expand-file-name dst-dir)))
(dolist (file (me/list-files src-dir suffix) src-files)
(let ((src-file (expand-file-name (concat src-dir "/" file)))
(dst-file (expand-file-name (concat dst-dir "/" file))))
(add-to-list 'src-files src-file)
(copy-file src-file dst-file t)))))
(defun me/delete-files (lst)
(dolist (file lst)
(delete-file file t)))