;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [require treesit custom-declare-variable toml-ts-mode-indent-offset funcall function #[0 "\300\207" [2] 1 ""] "Number of spaces for each indentation step in `toml-ts-mode'." :version "29.1" :type integer :safe integerp :group toml] 12)#@34 Syntax table for `toml-ts-mode'. (defvar toml-ts-mode--syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\315#\210\207" [make-syntax-table modify-syntax-entry 95 "_" 92 "\\" 61 "." 39 "\"" 35 "<" 10 "> b" 13] 5) (#$ . 410)) (defvar toml-ts-mode--indent-rules '((toml ((node-is "]") parent-bol 0) ((parent-is "string") parent-bol toml-ts-mode-indent-offset) ((parent-is "array") parent-bol toml-ts-mode-indent-offset))))#@30 Font-lock settings for TOML. (defvar toml-ts-mode--font-lock-settings (treesit-font-lock-rules :language 'toml :feature 'comment '((comment) @font-lock-comment-face) :language 'toml :feature 'constant '((boolean) @font-lock-constant-face) :language 'toml :feature 'delimiter '((["="]) @font-lock-delimiter-face) :language 'toml :feature 'number '([(integer) (float) (local_date) (local_date_time) (local_time)] @font-lock-number-face) :language 'toml :feature 'string '((string) @font-lock-string-face) :language 'toml :feature 'escape-sequence :override t '((escape_sequence) @font-lock-escape-face) :language 'toml :feature 'pair :override t '((bare_key) @font-lock-property-use-face (quoted_key) @font-lock-property-use-face (table ("[" @font-lock-bracket-face (_) @font-lock-type-face "]" @font-lock-bracket-face)) (table_array_element ("[[" @font-lock-bracket-face (_) @font-lock-type-face "]]" @font-lock-bracket-face)) (table (quoted_key) @font-lock-type-face) (table (dotted_key (quoted_key)) @font-lock-type-face)) :language 'toml :feature 'error :override t '((ERROR) @font-lock-warning-face)) (#$ . 932))#@106 Return the defun name of NODE. Return nil if there is no name or if NODE is not a defun node. (fn NODE) (defalias 'toml-ts-mode--defun-name #[257 "\300!\211\301\235\205\302\303\304\"\305\"\206\306\207" [treesit-node-type ("table_array_element" "table") treesit-node-text treesit-node-child 1 t "Root table"] 6 (#$ . 2054)]) (defvar toml-ts-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [toml-ts-mode-hook variable-documentation put "Hook run after entering TOML mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp toml-ts-mode-map definition-name toml-ts-mode] 4) (defvar toml-ts-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\300!\204.\303\300\307\310#\210\311\300\306\300!\203&\312\202,\313\300\312\"\210\"\210\300\302N\204<\303\300\302\304\314!#\210\303\310\315\316#\210\303\310\317\320#\207" [toml-ts-mode-abbrev-table toml-ts-mode-map variable-documentation put purecopy "Keymap for `toml-ts-mode'." boundp definition-name toml-ts-mode defvar-1 nil define-abbrev-table "Abbrev table for `toml-ts-mode'." derived-mode-parent text-mode custom-mode-group toml-mode] 5)#@246 Major mode for editing TOML, powered by tree-sitter. In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `toml-ts-mode-hook', as the final or penultimate step during initialization. \{toml-ts-mode-map} (defalias 'toml-ts-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f\321\"\204;\f =\204;\322\f\321 C#\210\323 !\210\324)!\210\f\325\326!\203\215\327\326!\210\306\330!\210\331\306\332!\210\333\306\334!\210*\306\335!\210\336\306\337!\210\340\306\341!\210+!\306\342!\210\343\"\306\344!\210\345$\346 \210)\347\350!\207" [delay-mode-hooks major-mode mode-name toml-ts-mode-map toml-ts-mode-abbrev-table local-abbrev-table make-local-variable t text-mode toml-ts-mode "TOML" mode-class put keymap-parent set-keymap-parent current-local-map abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table treesit-ready-p toml treesit-parser-create comment-start "# " comment-end "" treesit-simple-indent-rules treesit-defun-type-regexp "\\(?:table\\(?:_array_element\\)?\\)" treesit-defun-name-function toml-ts-mode--defun-name treesit-font-lock-settings treesit-font-lock-feature-list ((comment) (constant number pair string) (escape-sequence) (delimiter error)) treesit-simple-imenu-settings (("Header" "\\`table\\'" nil nil) ("Array" "\\`table_array_element\\'" nil nil)) treesit-major-mode-setup run-mode-hooks toml-ts-mode-hook toml-ts-mode--syntax-table toml-ts-mode--indent-rules toml-ts-mode--font-lock-settings] 5 (#$ . 3338) nil]) (byte-code "\300\301!\203 \302\303\304\"\210\305\306!\207" [treesit-ready-p toml add-to-list auto-mode-alist ("\\.toml\\'" . toml-ts-mode) provide toml-ts-mode] 3)