;; jump to first or last file in dired, not to the very top or bottom
(require 'dired)
(require 'dired+)
(defun my/dired-back-to-top ()
  (interactive)
  (beginning-of-buffer)
  (dired-next-line 4))

(define-key dired-mode-map
  (vector 'remap 'beginning-of-buffer) 'my/dired-back-to-top)

(defun my/dired-jump-to-bottom ()
  (interactive)
  (end-of-buffer)
  (dired-next-line -1))

(define-key dired-mode-map
  (vector 'remap 'end-of-buffer) 'my/dired-jump-to-bottom)
(define-key dired-mode-map
  (kbd "^") (lambda () (interactive) (find-alternate-file "..")))  ; was dired-up-directory

;; TODO: what does this do?
(put 'dired-find-alternate-file 'disabled nil)