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 /archive | |
| parent | bb7178d5b2c397ded35f5109310151dac0d90e4a (diff) | |
| download | dotfiles-7aa8cb64c194545733e299e061db5173f1e614e7.tar.gz | |
archive dired-sort-map.el
Diffstat (limited to 'archive')
| -rw-r--r-- | archive/.emacs.d/site-lisp/dired-sort-map.el | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/archive/.emacs.d/site-lisp/dired-sort-map.el b/archive/.emacs.d/site-lisp/dired-sort-map.el new file mode 100644 index 00000000..86894110 --- /dev/null +++ b/archive/.emacs.d/site-lisp/dired-sort-map.el @@ -0,0 +1,45 @@ +;;; 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
|