Re: [elisp] Look for function that create safe file name from string...

[Pascal J. Bourguignon]

Oleksandr Gavenko <gavenkoa@gmail.com> writes:

> I decide store my message after sending it to mail/news.
>
> As file name I use date and message header.
>
> But message header may contain danger symbol. One of errors I get when '/'
> char present in file name...
>
> So I look for function that safely escape string to get file name in portable
> for Emacs way...

(defun alphanumericp (ch)
  (find ch "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))
                                                                
    
(defun clean-filename (name)
  (remove-if-not (lambda (ch) (or (alphanumericp ch) (find ch "-_.")))
                 (substitute ?- 32 name)))

(clean-filename "Subject: Re: [elisp] Look for function that create
safe file name from string...")
--> 
"Subject-Re-elisp-Look-for-function-that-createsafe-file-name-from-string..."


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
A bad day in () is better than a good day in {}.