[gentoo-commits] gentoo-x86 commit in app-emacs/mldonkey/files: mldonkey-0.0.4b-vd.patch digest-mldonkey-0.0.4b-r1 51mldonkey-gentoo.el

[Ulrich Mueller (ulm)]

ulm         08/01/03 15:10:39

  Added:                mldonkey-0.0.4b-vd.patch digest-mldonkey-0.0.4b-r1
                        51mldonkey-gentoo.el
  Log:
  Add patch to conform to MLDonkey 2.9.2. Use autoload in site-init file.
  (Portage version: 2.1.4_rc14)

Revision  Changes    Path
1.1                  app-emacs/mldonkey/files/mldonkey-0.0.4b-vd.patch

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/mldonkey-0.0.4b-vd.patch?rev=1.1&view=markup
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

Index: mldonkey-0.0.4b-vd.patch
===================================================================
Patch by Peter Salvi <vukung@×××××.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



1.1                  app-emacs/mldonkey/files/digest-mldonkey-0.0.4b-r1

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/digest-mldonkey-0.0.4b-r1?rev=1.1&view=markup
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

Index: digest-mldonkey-0.0.4b-r1
===================================================================
MD5 37f8a8693df359f76d42944744883bef mldonkey-el-0.0.4b.tar.gz 17442
RMD160 f7a6c71e6fba9b73005bc39a6571fd4895ad728f mldonkey-el-0.0.4b.tar.gz 17442
SHA256 5b14873c45c13bd4da553457798cdd7e552fb00dcba880343a958e63823d3f06 mldonkey-el-0.0.4b.tar.gz 17442



1.1                  app-emacs/mldonkey/files/51mldonkey-gentoo.el

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/51mldonkey-gentoo.el?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/mldonkey/files/51mldonkey-gentoo.el?rev=1.1&content-type=text/plain

Index: 51mldonkey-gentoo.el
===================================================================

;;; mldonkey site-lisp configuration

(add-to-list 'load-path "@SITELISP@")
(autoload 'mldonkey "mldonkey" "Run the MlDonkey interface." t)

(setq mldonkey-vd-filename-filters
      '(mldonkey-vd-filename-remove-p20
	mldonkey-vd-filename-remove-trailing-ws))

(setq mldonkey-vd-sort-functions
      '((not mldonkey-vd-sort-dl-state)
        (not mldonkey-vd-sort-dl-percent)))

(setq mldonkey-vd-sort-fin-functions
      '(mldonkey-vd-sort-dl-number))

(add-hook 'mldonkey-pause-hook 'mldonkey-vd)
(add-hook 'mldonkey-resume-hook 'mldonkey-vd)
(add-hook 'mldonkey-commit-hook 'mldonkey-vd)
(add-hook 'mldonkey-recover-temp-hook 'mldonkey-vd)



-- 
gentoo-commits@g.o mailing list