Skip to content

Instantly share code, notes, and snippets.

@cametan001

cametan001/random-fancy-splash.el

Created May 29, 2010 08:49
Show Gist options
  • Save cametan001/418144 to your computer and use it in GitHub Desktop.
Save cametan001/418144 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
random-fancy-splash.el
(defun random-fancy-splash (folder-name)
(let ((lst (cddr (directory-files folder-name))))
(let ((i 0) (n (length lst)) (h (make-hash-table)))
(mapcar #'(lambda (val)
(puthash i val h)
(incf i)) lst)
(setq fancy-splash-image (concat folder-name (gethash (random n) h))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment