Interactive function displaying face attributes

[carlmarcos]

I am writing this function to display face attributes.  The function works 
interactively accepting a string from the user obtained from `completing-read'.

For `char-after-point' I want to display the face attribute of the character 
after point.  Having seen that there can be more than one face at point, what 
can I do? 

(defun descface (face)
  "Describe the typeface properties of FACE."

  (interactive
   (list
    (let* ( (cseq '("char-after-point" "mode-line-inactive" "mode-line" 
"default")) )
      (completing-read "Face: " cseq nil t "mode-line"))))

  (cond ((equal face "char-after-point")
(plist-get (text-properties-at (point)) 'face))
(t (describe-face face)))