diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-07 15:04:57 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-07 15:04:57 -0700 |
| commit | 7aa8cb64c194545733e299e061db5173f1e614e7 (patch) | |
| tree | ea2736beb9d9ddf59387caf1546c60a061f8531b /.emacs.d/site-lisp | |
| parent | bb7178d5b2c397ded35f5109310151dac0d90e4a (diff) | |
| download | dotfiles-7aa8cb64c194545733e299e061db5173f1e614e7.tar.gz | |
archive dired-sort-map.el
Diffstat (limited to '.emacs.d/site-lisp')
| -rw-r--r-- | .emacs.d/site-lisp/dired-sort-map.el | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/.emacs.d/site-lisp/dired-sort-map.el b/.emacs.d/site-lisp/dired-sort-map.el deleted file mode 100644 index 86894110..00000000 --- a/.emacs.d/site-lisp/dired-sort-map.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; dired-sort-map.el --- in Dired: press s then s, x, t or n to sort by Size, eXtension, Time or Name
-
-;; Copyright (C) 2002 -> Free Software Foundation, Inc.
-
-;; Inspired by Francis J. Wright's dired-sort-menu.el
-;; Authors: Patrick Anderson, Santiago Mejia, Andy Stewart,
-;; Prof. Jayanth R Varma
-
-;; Versions:
-;; don't remember
-;; 2.2a bundled in NoteMacs
-;; 2.2 Add help message suggested by Santiago Mejia
-;; 2.3 Precede each switch with " -" as found by Prof. Jayanth R Varma
-
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;;; Install:
-;; Copy this file to a directory in your load path.
-;; Execute: M-x eval-buffer :so you don't have to restart.
-;; Add the line: (require 'dired-sort-map) : to your .emacs
-
-;;; Todo:
-;; (add-hook
-;; 'dired-load-hook
-;; '(lambda ()
-;; (progn
-
-;;; Code:
-(require 'dired)
-(defvar dired-sort-map (make-sparse-keymap))
-
-(define-key dired-mode-map "s" dired-sort-map)
-
-(define-key dired-sort-map "s" (lambda () "sort by Size" (interactive) (dired-sort-other (concat dired-listing-switches " -S"))))
-(define-key dired-sort-map "x" (lambda () "sort by eXtension" (interactive) (dired-sort-other (concat dired-listing-switches " -X"))))
-(define-key dired-sort-map "t" (lambda () "sort by Time" (interactive) (dired-sort-other (concat dired-listing-switches " -t"))))
-(define-key dired-sort-map "n" (lambda () "sort by Name" (interactive) (dired-sort-other dired-listing-switches)))
-(define-key dired-sort-map "?" (lambda () "sort help" (interactive) (message "s Size; x eXtension; t Time; n Name")))
-;; )))
-
-(provide 'dired-sort-map)
-;;; dired-sort-map.el ends here
|