Perforce-Emacs Integration Library

I'd like some login management support from within
p4.el. I'm no elisp expert, but I've created the
following functions which have worked for me. Note that
what I've done doesn't look to see whether $P4PASSWD
has been set, thus preferring to use that password, and
there is no custom integration for specifying the
password file. Also, using shell-command isn't as good
as some of the other means available for invoking a
process, but it worked for me.

;; Logs into p4
(defun p4-login-simple ()
(shell-command "p4 login < $HOME/.p4passwd > /dev/null")
)

;; Logs out of p4
;;
;; Logging in before logging out prevents error
messages and ensures any
;; outstanding tickets are cleared.
(defun p4-logout ()
(interactive)
(p4-login-simple)
(shell-command "p4 logout > /dev/null")
)

;; Logs into p4 using the password stored in
$HOME/.p4passwd (which should have
;; mode 0600.
;;
;; Logging out before logging in ensures you get the
full timeout available
;; rather than just an extension (which is always less
than the full timeout).
(defun p4-login ()
(interactive)
(p4-logout)
(p4-login-simple)
)

;; Reports on any available p4 login tickets
(defun p4-tickets ()
(interactive)
(shell-command "p4 tickets")
)