erc-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erc-commit] [commit][master] Add module definitions for erc-dcc.el and


From: mwolson
Subject: [Erc-commit] [commit][master] Add module definitions for erc-dcc.el and erc-xdcc.el.
Date: Sun, 20 Jan 2008 17:40:10 -0500

commit 773a3206b463e2ed21225e16e6401757d82eff21
Author: Michael W. Olson <address@hidden>
Date:   Sun Jan 20 17:29:59 2008 -0500

    Add module definitions for erc-dcc.el and erc-xdcc.el.

diff --git a/ChangeLog b/ChangeLog
index f18719d..3ba17ce 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-20  Michael Olson  <address@hidden>
+
+       * erc-dcc.el, erc-xdcc.el: Add simple module definitions.
+
+       * erc.el (erc-modules): Add dcc and xdcc.
+
 2008-01-19  Michael Olson  <address@hidden>
 
        * erc-bbdb.el (erc-bbdb-insinuate-and-show-entry): Work around bug
diff --git a/erc-dcc.el b/erc-dcc.el
index 243d09a..2aca064 100644
--- a/erc-dcc.el
+++ b/erc-dcc.el
@@ -60,6 +60,12 @@
   (require 'cl)
   (require 'pcomplete))
 
+;;;###autoload (autoload 'erc-dcc-mode "erc-dcc")
+(define-erc-module dcc nil
+  "Provide Direct Client-to-Client support for ERC."
+  ((add-hook 'erc-server-401-functions 'erc-dcc-no-such-nick))
+  ((remove-hook 'erc-server-401-functions 'erc-dcc-no-such-nick)))
+
 (defgroup erc-dcc nil
   "DCC stands for Direct Client Communication, where you and your
 friend's client programs connect directly to each other,
@@ -1169,8 +1175,6 @@ other client."
       (if (processp peer) (delete-process peer)))
     nil))
 
-(add-hook 'erc-server-401-functions 'erc-dcc-no-such-nick)
-
 (provide 'erc-dcc)
 
 ;;; erc-dcc.el ends here
diff --git a/erc-xdcc.el b/erc-xdcc.el
index a3b6aac..b58a7b6 100644
--- a/erc-xdcc.el
+++ b/erc-xdcc.el
@@ -62,6 +62,11 @@ being evaluated and should return stings."
   :group 'erc-dcc
   :type '(repeat (repeat :tag "Message" (choice string sexp))))
 
+;;;###autoload (autoload 'erc-xdcc-mode "erc-xdcc")
+(define-erc-module xdcc nil
+  "Act as an XDCC file-server."
+  nil nil)
+
 ;;;###autoload
 (defun erc-xdcc-add-file (file)
   "Add a file to `erc-xdcc-files'."
diff --git a/erc.el b/erc.el
index 7262c25..8994eb0 100644
--- a/erc.el
+++ b/erc.el
@@ -1844,6 +1844,7 @@ removed from the list will be disabled."
           capab-identify)
     (const :tag "completion: Complete nicknames and commands (programmable)"
           completion)
+    (const :tag "dcc: Provide Direct Client-to-Client support" dcc)
     (const :tag "hecomplete: Complete nicknames and commands (old)" hecomplete)
     (const :tag "fill: Wrap long lines" fill)
     (const :tag "identd: Launch an identd server on port 8113" identd)
@@ -1878,6 +1879,7 @@ removed from the list will be disabled."
     (const :tag "track: Track channel activity in the mode-line" track)
     (const :tag "truncate: Truncate buffers to a certain size" truncate)
     (const :tag "unmorse: Translate morse code in messages" unmorse)
+    (const :tag "xdcc: Act as an XDCC file-server" xdcc)
     (repeat :tag "Others" :inline t symbol))
   :group 'erc)
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]