1 |
ulm 08/01/03 15:10:39 |
2 |
|
3 |
Added: mldonkey-0.0.4b-vd.patch digest-mldonkey-0.0.4b-r1 |
4 |
51mldonkey-gentoo.el |
5 |
Log: |
6 |
Add patch to conform to MLDonkey 2.9.2. Use autoload in site-init file. |
7 |
(Portage version: 2.1.4_rc14) |
8 |
|
9 |
Revision Changes Path |
10 |
1.1 app-emacs/mldonkey/files/mldonkey-0.0.4b-vd.patch |
11 |
|
12 |
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/mldonkey-0.0.4b-vd.patch?rev=1.1&view=markup |
13 |
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/mldonkey-0.0.4b-vd.patch?rev=1.1&content-type=text/plain |
14 |
|
15 |
Index: mldonkey-0.0.4b-vd.patch |
16 |
=================================================================== |
17 |
Patch by Peter Salvi <vukung@×××××.com> to conform to MLDonkey 2.9.2, |
18 |
taken from http://www.emacswiki.org/cgi-bin/wiki/download/mldonkey-vd.patch.gz |
19 |
and ported to mldonkey-0.0.4b |
20 |
|
21 |
--- mldonkey-el-0.0.4b-orig/mldonkey-vd.el 2005-01-15 20:54:53.000000000 +0100 |
22 |
+++ mldonkey-el-0.0.4b/mldonkey-vd.el 2008-01-03 10:53:18.000000000 +0100 |
23 |
@@ -107,6 +107,26 @@ |
24 |
:group 'mldonkey |
25 |
:type 'boolean) |
26 |
|
27 |
+(defcustom mldonkey-show-release-status nil |
28 |
+ "Show the release status of a download." |
29 |
+ :group 'mldonkey |
30 |
+ :type 'boolean) |
31 |
+ |
32 |
+(defcustom mldonkey-show-comments nil |
33 |
+ "Show the number of comments in a download." |
34 |
+ :group 'mldonkey |
35 |
+ :type 'boolean) |
36 |
+ |
37 |
+(defcustom mldonkey-show-user nil |
38 |
+ "Show the user of a download." |
39 |
+ :group 'mldonkey |
40 |
+ :type 'boolean) |
41 |
+ |
42 |
+(defcustom mldonkey-show-group nil |
43 |
+ "Show the group of a download." |
44 |
+ :group 'mldonkey |
45 |
+ :type 'boolean) |
46 |
+ |
47 |
(defcustom mldonkey-show-filename t |
48 |
"Show the filename of a download." |
49 |
:group 'mldonkey |
50 |
@@ -275,6 +295,14 @@ |
51 |
;; FIXME: does a network may contain spaces? |
52 |
"\\[\\(.*?\\)[ \t]*\\([0-9]+\\)\\]" ; network and number |
53 |
"[ \t]+" |
54 |
+ "\\(R\\|\\-\\)" ; release status |
55 |
+ "[ \t]+" |
56 |
+ "\\([0-9]+\\)" ; comments |
57 |
+ "[ \t]+" |
58 |
+ "\\([^ \t]+\\)" ; user |
59 |
+ "[ \t]+" |
60 |
+ "\\([^ \t]+\\)" ; group |
61 |
+ "[ \t]+" |
62 |
"\\([^\n]+\\)" ; filename |
63 |
"[ \t]+" |
64 |
"\\([0-9\\.]+\\)" ; percent |
65 |
@@ -283,10 +311,9 @@ |
66 |
"[ \t]+" |
67 |
"\\([0-9\\.]+\\(?:gb\\|mb\\|kb\\|b\\)\\)" ; size |
68 |
"[ \t]+" |
69 |
- ;; "\\([0-9\\.]+\\(?:gb\\|mb\\|kb\\|b\\|[ \t]*chunks\\)\\)" ; left |
70 |
- "\\([0-9]+%\\)" ; avail |
71 |
+ "\\([0-9:\\-]+\\)" ; last seen |
72 |
"[ \t]+" |
73 |
- "\\([0-9]+\\):\\([0-9\\-]+\\)" ; age and last seen |
74 |
+ "\\([0-9:\\-]+\\)" ; age |
75 |
"[ \t]+" |
76 |
"\\([0-9]+\\)/\\([0-9]+\\)" ; active sources and total sources |
77 |
"[ \t]+" |
78 |
@@ -454,7 +481,7 @@ |
79 |
(setq mldonkey-vd-num-downloading (1+ mldonkey-vd-num-downloading)) |
80 |
(add-to-list |
81 |
'mldonkey-vd-downloading-list |
82 |
- (vconcat (mapcar 'mldonkey-vd-get-match (number-sequence 1 13)))))) |
83 |
+ (vconcat (mapcar 'mldonkey-vd-get-match (number-sequence 1 16)))))) |
84 |
|
85 |
|
86 |
(defun mldonkey-vd-get-finished () |
87 |
@@ -523,13 +550,16 @@ |
88 |
|
89 |
(vector "net " |
90 |
"# " |
91 |
+ "rel " |
92 |
+ "com " |
93 |
+ "user " |
94 |
+ "gr " |
95 |
"file " |
96 |
"% " |
97 |
"down " |
98 |
"size " |
99 |
- "av " |
100 |
- "a " |
101 |
"l " |
102 |
+ "a " |
103 |
"as " |
104 |
"ts " |
105 |
"kb/s " |
106 |
@@ -553,8 +583,11 @@ |
107 |
|
108 |
(vector 'right |
109 |
'right |
110 |
- 'left |
111 |
+ 'right |
112 |
'right |
113 |
+ 'left |
114 |
+ 'left |
115 |
+ 'left |
116 |
'right |
117 |
'right |
118 |
'right |
119 |
@@ -584,13 +617,16 @@ |
120 |
|
121 |
(vector mldonkey-show-network |
122 |
mldonkey-show-number |
123 |
+ mldonkey-show-release-status |
124 |
+ mldonkey-show-comments |
125 |
+ mldonkey-show-user |
126 |
+ mldonkey-show-group |
127 |
mldonkey-show-filename |
128 |
mldonkey-show-percent |
129 |
mldonkey-show-downloaded |
130 |
mldonkey-show-size |
131 |
- mldonkey-show-avail |
132 |
- mldonkey-show-days |
133 |
mldonkey-show-last-seen |
134 |
+ mldonkey-show-days |
135 |
mldonkey-show-active-sources |
136 |
mldonkey-show-total-sources |
137 |
mldonkey-show-rate |
138 |
|
139 |
|
140 |
|
141 |
1.1 app-emacs/mldonkey/files/digest-mldonkey-0.0.4b-r1 |
142 |
|
143 |
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/digest-mldonkey-0.0.4b-r1?rev=1.1&view=markup |
144 |
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/digest-mldonkey-0.0.4b-r1?rev=1.1&content-type=text/plain |
145 |
|
146 |
Index: digest-mldonkey-0.0.4b-r1 |
147 |
=================================================================== |
148 |
MD5 37f8a8693df359f76d42944744883bef mldonkey-el-0.0.4b.tar.gz 17442 |
149 |
RMD160 f7a6c71e6fba9b73005bc39a6571fd4895ad728f mldonkey-el-0.0.4b.tar.gz 17442 |
150 |
SHA256 5b14873c45c13bd4da553457798cdd7e552fb00dcba880343a958e63823d3f06 mldonkey-el-0.0.4b.tar.gz 17442 |
151 |
|
152 |
|
153 |
|
154 |
1.1 app-emacs/mldonkey/files/51mldonkey-gentoo.el |
155 |
|
156 |
file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/51mldonkey-gentoo.el?rev=1.1&view=markup |
157 |
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/51mldonkey-gentoo.el?rev=1.1&content-type=text/plain |
158 |
|
159 |
Index: 51mldonkey-gentoo.el |
160 |
=================================================================== |
161 |
|
162 |
;;; mldonkey site-lisp configuration |
163 |
|
164 |
(add-to-list 'load-path "@SITELISP@") |
165 |
(autoload 'mldonkey "mldonkey" "Run the MlDonkey interface." t) |
166 |
|
167 |
(setq mldonkey-vd-filename-filters |
168 |
'(mldonkey-vd-filename-remove-p20 |
169 |
mldonkey-vd-filename-remove-trailing-ws)) |
170 |
|
171 |
(setq mldonkey-vd-sort-functions |
172 |
'((not mldonkey-vd-sort-dl-state) |
173 |
(not mldonkey-vd-sort-dl-percent))) |
174 |
|
175 |
(setq mldonkey-vd-sort-fin-functions |
176 |
'(mldonkey-vd-sort-dl-number)) |
177 |
|
178 |
(add-hook 'mldonkey-pause-hook 'mldonkey-vd) |
179 |
(add-hook 'mldonkey-resume-hook 'mldonkey-vd) |
180 |
(add-hook 'mldonkey-commit-hook 'mldonkey-vd) |
181 |
(add-hook 'mldonkey-recover-temp-hook 'mldonkey-vd) |
182 |
|
183 |
|
184 |
|
185 |
-- |
186 |
gentoo-commits@g.o mailing list |