;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\315\316&\207" [require json zenscript-common zenscript-highlighting zenscript-completion zenscript-indentation zenscript-language custom-declare-group zenscript nil "Major mode for editing ZenScript code." :prefix "zenscript-" :group languages] 8) #@42 The current version of `zenscript-mode`. (defconst zenscript-mode-version "1.2.1" (#$ . 451)) #@50 The base URL for the official CraftTweaker docs. (defconst zenscript-docs-base-url "https://docs.blamejared.com/" (#$ . 551)) (defconst zenscript-game-versions '("1.12" "1.14" "1.15" "1.16")) (defconst zenscript-docs-languages '("de" "en" "es" "fr" "it" "ja" "ko" "pl" "ru" "zh")) #@53 Open the CraftTweaker docs in your default browser. (defalias 'zenscript-view-docs #[0 "\303\304\305\211\211\211\306&\303\307 \305\211\211\211\310&\311\n\312R!\207" [zenscript-game-versions zenscript-docs-languages zenscript-docs-base-url completing-read "Game version (default: 1.12): " nil "1.12" "Select your language (default: en): " "en" browse-url "/"] 9 (#$ . 838) nil]) #@71 Search for a string in the CraftTweaker docs in your default browser. (defalias 'zenscript-search-docs #[0 "\303\304\305\211\211\211\306&\303\307 \305\211\211\211\310&\311\312!\313\n\314\315\260!\207" [zenscript-game-versions zenscript-docs-languages zenscript-docs-base-url completing-read "Game version (default: 1.12): " nil "1.12" "Select your language (default: en): " "en" read-string "Search: " browse-url "/" "/search/?search="] 10 (#$ . 1227) nil]) (defconst zenscript-mode-map (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\311#\210\301\315\313#\210\207" [make-sparse-keymap define-key "" zenscript-view-docs "" zenscript-search-docs [134217774] zenscript-goto-definition-at-point [134217830] forward-zenscript-identifier [134217826] backward-zenscript-identifier [M-right] [M-left]] 5)) (defvar zenscript-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [zenscript-mode-hook variable-documentation put "Hook run after entering ZenScript mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp zenscript-mode-map definition-name zenscript-mode] 4) (defvar zenscript-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [zenscript-mode-abbrev-table zenscript-mode-map variable-documentation put purecopy "Keymap for `zenscript-mode'." boundp zenscript-mode-syntax-table definition-name zenscript-mode (lambda (def-tmp-var) (defvar zenscript-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `zenscript-mode'." (lambda (def-tmp-var) (defvar zenscript-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `zenscript-mode'." derived-mode-parent prog-mode] 5) #@223 Major mode for ZenScript. In addition to any hooks its parent mode `prog-mode' might have run, this mode runs the hook `zenscript-mode-hook', as the final or penultimate step during initialization. \{zenscript-mode-map} (defalias 'zenscript-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!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R  =\204R\326 \325 C#\210\327 !\210\330\f!\210  \327 !\210\331 \210\332 \210\333 \210\334 \210\335 \210)\336\337!\207" [delay-mode-hooks major-mode mode-name zenscript-mode-map zenscript-mode-syntax-table zenscript-mode-abbrev-table make-local-variable t prog-mode zenscript-mode "ZenScript" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table zenscript--init-highlighting zenscript--init-common zenscript--init-indents zenscript--init-completion zenscript--init-language run-mode-hooks zenscript-mode-hook local-abbrev-table] 5 (#$ . 3319) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [add-to-list auto-mode-alist ("\\.zs\\'" . zenscript-mode) provide zenscript-mode] 3)