+(defun uninstall-wl-icons ()
+ (let* ((case-fold-search t)
+ (icons (directory-files PIXMAPDIR t "\\.img$\\|\\.x[bp]m$"))
+ icon)
+ (while icons
+ (setq icon (car icons)
+ icons (cdr icons))
+ (if (and (file-exists-p icon)
+ (file-writable-p icon))
+ (progn
+ (princ (format "%s was uninstalled.\n" icon))
+ (delete-file icon))))))
+