;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 's) (defvar yaml-tomato--spaces-per-tab 1) #@31 Get the yaml tag from STRING. (defalias 'yaml-tomato--get-yaml-key #[(string) "\301\302\303!\"@\207" [string s-slice-at ":" s-trim] 4 (#$ . 139)]) #@33 Get the tags path under cursor. (defalias 'yaml-tomato--current-path #[nil "\306\307\310\311 \212o\2048\312\313\314\"\306\210\n !\203/ \211\235\203*\210\202. B)  Z)\202\n),\207" [path get-key search-previous white-spaces current-line #1=#:x nil #[nil "\300\301\302\303\304\"!!\207" [yaml-tomato--get-yaml-key s-trim thing-at-point line t] 5] #[(spaces) "\301\302\303\304\305\"\306#\307\310\307$\207" [spaces re-search-backward s-concat "^" s-repeat " " "[a-zA-Z(]" nil t] 6] current-indentation thing-at-point line t yaml-tomato--spaces-per-tab] 4 (#$ . 293)]) #@43 Show current yaml path in message buffer. (defalias 'yaml-tomato-show-current-path #[nil "\300\301\302\303 \"!\207" [message s-join "." yaml-tomato--current-path] 4 (#$ . 881) nil]) #@35 Copy current path to 'kill-ring'. (defalias 'yaml-tomato-copy #[nil "\300\301\302\303 \"!\207" [kill-new s-join "." yaml-tomato--current-path] 4 (#$ . 1069) nil]) (provide 'yaml-tomato)