Lines Matching +defs:url +defs:set +defs:target
197 %t is the buffer target, a channel or a user.
202 :set 'rcirc-set-changed
242 "Non-nil means messages without a channel target will go to the server buffer."
260 If PATTERN is a string, it is used to match a target.
262 target, and the cdr part is used to match a server.
296 ;; each process has an alist of (target . buffer) pairs
309 (defvar rcirc-target nil
385 ;; set up process
386 (set-process-coding-system process 'raw-text 'raw-text)
388 (set-process-buffer process (current-buffer))
390 (set-process-sentinel process 'rcirc-sentinel)
391 (set-process-filter process 'rcirc-filter)
467 (set-buffer (get-buffer-create rcirc-debug-buffer))
486 (rcirc-print process "rcirc.el" "ERROR" rcirc-target
490 (process-status process)) (not rcirc-target))
615 (defun rcirc-send-message (process target message &optional noticep)
629 (rcirc-get-buffer-create process target)
630 (rcirc-print process (rcirc-nick process) response target text)
631 (rcirc-send-string process (concat response " " target " :" text))
632 (when more (rcirc-send-message process target more noticep))))
678 rcirc-target))))))
681 (rcirc-put-nick-channel (rcirc-buffer-process) completion rcirc-target)
691 (defun set-rcirc-decode-coding-system (coding-system)
696 (defun set-rcirc-encode-coding-system (coding-system)
708 (define-key rcirc-mode-map (kbd "C-c C-b") 'rcirc-browse-url)
728 (defvar rcirc-browse-url-map (make-sparse-keymap)
731 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point)
732 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse)
742 (defun rcirc-mode (process target)
755 (make-local-variable 'rcirc-target)
756 (setq rcirc-target target)
772 (when (and (string-match chan (or target ""))
780 (set-marker rcirc-prompt-start-marker (point-max))
783 (set-marker rcirc-prompt-end-marker (point-max))
788 (set-marker overlay-arrow-position nil)
796 (when target ; skip server buffer
799 (setq rcirc-buffer-alist (cons (cons target buffer)
824 (cons "%t" (or rcirc-target ""))))
830 (set-marker rcirc-prompt-start-marker start)
839 (defun rcirc-set-changed (option value)
841 (set-default option value)
847 (defun rcirc-channel-p (target)
849 (and target
850 (not (zerop (length target)))
851 (or (eq (aref target 0) ?#)
852 (eq (aref target 0) ?&))))
872 (if (rcirc-channel-p rcirc-target)
874 (concat "PART " rcirc-target " :" reason))
875 (when rcirc-target
878 rcirc-target))))))
880 (defun rcirc-generate-new-buffer-name (process target)
883 (if target
884 (concat target "@" (process-name process))
887 (defun rcirc-get-buffer (process target &optional server)
893 (if (null target)
895 (let ((buffer (cdr (assoc-string target rcirc-buffer-alist t))))
898 (defun rcirc-get-buffer-create (process target)
901 (let ((buffer (rcirc-get-buffer process target)))
904 (when (not rcirc-target)
905 (setq rcirc-target target))
910 (rcirc-generate-new-buffer-name process target))))
912 (rcirc-mode process target))
913 (rcirc-put-nick-channel process (rcirc-nick process) target)
917 "Send input to target associated with the current buffer."
956 (if (not rcirc-target)
957 (message "Not joined (no target)")
959 (rcirc-send-message (rcirc-buffer-process) rcirc-target line)
973 "ACTION" rcirc-target args)
975 "COMMAND" rcirc-target line))
976 (set-marker rcirc-prompt-end-marker (point))
978 (funcall fun args process rcirc-target)
1031 (set-buffer rcirc-parent-buffer)
1035 (set-window-configuration rcirc-window-configuration)
1042 (set-window-configuration rcirc-window-configuration))
1075 %t The target
1087 (defun rcirc-format-response-string (process sender response target text)
1116 (and target (concat "," target)))))
1143 ;; %t -- target
1144 (rcirc-facify (or rcirc-target "") face))
1174 (defun rcirc-target-buffer (process sender response target text)
1176 (assert (not (bufferp target)))
1178 (cond ((not target)
1180 ((not (rcirc-channel-p target))
1184 target
1186 (rcirc-get-buffer process target t)))
1187 ((or (rcirc-get-buffer process target)
1195 (defun rcirc-print (process sender response target text &optional activity)
1205 (let* ((buffer (rcirc-target-buffer process sender response target text))
1218 (set-marker overlay-arrow-position
1221 ;; temporarily set the marker insertion-type because
1224 (set-marker-insertion-type rcirc-prompt-start-marker t)
1225 (set-marker-insertion-type rcirc-prompt-end-marker t)
1232 (set-marker-insertion-type rcirc-prompt-start-marker nil)
1233 (set-marker-insertion-type rcirc-prompt-end-marker nil)
1236 (set-marker text-start
1258 ;; set inserted text to be read-only
1273 ;; set the window point for buffers show in windows
1280 (set-window-point w (point-max))))
1312 (when (not (rcirc-channel-p rcirc-target))
1317 process sender response target text)))))
1382 (defun rcirc-channel-nicks (process target)
1384 (when target
1385 (if (rcirc-channel-p target)
1390 (let ((record (assoc-string target v t)))
1396 (list target))))
1612 (set-marker overlay-arrow-position nil)))))
1688 (,@argument &optional process target)
1690 "\nby `rcirc-buffer-process' and `rcirc-target' will be used.")
1693 (target (or target rcirc-target)))
1701 (setq target (completing-read "Message nick: "
1704 (when (> (length target) 0)
1705 (setq message (read-string (format "Message %s: " target)))
1707 (rcirc-send-message process target message))))
1710 (setq target (match-string 1 message)
1712 (rcirc-send-message process target message))))
1736 (let ((channel (if (> (length channel) 0) channel target)))
1760 (setq channel (read-string "List names in channel: " target))))
1763 target)))
1772 (rcirc-send-string process (concat "TOPIC " target
1810 rcirc-target))
1815 (rcirc-send-string process (concat "KICK " target " " argstring))))
1817 (defun rcirc-cmd-ctcp (args &optional process target)
1819 (let ((target (match-string 1 args))
1823 target (upcase request))))
1827 (defun rcirc-cmd-me (args &optional process target)
1829 target args)))
1831 (defun rcirc-add-or-remove (set &optional elt)
1833 (if (member-ignore-case elt set)
1834 (delete elt set)
1835 (cons elt set))
1836 set))
1845 (rcirc-print process nil "IGNORE" target
1857 (rcirc-print process nil "BRIGHT" target
1864 (rcirc-print process nil "DIM" target
1873 (rcirc-print process nil "KEYWORD" target
1896 (defvar rcirc-url-regexp
1916 (defun rcirc-browse-url (&optional arg)
1922 (browse-url (completing-read "rcirc browse-url: "
1926 (defun rcirc-browse-url-at-point (point)
1927 "Send URL at point to `browse-url'."
1931 (browse-url (buffer-substring-no-properties beg end))))
1933 (defun rcirc-browse-url-at-mouse (event)
1934 "Send URL at mouse click to `browse-url'."
1938 (rcirc-browse-url-at-point (posn-point position)))))
2003 (while (re-search-forward rcirc-url-regexp nil t)
2006 (rcirc-add-face start end 'rcirc-url)
2008 'keymap rcirc-browse-url-map))
2009 ;; record the url
2010 (let ((url (buffer-substring-no-properties start end)))
2012 (push url rcirc-urls))))))
2015 (let* ((target (with-current-buffer channel-buffer (or rcirc-target "")))
2017 (when (not (string-match keyword target))
2043 ;; set the real server name
2054 (let ((target (if (rcirc-channel-p (car args))
2059 (rcirc-handler-CTCP process target sender (match-string 1 message))
2060 (rcirc-print process sender "PRIVMSG" target message t))
2062 (if (member target (rcirc-nick-channels process sender))
2063 (rcirc-put-nick-channel process sender target))))
2066 (let ((target (car args))
2069 (rcirc-handler-CTCP-response process target sender
2072 (cond ((rcirc-channel-p target)
2073 target)
2112 (setq rcirc-target nil))))))
2159 (dolist (target channels)
2160 (rcirc-print process sender "NICK" target new-nick))
2166 (setq rcirc-target new-nick)
2232 (let ((target (car args))
2235 (if (string= target (rcirc-nick process))
2237 target)
2316 (defun rcirc-handler-CTCP (process target sender text)
2322 (rcirc-print process sender "ERROR" target
2325 (funcall handler process target sender args)
2327 (rcirc-print process sender "CTCP" target
2330 (defun rcirc-handler-ctcp-VERSION (process target sender args)
2336 (defun rcirc-handler-ctcp-ACTION (process target sender args)
2337 (rcirc-print process sender "ACTION" target args t))
2339 (defun rcirc-handler-ctcp-TIME (process target sender args)
2344 (defun rcirc-handler-CTCP-response (process target sender message)
2468 (defface rcirc-url