GTFO in Lisp

Get those file organized, written in Common Lisp (sbcl).

Description

This program is designed to organize files based on type written in Common Lisp. I have another version in progress written in Haskell to compare against the Common Lisp version.

The sorting will work by creating folders for files based their kind (Document, Music, Video, Image, etc…).

Example

Going from this:

/home/user
 ├── document-1.pdf
 ├── document-2.pdf
 ├── document-3.pdf
 ├── song3.mp3
 ├── pic-1.jpg
 ├── pic-2.jpg
 ├── video-2.mp4
 ├── pic-3.jpg
 ├── pic-4.jpg
 ├── document-4.pdf
 ├── song1.mp3
 ├── song2.mp3
 ├── video-1.mp4
 ├── video-3.mp4
 └── video-4.mp4

To this:

/home/user
 ├── Documents
 │   ├── document-1.pdf
 │   ├── document-2.pdf
 │   ├── document-3.pdf
 │   └── document-4.pdf
 ├── Pictures
 │   ├── pic-1.jpg
 │   ├── pic-2.jpg
 │   ├── pic-3.jpg
 │   └── pic-4.jpg
 ├── Music
 │   ├── song1.mp3
 │   ├── song2.mp3
 │   └── song3.mp3
 └── Videos
     ├── video-1.mp4
     ├── video-2.mp4
     ├── video-3.mp4
     └── video-4.mp4

Credits

minecrafting-123: for the name idea.

I couldn’t find the original repo that inspired me, but it exists on GitHub.