Lines Matching +defs:header +defs:text
96 (defgroup erc-mode-line-and-header nil
97 "Displaying information in the mode-line and header"
606 "The place where insertion of new text in erc buffers should happen.")
614 "Return a copy of STRING will all text-properties removed."
616 (set-text-properties 0 (length newstring) nil newstring)
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.
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
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)
1147 (defface erc-header-line
1149 "ERC face used for the header line.
1151 This will only be used if `erc-header-line-face-method' is non-nil."
1225 \"This mode replaces incoming text according to `erc-replace-alist'.\"
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.
2270 (text-property-any 0 (length string) 'invisible t string))
2290 (erc-put-text-properties 0 (length string) string
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."
3083 All the text given as argument is sent to the sever as unmodified,
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."
3541 ;; Do not extend the text properties when typing at the end
3550 (erc-put-text-property 0 (1- (length prompt))
3572 (let ((minibuffer-allow-text-properties t)
3666 (when (get-text-property (point) 'erc-prompt)
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)
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.
4872 (erc-put-text-property start end prop value object))
4985 (erc-put-text-property beg (point)
5004 (erc-put-text-property beg (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)
5722 :group 'erc-mode-line-and-header
5725 (defcustom erc-header-line-format "%n on %t (%m,%l) %o"
5726 "A string to be formatted and shown in the header-line in `erc-mode'.
5729 Set this to nil if you do not want the header line to be
5733 :group 'erc-mode-line-and-header
5741 (defcustom erc-header-line-uses-help-echo-p t
5742 "Show the contents of the header line in the echo area or as a tooltip
5743 when you move point into the header line."
5744 :group 'erc-mode-line-and-header
5747 (defcustom erc-header-line-face-method nil
5748 "Determine what method to use when colorizing the header line text.
5750 If nil, don't colorize the header text.
5752 Otherwise, use the `erc-header-line' face."
5753 :group 'erc-mode-line-and-header
5755 (const :tag "Use the erc-header-line face" t)
5759 "Show the the channel key in the header line."
5771 :group 'erc-mode-line-and-header
5779 :group 'erc-mode-line-and-header
5866 (face (cond ((eq erc-header-line-face-method nil)
5868 ((functionp erc-header-line-face-method)
5869 (funcall erc-header-line-face-method))
5871 'erc-header-line))))
5880 (when (boundp 'header-line-format)
5881 (let ((header (if erc-header-line-format
5882 (format-spec erc-header-line-format spec)
5884 (cond ((null header)
5885 (setq header-line-format nil))
5886 (erc-header-line-uses-help-echo-p
5888 (insert header)
5891 (setq header-line-format
5896 (erc-propertize header 'help-echo help-echo
5898 (erc-propertize header 'help-echo help-echo))))))
5899 (t (setq header-line-format
5901 (erc-propertize header 'face face)
5902 header)))))))
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))