| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require cl-lib custom-declare-face company-template-field ((((background dark)) (:background "yellow" :foreground "black")) (((background light)) (:background "orange" :foreground "black"))) "Face used for editable text in template fields." :group company] 6) | |
| 16 | (defvar company-template-nav-map (byte-code "\301 \302\303\304#\210\302\305\304#\210)\207" [keymap make-sparse-keymap define-key [tab] company-template-forward-field " "] 4)) | |
| 17 | (defvar company-template-field-map (byte-code "\302 \303 \"\210\304\305\306#\210)\207" [keymap company-template-nav-map make-sparse-keymap set-keymap-parent define-key "" company-template-clear-field] 4)) | |
| 18 | (defvar company-template--buffer-templates nil nil) | |
| 19 | (make-variable-buffer-local 'company-template--buffer-templates) | |
| 20 | (defalias 'company-template-templates-at #[(pos) "\305\306 !\305\211\203 @\211\f>\203 \nB A\211\204\f *)\207" [os pos o --dolist-tail-- company-template--buffer-templates nil overlays-at] 3]) | |
| 21 | (defalias 'company-template-move-to-first #[(templ) "\301!b\210\302 \207" [templ overlay-start company-template-forward-field] 2 nil nil]) | |
| 22 | (defalias 'company-template-forward-field #[nil "`\302 \303 \210b\210\304\305 !!*\207" [next-field-start start company-template-find-next-field push-mark company-template-remove-field company-template-field-at] 3 nil nil]) | |
| 23 | #@27 Clear the field at point. | |
| 24 | (defalias 'company-template-clear-field #[nil "\302`!\211\205 \303\304\"\210\305\306\"\307 !\205 ))\207" [ovl after-clear-fn company-template-field-at company-template-remove-field t overlay-get company-template-after-clear functionp] 4 (#$ . 1800) nil]) | |
| 25 | #@309 Function that can be called after deleting a field of a c-like template. | |
| 26 | For c-like templates it is set as `after-post-fn' property on fields in | |
| 27 | `company-template-add-field'. If there is a next field, delete everything | |
| 28 | from point to it. If there is no field after point, remove preceding comma | |
| 29 | if present. | |
| 30 | (defalias 'company-template--after-clear-c-like-field #[nil "`\303 \304 !?\211\204$ W\203$ \305\306\307 \"\"\203$ |\2024 \n\2054 \310\311\312 \"\2054 \313\224|+\207" [pos next-field-start last-field-p company-template-find-next-field company-template-field-at string-match "^[ ]*,+[ ]*$" buffer-substring-no-properties looking-back ",+[ ]*" line-beginning-position 0] 6 (#$ . 2096)]) | |
| 31 | (defalias 'company-template-find-next-field #[nil "`\306!\307\310\311\312 \"\" \313\211 :\203, @\314\315\f\316\"! \244 A\211\202 \237+ \311\317\"\313 \211 \203b @\211\203Y V\203Y \nW\203Y A\211\204? \313\n.\207" [start templates minimum #1=#:--cl-var-- templ #2=#:--cl-var-- company-template-templates-at apply max mapcar overlay-end nil reverse overlay-get company-template-fields overlay-start fields pos --dolist-tail--] 6]) | |
| 32 | (defalias 'company-template-field-at #[(&optional point) "\305\206 `!\306\307\306 :\2030 @\310\n\311\"\203% \n\306\211\202& \307\2030 A\211\202 \f,\207" [point #1=#:--cl-var-- ovl #2=#:--cl-var-- #3=#:--cl-var-- overlays-at nil t overlay-get company-template-parent] 4]) | |
| 33 | (defalias 'company-template-declare-template #[(beg end) "\305 \"\306\n\307 #\210\306\n\310\311#\210\306\n\312\313#\210\n\fB\314\315\316\317\313$\210\n)\207" [beg end ov company-template-nav-map company-template--buffer-templates make-overlay overlay-put keymap priority 101 evaporate t add-hook post-command-hook company-template-post-command nil] 5]) | |
| 34 | (defalias 'company-template-remove-template #[(templ) "\302\303\304\305\"\"\210\306 \"\307!\207" [templ company-template--buffer-templates mapc company-template-remove-field overlay-get company-template-fields delq delete-overlay] 5]) | |
| 35 | #@295 Add new field to template TEMPL spanning from BEG to END. | |
| 36 | When DISPLAY is non-nil, set the respective property on the overlay. | |
| 37 | Leave point at the end of the field. | |
| 38 | AFTER-CLEAR-FN is a function that can be used to apply custom behavior | |
| 39 | after deleting a field in `company-template-remove-field'. | |
| 40 | (defalias 'company-template-add-field #[(templ beg end &optional display after-clear-fn) "\204 \306\300!\210 \307!V\203 \310\311! #\210\312\n \"\313\314\" \315\f\316\317#\210\315\f\320\321#\210 \2038 \315\f\305 #\210\315\f\322#\210\315\f\323\324#\210\203P \315\f\325#\210\315\f\326#\210\315\f\327\330#\210\f B\315\314 #*\207" [templ end beg siblings ov display cl--assertion-failed overlay-end move-overlay overlay-start make-overlay overlay-get company-template-fields overlay-put intangible t face company-template-field company-template-parent insert-in-front-hooks (company-template-insert-hook) company-template-after-clear keymap priority 101 after-clear-fn company-template-field-map] 4 (#$ . 4148)]) | |
| 41 | (defalias 'company-template-remove-field #[(ovl &optional clear) "\304!\2051 \305!\203 \203 \306!\307!|\210\310!\210\311\312\"\311\n\313\"\314 \"\315\n\313 #*\207" [ovl clear templ siblings overlayp overlay-buffer overlay-start overlay-end delete-overlay overlay-get company-template-parent company-template-fields delq overlay-put] 4]) | |
| 42 | #@48 Clean up all templates that don't contain POS. | |
| 43 | (defalias 'company-template-clean-up #[(&optional pos) "\305\206 `!\n\306\211 \205% \f@\211 >\204 \307 !\210\fA\211\204 \306+\207" [pos local-ovs company-template--buffer-templates templ --dolist-tail-- overlays-at nil company-template-remove-template] 3 (#$ . 5523)]) | |
| 44 | #@49 Called when a snippet input prompt is modified. | |
| 45 | (defalias 'company-template-insert-hook #[(ovl after-p &rest _ignore) "?\205 \302 \303\"\207" [after-p ovl company-template-remove-field t] 3 (#$ . 5853)]) | |
| 46 | (defalias 'company-template-post-command #[nil "\301 \210?\205 \302\303\304\305#\207" [company-template--buffer-templates company-template-clean-up remove-hook post-command-hook company-template-post-command t] 4]) | |
| 47 | (defalias 'company-template-c-like-templatify #[(call) "\306 ` GZ\307\n\"\310\211 \311 p \312\216\313\314\311 !!\210\315\316\317\"\210\315\320\321\"\210\322\321\n\323#\203F \306 \324u\210`|\210\325 \210\324u\210\306 \322\326\n\323#\203b \306 !\324u\210\325 \210\310u\210\327 !\"\210)\330\331\332 \"\203p \324\224\324\225|\210\f\203| \fb\210\327 \"\210+\333 \334\"\203\212 \335 !\202\220 \336 !\210b-\207" [end call beg templ paren-open paren-close point-marker company-template-declare-template nil syntax-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table make-syntax-table modify-syntax-entry 60 "(" 62 ")" search-backward t 1 backward-sexp ">" company-template--c-like-args looking-back "\\((\\*)\\)(" line-beginning-position overlay-get company-template-fields company-template-move-to-first company-template-remove-template #1# #2# angle-close] 5]) | |
| 48 | (defalias 'company-template--c-like-args #[(templ end) "`\303\304 \305#\205& \306`\"@\307U\203 \310\n\311\225\312\313%\210\314\312w\210`\202 )\207" [last-pos end templ re-search-forward "\\([^,]+\\),?" move parse-partial-sexp 0 company-template-add-field 1 nil company-template--after-clear-c-like-field " "] 6]) | |
| 49 | (defalias 'company-template-objc-templatify #[(selector) "\305 \306` G\307#\310\n\"\311 \212\nb\210\3122X \313\314\315#\205W \316\317!\2031 \320 `\307\225#\210\202I \320 `\321\322\f\"c\210`#\210`W\203F \323c\210\fT`Y\203 \324\312\315\"\210\202 0\210)\325 !,\207" [end selector beg templ cnt point-marker - 1 company-template-declare-template 0 stop search-forward ":" t looking-at "\\(([^)]*)\\) ?" company-template-add-field format "arg%d" " " throw company-template-move-to-first] 6]) | |
| 50 | (provide 'company-template) | |
