Lines Matching +defs:minor +defs:mode +defs:alist
1 ;;; supercite.el --- minor mode for citing mail and news replies
143 (defcustom sc-cite-frame-alist '()
158 (put 'sc-cite-frame-alist 'risky-local-variable t)
160 (defcustom sc-uncite-frame-alist '()
162 See the variable `sc-cite-frame-alist' for details."
167 (put 'sc-uncite-frame-alist 'risky-local-variable t)
169 (defcustom sc-recite-frame-alist '()
171 See the variable `sc-cite-frame-alist' for details."
176 (put 'sc-recite-frame-alist 'risky-local-variable t)
296 (defcustom sc-electric-mode-hook nil
297 "*Hook for `sc-electric-mode' electric references mode."
332 (defcustom sc-name-filter-alist
380 associated with a key in an attribution alist. Supercite tries to
381 pick a \"preferred\" attribution by matching the attribution alist
400 in the attribution alist:
418 "*An alist for selecting preferred attribution based on mail headers.
491 Electric reference mode will cycle through this list of functions."
540 (defvar sc-mode-map-prefix "\C-c\C-p"
565 (defvar sc-mode-map
574 (define-key map "\C-p" 'sc-raw-mode-toggle)
582 "Keymap for Supercite quasi-mode.")
584 (defvar sc-electric-mode-map
595 (define-key map "?" 'describe-mode)
596 (define-key map "\C-h" 'describe-mode)
597 (define-key map [f1] 'describe-mode)
598 (define-key map [help] 'describe-mode)
600 "Keymap for `sc-electric-mode' electric references mode.")
621 (defun sc-ask (alist)
631 (mapconcat (function (lambda (elt) (car elt))) alist ", ")
635 (lambda (elt) (char-to-string (cdr elt)))) alist "/")
663 ((setq elt (rassq char alist))
681 (defun sc-scan-info-alist (alist)
682 "Find a match in the info alist that matches a regexp in ALIST."
685 (while alist
686 (let* ((elem (car alist))
698 alist nil)
702 (setq alist (cdr alist))
703 )) ;end of alist loop
735 "Insert a key and value into `sc-mail-info' alist.
836 (let ((info (copy-alist sc-mail-info))
837 (attribs (copy-alist sc-attributions)))
864 (let* ((alist '(("view" . ?v) ("modify" . ?m) ("add" . ?a) ("delete" . ?d)))
865 (action (if (not arg) ?v (sc-ask alist)))
870 (concat (car (rassq action alist))
1044 "Filter out noise in NAMELIST according to `sc-name-filter-alist'."
1066 sc-name-filter-alist)
1176 ;; element is "sc-consult", then we have to do the alist
1183 ;; header key alist. we do this until we find a match in
1186 (let ((attrib (sc-scan-info-alist sc-attrib-selection-list)))
1218 ;; 6. first non-empty attribution in alist
1241 (let* ((query-alist (mapcar (function (lambda (entry)
1262 query-alist nil nil
1284 ;; set up mail info alist
1308 ;; extra to make gin-mode understand supercited lines. Even this
1462 (let ((frame (sc-scan-info-alist sc-cite-frame-alist))
1477 (let ((frame (sc-scan-info-alist sc-uncite-frame-alist)))
1491 (let ((frame (sc-scan-info-alist sc-recite-frame-alist)))
1529 (and (eq major-mode 'mh-letter-mode)
1625 "Supercite electric reference mode's buffer name.")
1659 (defun sc-electric-mode (&optional arg)
1662 \n\\{sc-electric-mode-map}
1664 `sc-electric-mode' is not intended to be run interactively, but rather
1685 (mode-name "SC Electric Refs")
1686 (major-mode 'sc-electric-mode))
1687 (use-local-map sc-electric-mode-map)
1689 (run-mode-hooks 'sc-electric-mode-hook)
1698 ;; functions for electric reference mode
1767 "Exit from electric reference mode without inserting reference."
1773 "Exit from electric reference mode and insert selected reference."
1783 With just `\\[universal-argument]', electric reference insert mode is
1785 `sc-electric-mode' for more information."
1788 (sc-electric-mode)
1794 (sc-electric-mode preference)
1803 (defun sc-raw-mode-toggle ()
1809 (force-mode-line-update))
1846 (help-mode))
1896 (define-minor-mode sc-minor-mode
1897 "Supercite minor mode."
1902 :keymap `((,sc-mode-map-prefix . ,sc-mode-map)))
1931 (sc-minor-mode 1)
1972 (sc-electric-mode sc-eref-style)
2071 'sc-name-filter-alist