[clinton/scratch.git] / rename-x-files.lisp

(mapcar #'ql:quickload '(:cl-fad :cl-ppcre))

(defun copy-season (source target)
  (fad:walk-directory source
		      (lambda (x) (multiple-value-bind (target-name matched?)
				 (ppcre:regex-replace ".*/([0-9]{2})[.]([0-9]{2})[.](?:[0-9]{2})- (.*)"
						      (namestring x)
						      '("Season " 0 " Episode " 1 " - " 2))
			       (when matched?
				 (format t "matched, copying: ~A / ~A~%" x target-name)
				 (fad:copy-file x (merge-pathnames target-name (make-pathname :directory `(:absolute ,target)))))))))

"/srv/archive/video/tv/The X-Files/Season 01"
Commit	Line	Data
34f4b089 CE	1	(mapcar #'ql:quickload '(:cl-fad :cl-ppcre))
	2
	3	(defun copy-season (source target)
	4	(fad:walk-directory source
	5	(lambda (x) (multiple-value-bind (target-name matched?)
	6	(ppcre:regex-replace "./([0-9]{2})[.]([0-9]{2})[.](?:[0-9]{2})- (.)"
	7	(namestring x)
	8	'("Season " 0 " Episode " 1 " - " 2))
	9	(when matched?
	10	(format t "matched, copying: ~A / ~A~%" x target-name)
	11	(fad:copy-file x (merge-pathnames target-name (make-pathname :directory `(:absolute ,target)))))))))
	12
	13	"/srv/archive/video/tv/The X-Files/Season 01"