Dired Reference Card

Basically, I wanted a Dired reference card, but couldn't find one on the 'net, so I compiled one, stealing the formatting from the Emacs reference card. Here's the result:

GNU Emacs

• TeX
• PostScript(letter)
• PDF(letter)

XEmacs

I tried to compile one for XEmacs, but the way XEmacs' marking commands are organized makes very little sense to me. So I re-bound a bunch of keys to make XEmacs' dired have the finger feel of FSF dired. If you are an XEmacs user, and want to compile an XEmacs-specifici Dired reference card, I would appreciate it if you sent me a copy.

;; My FSF-like dired keybindings for XEmacs.
(when (featurep 'xemacs)
  (add-hook
   'dired-mode-hook
   (lambda ()
     (let ((my-dired-*-map (make-sparse-keymap)))
       (define-key dired-mode-map [?/] nil)
       (define-key dired-mode-map [?c] nil)
       ;; do I really want to loose dired-background-shell-command?
       (define-key dired-mode-map [?&] 'dired-cleanup)
       (define-key dired-mode-map [?*] my-dired-*-map)
       (define-key dired-mode-map [?* ?.] 'dired-mark-extension)
       (define-key dired-mode-map [?* ?/] 'dired-mark-directories)
       (define-key dired-mode-map [?* ?@] 'dired-mark-symlinks)
       (define-key dired-mode-map [?* ?*] 'dired-mark-executables)
       ;; no such animal in XEmacs, apparently
       ;; (define-key dired-mode-map [?* ?t] 'dired-do-toggle)
       (define-key dired-mode-map [?* ?s] 'dired-mark-subdir-files)
       (define-key dired-mode-map [?* ?%] 'dired-mark-files-regexp)
       (define-key dired-mode-map [?* ?c] 'dired-change-marks)
       (define-key dired-mode-map [?* ?\(] 'dired-mark-sexp)))))