Skip to content

Instantly share code, notes, and snippets.

@kaz-yos

kaz-yos/mark-every-fifth-files.el

Created June 7, 2018 14:50
Show Gist options
  • Save kaz-yos/6baef08c06148dd5aaa0e69550b8ed22 to your computer and use it in GitHub Desktop.
Save kaz-yos/6baef08c06148dd5aaa0e69550b8ed22 to your computer and use it in GitHub Desktop.
Download ZIP
Mark every fifth files
Raw
mark-every-fifth-files.el
(cl-loop
for str in (thread-last
(number-sequence 1 60)
(seq-filter (lambda (x) (zerop (% x 5))))
(seq-map (lambda (x) (concat "000" (number-to-string x))))
(seq-map (lambda (x) (substring x -3)))
(seq-map (lambda (x) (concat "raw" x))))
do (dired-mark-files-regexp str))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment