lisp/erc/erc.el

10 ;;               Andreas Fuchs (afs@void.at)
20 ;; the Free Software Foundation; either version 2, or (at your option)
61 ;; After you are connected to a server, you can use C-h m or have a look at
117   "Running scripts at startup and with /LOAD"
294   "Hook run when processing a quit command directed at our nick.
302   "Hook run when processing a PART message directed at our nick.
311   "Hook run when processing a KICK message directed at our nick.
606   "The place where insertion of new text in erc buffers should happen.")
613 (defun erc-string-no-properties (string)
614   "Return a copy of STRING will all text-properties removed."
616     (set-text-properties 0 (length newstring) nil newstring)
675 		 (const :tag "don't highlight notices at all" nil)))
814 messages directed at the user.
863   "A marker containing the position the current buffer was last saved at.")
982   "Hook called first when some text is inserted through `erc-display-line'.
984 To be able to modify the inserted text, use `erc-insert-modify-hook' instead.
986 display of that particular string at all."
991   "Hook called first when some text is sent through `erc-send-current-line'.
994 To change the text that will be sent, set the variable STR which is
997 To change the text inserted into the buffer without changing the text
1001 that particular string at all and `erc-insert-this' to prevent
1005 `erc-insert-this' to t.  ERC is sane enough to not insert the text
1011   "Insert the text into the target buffer or not.
1016   "Send the text to the target or not.
1021   "Insertion hook for functions that will change the text's appearance.
1025 the buffer where the text got inserted.  One possible value to add here
1040   "Sending hook for functions that will change the text's appearance.
1044 the buffer where the text got inserted.
1047 text that is sent.  Only changing the sent text's appearance on the
1109     (define-key map "\C-c\C-r" 'erc-remove-text-properties-region)
1116     ;; destroys face properties.
1132 ;; Now colors are a bit nicer, at least to my eyes.
1225     \"This mode replaces incoming text according to `erc-replace-alist'.\"
1288 channel-buffers it may not work at all, as it uses the LOCAL
1779   "Used to keep track of how many times an attempt at changing nick is made.")
1819     (const :tag "button: Buttonize URLs, nicknames, and other text" button)
1840     (const :tag "replace: Replace text in messages" replace)
1939     (when (get-text-property (point) 'erc-prompt)
2200 			;; contain multiple lines of text.
2244 		 (format "IRC protocol logging %s at %s -- Press ENTER to toggle logging.\n"
2270   (text-property-any 0 (length string) 'invisible t string))
2290 	      (erc-put-text-properties 0 (length string) string
2308 		;; run insertion hook, with point at restored location
2391 	 (erc-put-text-property
2424 	(erc-put-text-property 0 (length string) 'erc-parsed parsed string)
2425 	(erc-put-text-property 0 (length string) 'rear-sticky t string)
2429   "Return non-nil if the erc-parsed text-property at POSITION is in LIST.
2431 This function relies on the erc-parsed text-property being
2521 need this when pasting multiple lines of text."
2919 				       (erc-string-no-properties ,nick)
2929       (run-at-time 20 nil `(lambda ()
2995 A list of valid mode strings for Freenode may be found at
3083 All the text given as argument is sent to the sever as unmodified,
3185       (run-at-time 4 nil
3200   "Disconnect from all servers at once with the same quit REASON."
3499 Converts all the IRC text properties in each line of the region
3501 resulting text may be used directly as a script to generate this
3502 text again."
3519   "Display PROMPT in BUFFER at position POS.
3524 If POS is nil, PROMPT will be displayed at `point'.
3541 	;; Do not extend the text properties when typing at the end
3550 	(erc-put-text-property 0 (1- (length prompt))
3557     ;; Now we are back at the old position.  If the prompt was
3572   (let ((minibuffer-allow-text-properties t)
3593 If `point' is at the beginning of a channel name, use that as default."
3596     (let ((chnl (if (looking-at "\\([&#+!][^ \n]+\\)") (match-string 1) ""))
3663 This places `point' just after the prompt, or at the beginning of the line."
3666   (when (get-text-property (point) 'erc-prompt)
3772   "If non-nil create query buffer on receiving any PRIVMSG at all.
3780   "If non-nil, format text from others in a query buffer like in a channel,
3797   "Remove duplicate text from quit REASON.
3908     ;; add text properties to text before the nick, the nick and after the nick
3909     (erc-put-text-property 0 (length mark-s) 'face msg-face str)
3910     (erc-put-text-property (length mark-s) (+ (length mark-s) (length nick))
3912     (erc-put-text-property (+ (length mark-s) (length nick)) (length str)
4002 returns non-nil iff there is at least one buffer for which the
4017 at least one buffer for which the sender is a member or the
4032 returns non-nil iff there is at least one buffer for which the
4752 	  ;; nick modes - ignored at this point
4799     (erc-put-text-property 0 (length erc-notice-prefix)
4803     (erc-put-text-property 0 (length s) 'face 'erc-notice-face s)
4815   (erc-put-text-property 0 (length s) 'face 'erc-error-face s)
4818 (defun erc-put-text-property (start end property value &optional object)
4819   "Set text-property for an object (usually a string).
4821 PROPERTY is the text-property set, usually the symbol `face'.
4822 VALUE is the value for the text-property, usually a face symbol such as
4829   (put-text-property start end property value object))
4860 (defun erc-put-text-properties (start end properties
4862   "Set text-properties for OBJECT.
4870 			     properties)))
4872 	     (erc-put-text-property start end prop value object))
4873 	   properties value-list))
4878   "Return the value of `point' at the beginning of the input line.
4887   "Return the value of `point' at the end of the input line."
4985 	(erc-put-text-property beg (point)
4997   "Display LINE as a message of the user to the current target at the
5004 	(erc-put-text-property beg (point)
5248 RET lets you type more than one mode at a time.
5285   "Insert the line \"/mode <current target> \" at `point'."
5299 (defun erc-remove-text-properties-region (start end &optional object)
5304       (set-text-properties start end nil object))))
5442     (erc-put-text-property 0 (length sp)
5452 		(erc-put-text-property 0 (length line)
5460   "Perform user authentication at the IRC server."
5479 ;; connection properties' heuristics
5660 (defun erc-nick-at-point ()
5661   "Give information about the nickname at `point'.
5668   (let* ((word (word-at-point))
5748   "Determine what method to use when colorizing the header line text.
5750 If nil, don't colorize the header text.
5810 	   (concat (erc-string-no-properties (erc-default-target))
5937 If optional argument HERE is non-nil, insert version number at point."
5949 If optional argument HERE is non-nil, insert version number at point."
6120    (s391   . "The time at %s is %t")
6126    (s412   . "No text to send")
6258   "Find the next occurrence of the `erc-parsed' text property."
6259   (text-property-not-all (point-min) (point-max) 'erc-parsed nil))
6261 (defun erc-restore-text-properties ()
6264     (put-text-property
6270   (get-text-property point 'erc-parsed))