projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-highlight.el (riece-highlight-uninstall): Use
[riece]
/
lisp
/
riece-async.el
diff --git
a/lisp/riece-async.el
b/lisp/riece-async.el
index
0c102e2
..
b234b58
100644
(file)
--- a/
lisp/riece-async.el
+++ b/
lisp/riece-async.el
@@
-23,12
+23,11
@@
;;; Commentary:
;;; Commentary:
+;; NOTE: This is an add-on module for Riece.
+
;; This program allows to connect to an IRC server via local proxy
;; which responds to PING requests from server.
;; This program allows to connect to an IRC server via local proxy
;; which responds to PING requests from server.
-;; To use, add the following line to your ~/.riece/init.el:
-;; (add-to-list 'riece-addons 'riece-async)
-
;; If you want to enable this feature per server, write the server
;; spec like this:
;; (add-to-list 'riece-server-alist
;; If you want to enable this feature per server, write the server
;; spec like this:
;; (add-to-list 'riece-server-alist
@@
-38,9
+37,10
@@
;;; Code:
(require 'riece-options)
;;; Code:
(require 'riece-options)
+(require 'riece-ruby) ;riece-ruby-command
(defgroup riece-async nil
(defgroup riece-async nil
- "Connect to IRC server via async
hronous proxy
"
+ "Connect to IRC server via async
proxy.
"
:prefix "riece-"
:group 'riece)
:prefix "riece-"
:group 'riece)
@@
-65,20
+65,15
@@
assumed that the file is in the same directory of this file.")
"Command line arguments passed to `riece-async-server-program'.")
(defconst riece-async-description
"Command line arguments passed to `riece-async-server-program'.")
(defconst riece-async-description
- "
Keep IRC connection with external process
")
+ "
Connect to IRC server via async proxy.
")
;;;###autoload
(defun riece-async-open-network-stream (name buffer host service)
;;;###autoload
(defun riece-async-open-network-stream (name buffer host service)
- (let* (
(process-connection-type nil)
+ (let* (
process-connection-type
(process
(apply #'start-process name buffer riece-ruby-command
(process
(apply #'start-process name buffer riece-ruby-command
- (if (file-name-absolute-p riece-ruby-server-program)
- riece-async-server-program
- (expand-file-name
- riece-async-server-program
- (file-name-directory
- (locate-library
- (symbol-file 'riece-async-open-network-stream)))))
+ (expand-file-name riece-async-server-program
+ riece-data-directory)
riece-async-server-program-arguments)))
(if buffer
(save-excursion
riece-async-server-program-arguments)))
(if buffer
(save-excursion
@@
-98,4
+93,4
@@
assumed that the file is in the same directory of this file.")
(provide 'riece-async)
(provide 'riece-async)
-;;; riece-
rdc
c.el ends here
+;;; riece-
asyn
c.el ends here