0. #lang racket
1.  
2. (define f (srcloc (string->path "Users/leif/bar/baz/another-folder/more/and-more/yet-more-still/still-not-stopping/i-m-loosing-the-ability/to-make-good/folder-names/foo.rkt") 1 1 1 1))
3.  
4. (srcloc->string f)

=>

"...-more/yet-more-still/still-not-stopping/i-m-loosing-the-ability/to-make-good/folder-names/foo.rkt:1:1"