;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require clojure-mode font-lock] 2) (defvar wispjs-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [wispjs-mode-hook variable-documentation put "Hook run after entering Wisp mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp wispjs-mode-map definition-name wispjs-mode] 4) (defvar wispjs-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" [wispjs-mode-abbrev-table wispjs-mode-map variable-documentation put purecopy "Keymap for `wispjs-mode'." boundp wispjs-mode-syntax-table definition-name wispjs-mode (lambda (def-tmp-var) (defvar wispjs-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `wispjs-mode'." (lambda (def-tmp-var) (defvar wispjs-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `wispjs-mode'." derived-mode-parent clojure-mode] 5) #@214 Major mode for Wisp In addition to any hooks its parent mode `clojure-mode' might have run, this mode runs the hook `wispjs-mode-hook', as the final or penultimate step during initialization. \{wispjs-mode-map} (defalias 'wispjs-mode #[nil "\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\2036 \321 =\203<\322\f\323 \"\210)\324$\325\"\204V$%=\204V\326$\325%C#\210\327 !\210\330\f!\210$%\331\332&\211'\203z'@&'A\211'\204l*\333\334\335\"\210\333\336\337\"\210\306\340!\210\341 )\342\343!\207" [delay-mode-hooks major-mode mode-name wispjs-mode-map wispjs-mode-syntax-table parent make-local-variable t clojure-mode wispjs-mode "Wisp" 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 #[(char) "\302\303 #\207" [char wispjs-mode-syntax-table modify-syntax-entry "w"] 4] nil add-to-list comint-prompt-regexp "=>" comint-preoutput-filter-functions #[(output) "\301\302\303#\207" [output replace-regexp-in-string "\\[[0-9]+[GJK]" ""] 4] inferior-lisp-program "wisp" run-mode-hooks wispjs-mode-hook wispjs-mode-abbrev-table local-abbrev-table quote --dolist-tail--] 6 (#$ . 1322) nil]) (byte-code "\300\301\302\303B\"\207" [add-to-list auto-mode-alist "\\.wisp\\'" wispjs-mode] 4) #@50 Invoke the Wisp compiler for the current buffer. (defalias 'wispjs-mode/compile #[nil "\302\303\304\305!!\"\306ed\307 $\210r\310 !q\210\311 \210*\312\313!\207" [buffer-file-name output-name format "%s.js" file-name-sans-extension file-relative-name shell-command-on-region "wisp" get-buffer save-buffer message "Compiled."] 5 (#$ . 2762) nil]) (provide 'wispjs-mode)