;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\317&\207" [require cl-lib custom-declare-variable haskell-complete-module-preferred funcall function #[0 "\300\207" [nil] 1] "Override ordering of module results by specifying preferred modules." :group haskell :type (repeat string) haskell-complete-module-max-display #[0 "\300\207" [10] 1] "Maximum items to display in minibuffer." number] 8) #@80 Interactively auto-complete from a list of candidates. (fn PROMPT CANDIDATES) (defalias 'haskell-complete-module-read #[514 "\301\302\301\303!\210\304\305\"\262\211\204\363\306\307\310\311\312\313#\311\312\314#\315\316\317\320\f\301\211:\203_@\262X\203_T\262V\203E\321\202T\322U\203S\311\312\323#\202TB\262A\262\202(\211\237\266\203\262\324#\325\260!!!\211\326\230\203z\327 \266\202 \211\330\230\203\234\203\214\211A\262\242\262\302\230\204\357\320\331O\262\210\202 \211\332\230\203\255@\206\250\266\202\202 \211\333\230\203\303\334\335!\336!\"\262\210\202 \211\337\230\203\327\334A@C\"\262\210\202 \340\341\"\203\357B\262P\262\342\"\262\210\202 \207" [haskell-complete-module-max-display nil "" delete-dups sort #[514 "\235\235\203\211\204\301\207\211\203\204\302\207\231\207" [haskell-complete-module-preferred t nil] 6 "\n\n(fn A B)"] key-description vector read-key propertize face minibuffer-prompt font-lock-type-face "{" mapconcat identity 0 "..." 1 ido-first-match-face " | " "}" "C-g" keyboard-quit "DEL" -1 "RET" "" append last butlast "" string-match "[A-Za-z0-9_'.]+" haskell-complete-module] 21 (#$ . 545)]) #@63 Filter the CANDIDATES using PATTERN. (fn PATTERN CANDIDATES) (defalias 'haskell-complete-module #[514 "\301\211\302\211:\203!@\262\303\"\203B\262A\262\202\211\237\266\203)\207" [case-fold-search t nil haskell-complete-module-match] 8 (#$ . 1781)]) #@48 Match PATTERN against TEXT. (fn PATTERN TEXT) (defalias 'haskell-complete-module-match #[514 "\300\301!\"\207" [string-match haskell-complete-module-regexp] 5 (#$ . 2052)]) #@118 Make a regular expression for the given module pattern. Example: "c.m.s" -> "^c[^.]*\.m[^.]*\.s[^.]*" (fn PATTERN) (defalias 'haskell-complete-module-regexp #[257 "\300\301\302\303\304#\"\305\306\307\303#P\207" [mapcar haskell-complete-module-component split-string "\\." t "^" mapconcat identity] 7 (#$ . 2235)]) #@101 Make a regular expression for the given component. Example: "co" -> "c[^.]*o[^.]*" (fn COMPONENT) (defalias 'haskell-complete-module-component #[257 "\300\301\302#\207" [replace-regexp-in-string "\\(.\\)" "\\1[^.]*"] 5 (#$ . 2560)]) (provide 'haskell-complete-module)