You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
122 lines
3.4 KiB
122 lines
3.4 KiB
13 years ago
|
Patch by Peter Salvi <vukung@yahoo.com> to conform to MLDonkey 2.9.2,
|
||
|
taken from http://www.emacswiki.org/cgi-bin/wiki/download/mldonkey-vd.patch.gz
|
||
|
and ported to mldonkey-0.0.4b
|
||
|
|
||
|
--- mldonkey-el-0.0.4b-orig/mldonkey-vd.el 2005-01-15 20:54:53.000000000 +0100
|
||
|
+++ mldonkey-el-0.0.4b/mldonkey-vd.el 2008-01-03 10:53:18.000000000 +0100
|
||
|
@@ -107,6 +107,26 @@
|
||
|
:group 'mldonkey
|
||
|
:type 'boolean)
|
||
|
|
||
|
+(defcustom mldonkey-show-release-status nil
|
||
|
+ "Show the release status of a download."
|
||
|
+ :group 'mldonkey
|
||
|
+ :type 'boolean)
|
||
|
+
|
||
|
+(defcustom mldonkey-show-comments nil
|
||
|
+ "Show the number of comments in a download."
|
||
|
+ :group 'mldonkey
|
||
|
+ :type 'boolean)
|
||
|
+
|
||
|
+(defcustom mldonkey-show-user nil
|
||
|
+ "Show the user of a download."
|
||
|
+ :group 'mldonkey
|
||
|
+ :type 'boolean)
|
||
|
+
|
||
|
+(defcustom mldonkey-show-group nil
|
||
|
+ "Show the group of a download."
|
||
|
+ :group 'mldonkey
|
||
|
+ :type 'boolean)
|
||
|
+
|
||
|
(defcustom mldonkey-show-filename t
|
||
|
"Show the filename of a download."
|
||
|
:group 'mldonkey
|
||
|
@@ -275,6 +295,14 @@
|
||
|
;; FIXME: does a network may contain spaces?
|
||
|
"\\[\\(.*?\\)[ \t]*\\([0-9]+\\)\\]" ; network and number
|
||
|
"[ \t]+"
|
||
|
+ "\\(R\\|\\-\\)" ; release status
|
||
|
+ "[ \t]+"
|
||
|
+ "\\([0-9]+\\)" ; comments
|
||
|
+ "[ \t]+"
|
||
|
+ "\\([^ \t]+\\)" ; user
|
||
|
+ "[ \t]+"
|
||
|
+ "\\([^ \t]+\\)" ; group
|
||
|
+ "[ \t]+"
|
||
|
"\\([^\n]+\\)" ; filename
|
||
|
"[ \t]+"
|
||
|
"\\([0-9\\.]+\\)" ; percent
|
||
|
@@ -283,10 +311,9 @@
|
||
|
"[ \t]+"
|
||
|
"\\([0-9\\.]+\\(?:gb\\|mb\\|kb\\|b\\)\\)" ; size
|
||
|
"[ \t]+"
|
||
|
- ;; "\\([0-9\\.]+\\(?:gb\\|mb\\|kb\\|b\\|[ \t]*chunks\\)\\)" ; left
|
||
|
- "\\([0-9]+%\\)" ; avail
|
||
|
+ "\\([0-9:\\-]+\\)" ; last seen
|
||
|
"[ \t]+"
|
||
|
- "\\([0-9]+\\):\\([0-9\\-]+\\)" ; age and last seen
|
||
|
+ "\\([0-9:\\-]+\\)" ; age
|
||
|
"[ \t]+"
|
||
|
"\\([0-9]+\\)/\\([0-9]+\\)" ; active sources and total sources
|
||
|
"[ \t]+"
|
||
|
@@ -454,7 +481,7 @@
|
||
|
(setq mldonkey-vd-num-downloading (1+ mldonkey-vd-num-downloading))
|
||
|
(add-to-list
|
||
|
'mldonkey-vd-downloading-list
|
||
|
- (vconcat (mapcar 'mldonkey-vd-get-match (number-sequence 1 13))))))
|
||
|
+ (vconcat (mapcar 'mldonkey-vd-get-match (number-sequence 1 16))))))
|
||
|
|
||
|
|
||
|
(defun mldonkey-vd-get-finished ()
|
||
|
@@ -523,13 +550,16 @@
|
||
|
|
||
|
(vector "net "
|
||
|
"# "
|
||
|
+ "rel "
|
||
|
+ "com "
|
||
|
+ "user "
|
||
|
+ "gr "
|
||
|
"file "
|
||
|
"% "
|
||
|
"down "
|
||
|
"size "
|
||
|
- "av "
|
||
|
- "a "
|
||
|
"l "
|
||
|
+ "a "
|
||
|
"as "
|
||
|
"ts "
|
||
|
"kb/s "
|
||
|
@@ -553,8 +583,11 @@
|
||
|
|
||
|
(vector 'right
|
||
|
'right
|
||
|
- 'left
|
||
|
+ 'right
|
||
|
'right
|
||
|
+ 'left
|
||
|
+ 'left
|
||
|
+ 'left
|
||
|
'right
|
||
|
'right
|
||
|
'right
|
||
|
@@ -584,13 +617,16 @@
|
||
|
|
||
|
(vector mldonkey-show-network
|
||
|
mldonkey-show-number
|
||
|
+ mldonkey-show-release-status
|
||
|
+ mldonkey-show-comments
|
||
|
+ mldonkey-show-user
|
||
|
+ mldonkey-show-group
|
||
|
mldonkey-show-filename
|
||
|
mldonkey-show-percent
|
||
|
mldonkey-show-downloaded
|
||
|
mldonkey-show-size
|
||
|
- mldonkey-show-avail
|
||
|
- mldonkey-show-days
|
||
|
mldonkey-show-last-seen
|
||
|
+ mldonkey-show-days
|
||
|
mldonkey-show-active-sources
|
||
|
mldonkey-show-total-sources
|
||
|
mldonkey-show-rate
|