Re: How to convert an arbitrary string into a filename

[Jean Louis <bugs@gnu.support>]

* Jean Louis <bugs@gnu.support> [2023-04-26 15:26]:
> (defun string-slug (s &optional random)
>   "Return slug for Website Revision System by using string S.
> 
> RANDOM number may be added on the end."

(defun random-number (&optional digits)
  "Return the random number with 6 digits by default"
  (let ((digits (if digits digits 6))
	(count 0))
    (string-to-number
     (with-output-to-string
       (while (/= count digits)
	 (princ (number-to-string (1+ (random 9))))
	 (setq count (1+ count)))))))


(string-slug "                     Hello there, how are you? =)((&/&%))") ➜ "Hello-there-how-are-you"

(string-slug "      Hello   

there, how are you? =)((&/&%))" t) ➜ "Hello-there-how-are-you-292681"

Random number does not guarantee uniqueness of the slug.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/