display-user-info-on-twmode.el

;;;; Commands for displaying information related to a status
(defun twittering-display-user-information (&optional pos)
  (interactive)
  (let* ((pos (or pos (point)))
	 (status (twittering-find-status (twittering-get-id-at pos)))
	 (name (or (cdr (assq 'user-name status)) ""))
	 (screen-name (or (cdr (assq 'user-screen-name status)) ""))
	 (location (or (cdr (assq 'user-location status)) ""))
	 (url (or (cdr (assq 'user-url status)) ""))
	 (description (or (cdr (assq 'user-description status)) "")))
    (message "%s"
	     (mapconcat
	      'identity
	      `(,(format "%s(@%s)" name screen-name)
		,@(unless (string= "" location) (list (concat " " location)))
		,@(unless (string= "" url)
		    (list (concat "\nURL: " url)))
		,@(unless (string= "" description)
		    (list (concat "\nDESC: " description))))
	      ""))))