Lines Matching +defs:minor +defs:mode +defs:alist
85 (defcustom rcirc-startup-channels-alist '(("^irc.freenode.net$" "#rcirc"))
88 :type '(alist :key-type string :value-type (repeat string))
169 :type '(alist :key-type (string :tag "Server")
256 (defcustom rcirc-coding-system-alist nil
268 :type '(alist :key-type (choice (string :tag "Channel Regexp")
276 (defcustom rcirc-multiline-major-mode 'fundamental-mode
277 "Major-mode function to use in multiline edit buffers."
289 (let ((table (make-syntax-table text-mode-syntax-table)))
296 ;; each process has an alist of (target . buffer) pairs
297 (defvar rcirc-buffer-alist nil)
389 (rcirc-mode process nil)
398 (make-local-variable 'rcirc-buffer-alist)
399 (setq rcirc-buffer-alist nil)
484 (dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
503 (when (eq major-mode 'rcirc-mode)
568 "Responses that don't trigger activity in the mode-line indicator.")
701 (defvar rcirc-mode-map (make-sparse-keymap)
702 "Keymap for rcirc mode.")
704 (define-key rcirc-mode-map (kbd "RET") 'rcirc-send-input)
705 (define-key rcirc-mode-map (kbd "M-p") 'rcirc-insert-prev-input)
706 (define-key rcirc-mode-map (kbd "M-n") 'rcirc-insert-next-input)
707 (define-key rcirc-mode-map (kbd "TAB") 'rcirc-complete-nick)
708 (define-key rcirc-mode-map (kbd "C-c C-b") 'rcirc-browse-url)
709 (define-key rcirc-mode-map (kbd "C-c C-c") 'rcirc-edit-multiline)
710 (define-key rcirc-mode-map (kbd "C-c C-j") 'rcirc-cmd-join)
711 (define-key rcirc-mode-map (kbd "C-c C-k") 'rcirc-cmd-kick)
712 (define-key rcirc-mode-map (kbd "C-c C-l") 'rcirc-toggle-low-priority)
713 (define-key rcirc-mode-map (kbd "C-c C-d") 'rcirc-cmd-mode)
714 (define-key rcirc-mode-map (kbd "C-c C-m") 'rcirc-cmd-msg)
715 (define-key rcirc-mode-map (kbd "C-c C-r") 'rcirc-cmd-nick) ; rename
716 (define-key rcirc-mode-map (kbd "C-c C-o") 'rcirc-cmd-oper)
717 (define-key rcirc-mode-map (kbd "C-c C-p") 'rcirc-cmd-part)
718 (define-key rcirc-mode-map (kbd "C-c C-q") 'rcirc-cmd-query)
719 (define-key rcirc-mode-map (kbd "C-c C-t") 'rcirc-cmd-topic)
720 (define-key rcirc-mode-map (kbd "C-c C-n") 'rcirc-cmd-names)
721 (define-key rcirc-mode-map (kbd "C-c C-w") 'rcirc-cmd-whois)
722 (define-key rcirc-mode-map (kbd "C-c C-x") 'rcirc-cmd-quit)
723 (define-key rcirc-mode-map (kbd "C-c TAB") ; C-i
725 (define-key rcirc-mode-map (kbd "C-c C-s") 'rcirc-switch-to-server-buffer)
726 (define-key rcirc-mode-map (kbd "C-c C-a") 'rcirc-jump-to-first-unread-line)
729 "Keymap used for browsing URLs in `rcirc-mode'.")
737 (defvar rcirc-mode-hook nil
742 (defun rcirc-mode (process target)
743 "Major mode for IRC channel buffers.
745 \\{rcirc-mode-map}"
747 (use-local-map rcirc-mode-map)
748 (setq mode-name "rcirc")
749 (setq major-mode 'rcirc-mode)
769 (dolist (i rcirc-coding-system-alist)
790 ;; if the user changes the major mode or kills the buffer, there is
792 (add-hook 'change-major-mode-hook 'rcirc-change-major-mode-hook nil t)
799 (setq rcirc-buffer-alist (cons (cons target buffer)
800 rcirc-buffer-alist))))
803 (run-hooks 'rcirc-mode-hook))
815 (mapcar 'cdr rcirc-buffer-alist))))
856 (when (eq major-mode 'rcirc-mode)
859 (defun rcirc-change-major-mode-hook ()
860 "Part the channel when changing the major-mode."
861 (rcirc-clean-up-buffer "Changed major mode"))
869 (setq rcirc-buffer-alist
870 (rassq-delete-all buffer rcirc-buffer-alist)))
895 (let ((buffer (cdr (assoc-string target rcirc-buffer-alist t))))
912 (rcirc-mode process target))
994 (funcall rcirc-multiline-major-mode)
995 (rcirc-multiline-minor-mode 1)
1001 (defvar rcirc-multiline-minor-mode-map (make-sparse-keymap)
1002 "Keymap for multiline mode in rcirc.")
1003 (define-key rcirc-multiline-minor-mode-map
1004 (kbd "C-c C-c") 'rcirc-multiline-minor-submit)
1005 (define-key rcirc-multiline-minor-mode-map
1006 (kbd "C-x C-s") 'rcirc-multiline-minor-submit)
1007 (define-key rcirc-multiline-minor-mode-map
1008 (kbd "C-c C-k") 'rcirc-multiline-minor-cancel)
1009 (define-key rcirc-multiline-minor-mode-map
1010 (kbd "ESC ESC ESC") 'rcirc-multiline-minor-cancel)
1012 (define-minor-mode rcirc-multiline-minor-mode
1013 "Minor mode for editing multiple lines in rcirc."
1016 :keymap rcirc-multiline-minor-mode-map
1023 (defun rcirc-multiline-minor-submit ()
1038 (defun rcirc-multiline-minor-cancel ()
1051 (and (eq major-mode 'rcirc-mode)
1063 "An alist of formats used for printing responses.
1082 :type '(alist :key-type (choice (string :tag "Type")
1291 (when (eq major-mode 'rcirc-mode)
1322 (dolist (i rcirc-startup-channels-alist)
1409 (defvar rcirc-track-minor-mode-map (make-sparse-keymap)
1410 "Keymap for rcirc track minor mode.")
1412 (define-key rcirc-track-minor-mode-map (kbd "C-c `") 'rcirc-next-active-buffer)
1413 (define-key rcirc-track-minor-mode-map (kbd "C-c C-@") 'rcirc-next-active-buffer)
1414 (define-key rcirc-track-minor-mode-map (kbd "C-c C-SPC") 'rcirc-next-active-buffer)
1417 (define-minor-mode rcirc-track-minor-mode
1418 "Global minor mode for tracking activity in rcirc buffers."
1421 :keymap rcirc-track-minor-mode-map
1424 (or global-mode-string (setq global-mode-string '("")))
1425 ;; toggle the mode-line channel indicator
1426 (if rcirc-track-minor-mode
1428 (and (not (memq 'rcirc-activity-string global-mode-string))
1429 (setq global-mode-string
1430 (append global-mode-string '(rcirc-activity-string))))
1433 (setq global-mode-string
1434 (delete 'rcirc-activity-string global-mode-string))
1438 (or (assq 'rcirc-ignore-buffer-activity-flag minor-mode-alist)
1439 (setq minor-mode-alist
1440 (cons '(rcirc-ignore-buffer-activity-flag " Ignore") minor-mode-alist)))
1441 (or (assq 'rcirc-low-priority-flag minor-mode-alist)
1442 (setq minor-mode-alist
1443 (cons '(rcirc-low-priority-flag " LowPri") minor-mode-alist)))
1453 (force-mode-line-update))
1463 (force-mode-line-update))
1496 (unless (eq major-mode 'rcirc-mode)
1500 (if (eq major-mode 'rcirc-mode)
1555 "Update mode-line string."
1601 (when (eq major-mode 'rcirc-mode)
1610 (when (and (eq major-mode 'rcirc-mode)
1628 rcirc-buffer-alist))
1651 (let (alist)
1660 (part (if char (assq char alist))))
1665 (setq alist (cons (if char
1668 alist))))
1669 (setq alist (cons pair alist))))
1671 ;; recurse into cdrs of alist
1677 alist)))
1783 (defun-rcirc-command mode (args)
1784 "Set mode with ARGS."
2193 (defvar rcirc-nick-away-alist nil)
2197 (rec (assoc-string nick rcirc-nick-away-alist))
2205 (setq rcirc-nick-away-alist (cons (cons nick away-message)
2206 rcirc-nick-away-alist))))))
2460 "The face used in the mode-line when your nick is mentioned."
2465 "The face used in the mode-line when keywords are mentioned."
2480 ;; When using M-x flyspell-mode, only check words after the prompt
2481 (put 'rcirc-mode 'flyspell-mode-predicate 'rcirc-looking-at-input)