Mercurial > emacs
view etc/ledit.l @ 69860:000a5d4aa083
(rcirc-default-server): Rename from rcirc-server.
(rcirc-default-port): Rename from rcirc-port.
(rcirc-default-nick): Rename from rcirc-nick.
(rcirc-default-user-name): Rename from rcirc-user-name.
(rcirc-default-user-full-name): Rename from rcirc-user-full-name.
(rcirc-low-priority-flag): New variable.
(rcirc-decode-coding-system): New defcustom.
(rcirc-encode-coding-system): New defcustom.
(rcirc-coding-system-alist): New defcustom.
(rcirc-multiline-major-mode): New defcustom.
(rcirc-nick): New internal variable.
(rcirc-process): Remove variable.
(rcirc-server-buffer): New variable.
(rcirc): Update to use rcirc-default-* variables above.
(rcirc-connect): Do not add window-configuration-hook-here.
(rcirc-server): New internal variable.
(rcirc-connect): Do not send keepalive pings if rcirc-keepalive-seconds is nil.
(with-rcirc-server-buffer): New macro.
(rcirc-send-string): Encode with rcirc-encode-coding-system.
(rcirc-server-name): Rename from rcirc-server.
(rcirc-buffer-process): New function.
(rcirc-buffer-nick): New function.
(rcirc-buffer-target): Remove function.
(set-rcirc-decode-coding-system, set-rcirc-encode-coding-system): New commands.
(rcirc-mode-map): Change binding of C-c C-l to rcirc-toggle-low-priority.
(rcirc-mode): Initialize coding system based on rcirc-coding-system-alist.
New change-major-mode-hook to part the channel on a mode change.
Make kill-buffer-hook buffer-local.
(rcirc-change-major-mode-hook): New function.
(rcirc-clean-up-buffer): Rename from rcirc-kill-buffer-hook-1.
(rcirc-last-post-time): New variable.
(rcirc-process-message): Store the last time user posted a message to this
target.
(rcirc-multiline-minor-mode): New mode.
(rcirc-multiline-minor-mode-map): New mode map.
(rcirc-edit-multiline): Put multiline-edit buffer in
rcirc-multiline-major-mode along with rcirc-multiline-minor-mode.
(rcirc-print): Any line starting with an ignored nick will be ignored.
(rcirc-print): Decode using rcirc-decode-coding-system.
(rcirc-track-minor-mode): Update global-mode-string when disabling this mode.
(minor-mode-alist): add LowPri indicator.
(rcirc-toggle-low-priority): New function.
(rcirc-last-non-irc-buffer): Prefix arg now no means switch to next low priority
buffer with activity.
(rcirc-record-activity): Sort buffers in rcirc-activity by the last time the
user posted a message in to the target.
(rcirc-update-activity-string): New formatting for low priority buffers.
(rcirc-split-activity): New function.
(rcirc-handler-PART, rcirc-handler-KICK)
(rcirc-handler-PART-or-KICK): Kick responses are printed properly.
(rcirc-nick-away-alist): New variable.
(rcirc-handler-301): New handler. Away messages are printed once per change.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 08 Apr 2006 10:23:24 +0000 |
parents | 695cf19ef79e |
children | 375f2633d815 |
line wrap: on
line source
;;; -*- Mode: lisp -*- ; load in the c functions (removeaddress '_signal) (removeaddress '_switch_to_proc) (removeaddress '_set_proc_str) (cfasl "/src/mdc/ledit/leditcfns.o" '_switch_to_proc 'emacs) (getaddress '_set_proc_str 'set_proc_str) (declare (special *ledit-infile* ; emacs->lisp tempfile *ledit-outfile* ; lisp->emacs tempfile *ledit-ppfile* ; pp->emacs tempfile *ledit-lisztfile* ; compiler input *ledit-objfile* ; compiler output *ledit-initialized*) ; flag ) (setq *ledit-initialized* nil) ;;; INIT-LEDIT (defun init-ledit () (let ((user (getenv '|USER|))) ;USER must be uppercase (setq *ledit-outfile* (concat "/tmp/" user ".l2") ; lisp -> emacs *ledit-infile* (concat "/tmp/" user ".l1") ; emacs -> lisp *ledit-ppfile* (concat "/tmp/" user ".l3") ; pp output to emacs. *ledit-lisztfile* (concat "/tmp/" user ".l4") *ledit-objfile* (concat "/tmp/" user ".o") *ledit-initialized* t))) ;;; LEDIT ; if 1 arg, arg is taken as a tag name to pass to emacs. ; if 2 args, second arg is a keyword. If 2nd arg is pp, ; pp is applied to first arg, and result is sent to emacs ; to put in a buffer called LEDIT (which is first erased.) (defun ledit fexpr (args) (apply #'ledit* args)) ;;; LEDIT* (defun ledit* n (if (not *ledit-initialized*) (init-ledit)) (ledit-output (listify n)) (syscall 10. *ledit-infile*) ; syscall 10 is "delete" (syscall 10. *ledit-lisztfile*) (emacs) (ledit-input) (syscall 10. *ledit-outfile*) (syscall 10. *ledit-ppfile*) t) ;;; LEDIT-OUTPUT ;;; Egad, what a mess! Doesn't work for XEMACS yet. ;;; Here's an example from Mocklisp: ;;; -> (defun bar (nothing) (bar nothing)) ;;; bar ;;; -> (ledit bar) ;;; should produce... ;;; (progn) (progn tag (setq tag "bar") (&goto-tag)) ;;; and ;;; -> (ledit bar pp) ;;; should stuff this to emacs... ;;; (progn) (switch-to-buffer "LEDIT") (erase-buffer) ;;; (insert-file "/tmp/walter.l3") (lisp-mode) ;;; and this... ;;; (def bar ;;; (lambda (x) ;;; (bar nothing))) ;;; into *LEDIT* (defun ledit-output (args) (if args (let ((ofile (outfile *ledit-outfile*))) (format ofile "(progn)") ; this is necessary. (cond ((null (cdr args)) ; no keyword -> arg is a tag. (format ofile "(progn tag (setq tag \"~A\"~ (&goto-tag))" (car args))) ((eq (cadr args) 'pp) ; pp-> pp first arg to emacs (apply 'pp `((|F| ,*ledit-ppfile*) ,(car args))) (format ofile "(switch-to-buffer \"LEDIT\")~ (erase-buffer)") (format ofile "(insert-file \"~A\")" *ledit-ppfile*) (format ofile "(lisp-mode)")) (t (format t "~&~A -- unknown option~%" (cdr args)))) (close ofile)))) ;;; LISZT* ;;; Need this guy to do compile-input. ;;; Liszt returns 0 if all was well. ;;; Note that in ordinary use the user will have to get used to looking ;;; at "%Warning: ... Compiler declared *foo* special" messages, since ;;; you don't usually want to hunt around in your file, zap in the ;;; declarations, then go back to what you were doing. ;;; Fortunately this doesn't cause the compiler to bomb. ;;; Some sleepless night I will think of a way to get around this. (defun liszt* (&rest args) (apply #'liszt args)) ;;; LEDIT-INPUT ;;; Although there are two cases here, in practice ;;; it is never the case that there is both input to be ;;; interpreted and input to be compiled. (defun ledit-input () (if (probef *ledit-lisztfile*) (cond ((getd #'liszt) (format t ";Compiling LEDIT:") (and (zerop (liszt* *ledit-lisztfile* '-o *ledit-objfile*)) (load *ledit-objfile*))) (t (format t ";Can't compile LEDIT: No liszt.~%;Reading instead:") (let ((ifile (infile *ledit-lisztfile*))) (ledit-load ifile) (close ifile))))) (if (probef *ledit-infile*) (let ((ifile (infile *ledit-infile*))) (format t ";Reading from LEDIT:~%") (ledit-load ifile) (close ifile)))) ;;; LEDIT-LOAD ;;; A generally useful form of load (defun ledit-load (ifile) (let ((eof-form (list 'eof-form))) (do ((form (read ifile eof-form) (read ifile eof-form))) ((eq form eof-form)) (format t "; ~A~%" (eval form))))) (setsyntax #/ 'macro 'ledit) ; make ^E = (ledit)<return> ;; more robust version of the c function set_proc_str. Does argument checking. ;; set_proc_str sets the string that is stuffed to the tty after franz pauses ;; and the csh wakes up. It is usually "%emacs" or "%vemacs" or "%?emacs" (defun set-proc-str (arg) (if (stringp arg) (set_proc_str arg) (if (symbolp arg) (set_proc_str (get-pname arg)) (error arg " is illegal argument to set-proc-str")))) ;;; arch-tag: 2e76c01f-8d6a-4d04-b9ab-0eaabec96aee