-
Notifications
You must be signed in to change notification settings - Fork 0
/
dired-single.elc
60 lines (55 loc) · 4.99 KB
/
dired-single.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
;ELC
;;; Compiled by [email protected] on Fri Oct 1 12:30:02 2010
;;; from file /Users/oceanhug/.emacs.d/dired-single.el
;;; in Emacs version 22.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`dired-single.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'joc-dired-single nil "joc-dired-single package customization" :group 'tools)
#@46 Customization of the group joc-dired-single.
(defalias 'joc-dired-single-customize #[nil "\300\301!\207" [customize-group "joc-dired-single"] 2 (#$ . 701) nil])
#@194 Boolean used to determine if the joc-dired-single functions should
look for and retain a specific buffer name. The buffer name to look
for is specified with joc-dired-magic-buffer-name.
(custom-declare-variable 'joc-dired-use-magic-buffer 't '(#$ . 869) :group 'joc-dired-single :type 'boolean)
#@175 Name of buffer to use if joc-dired-use-magic-buffer is true. Once a
dired buffer has this name, it will always keep this name (unless it's
explicitly renamed by you).
(custom-declare-variable 'joc-dired-magic-buffer-name '"*dired*" '(#$ . 1178) :group 'joc-dired-single :type 'string)
#@34 joc-dired-single version number.
(defconst joc-dired-single-version "$Revision: 1.6 $" (#$ . 1476))
#@42 Returns joc-dired-single version number.
(defalias 'joc-dired-single-version-number #[nil "\301\302\"\210\303\304\"\207" [joc-dired-single-version string-match "[0123456789.]+" match-string 0] 3 (#$ . 1582)])
#@36 Displays joc-dired-single version.
(defalias 'joc-dired-single-display-version #[nil "\300\301\302 \"\207" [message "joc-dired-single version <%s>." joc-dired-single-version-number] 3 (#$ . 1799) nil])
#@680 Visits the selected directory in the current buffer, replacing the
current contents with the contents of the new directory. This doesn't
prevent you from having more than one dired buffer. The main difference
is that a given dired buffer will not spawn off a new buffer every time
a new directory is visited.
If the variable joc-dired-use-magic-buffer is non-nil, and the current
buffer's name is the same as that specified by the variable
joc-dired-magic-buffer-name, then the new directory's buffer will retain
that same name (i.e. not only will dired only use a single buffer, but
its name will not change every time a new directory is entered).
(defalias 'joc-dired-single-buffer #[(&optional default-dirname) "\206 \306 \212\307 \310\216\311\210`\312 \210\204! \313\314 \315#\203; \316 \317 !\210\2057 \f\230\2057 \320!)\202> \321 !-\207" [default-dirname name save-match-data-internal eol current-buffer-name joc-dired-use-magic-buffer dired-get-filename match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil beginning-of-line re-search-forward "^ d" t buffer-name find-alternate-file rename-buffer find-file joc-dired-magic-buffer-name] 4 (#$ . 2008) nil])
#@138 Essentially this is the same as joc-dired-single-buffer, except that the
action is initiated by a mouse-click instead of a keystroke.
(defalias 'joc-dired-single-buffer-mouse #[(click) "\211:\203 A@\202 \305 `\306\307F)\211@\nA@ \310 !\210\fb\210+\311 \207" [click event start window pos selected-window (0 . 0) 0 select-window joc-dired-single-buffer] 5 (#$ . 3270) "e"])
#@310 Switch to an existing buffer whose name is the value of
joc-dired-magic-buffer-name. If no such buffer exists, launch dired in a
new buffer and rename that buffer to the value of
joc-dired-magic-buffer-name. If the current buffer is the magic buffer,
it will prompt for a new directory to visit.
(defalias 'joc-dired-magic-buffer #[(&optional default-dirname) "\305!\211\306=\204 p=\203A \n\206 \307\310\311\312\"\306 \313$ \314\f!\204) \315\316\f\"\210 \306=\2036 \317\f!\210\202: \320\f!\210\321!)\202L \322 !\210\n\205L \323\n!)\207" [joc-dired-magic-buffer-name magic-dired-buffer default-dirname default-directory dirname get-buffer nil read-file-name format "Dired %s(directory): " "" t file-directory-p error "Error: <%s> is not a directory" find-file find-alternate-file rename-buffer switch-to-buffer joc-dired-magic-buffer] 6 (#$ . 3660) nil])
#@129 Toggle between the `magic' buffer name and the `real' dired buffer
name. Will also seek to uniquify the `real' buffer name.
(defalias 'joc-dired-toggle-buffer-name #[nil "\304\230\204\n \305\306!\210\307 \230\203 \310\311\312\313\n!!!\314\"\207\315 !\211\203( \316 !\210\310 !)\207" [major-mode joc-dired-magic-buffer-name default-directory existing-buffer "dired-mode" error "Error: not a dired buffer" buffer-name rename-buffer abbreviate-file-name expand-file-name directory-file-name t get-buffer kill-buffer] 6 (#$ . 4540) nil])
(provide 'dired-single)