;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \207" [require cider-eval clojure-mode easymenu custom-declare-variable cider-scratch-initial-message funcall function #[0 "\300\207" [#1=";; This buffer is for Clojure experiments and evaluation.\n\n;; Press C-j to evaluate the last expression.\n\n;; You can also press C-u C-j to evaluate the expression and pretty-print its result.\n\n"] 1 #1#] "The initial message displayed in new scratch buffers." :type string :group cider :package-version (cider . "0.18.0")] 10) (defvar cider-clojure-interaction-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\307\310!\210\311\312\313\314$\210\207" [clojure-mode-map make-sparse-keymap set-keymap-parent define-key "\n" cider-eval-print-last-sexp [remap paredit-newline] (lambda (def-tmp-var) (defvar cider-clojure-interaction-mode-menu def-tmp-var #1="Menu for Clojure Interaction mode")) nil easy-menu-do-define cider-clojure-interaction-mode-menu #1# ("Clojure Interaction" (["Eval and print last sexp" #'cider-eval-print-last-sexp] "--" ["Reset" #'cider-scratch-reset]))] 6)) (defconst cider-scratch-buffer-name "*cider-scratch*") #@61 Go to the scratch buffer named `cider-scratch-buffer-name'. (defalias 'cider-scratch #[0 "\300\301 !\207" [pop-to-buffer cider-scratch-find-or-create-buffer] 2 (#$ . 1296) nil]) #@36 Find or create the scratch buffer. (defalias 'cider-scratch-find-or-create-buffer #[0 "\301!\206\302 \207" [cider-scratch-buffer-name get-buffer cider-scratch--create-buffer] 2 (#$ . 1480)]) (defvar cider-clojure-interaction-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cider-clojure-interaction-mode-hook variable-documentation put "Hook run after entering Clojure Interaction mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cider-clojure-interaction-mode-map definition-name cider-clojure-interaction-mode] 4) (defvar cider-clojure-interaction-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" [cider-clojure-interaction-mode-abbrev-table cider-clojure-interaction-mode-map variable-documentation put purecopy "Keymap for `cider-clojure-interaction-mode'." boundp cider-clojure-interaction-mode-syntax-table definition-name cider-clojure-interaction-mode (lambda (def-tmp-var) (defvar cider-clojure-interaction-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `cider-clojure-interaction-mode'." (lambda (def-tmp-var) (defvar cider-clojure-interaction-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `cider-clojure-interaction-mode'." derived-mode-parent clojure-mode] 5) #@439 Major mode for typing and evaluating Clojure forms. Like clojure-mode except that \[cider-eval-print-last-sexp] evals the Lisp expression before point, and prints its value into the buffer, advancing point. \{cider-clojure-interaction-mode-map} In addition to any hooks its parent mode `clojure-mode' might have run, this mode runs the hook `cider-clojure-interaction-mode-hook', as the final or penultimate step during initialization. (defalias 'cider-clojure-interaction-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 \325C#\210\327 !\210\330\f!\210 \306\331!\210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name cider-clojure-interaction-mode-map cider-clojure-interaction-mode-syntax-table cider-clojure-interaction-mode-abbrev-table make-local-variable t clojure-mode cider-clojure-interaction-mode "Clojure Interaction" 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 sesman-system CIDER run-mode-hooks cider-clojure-interaction-mode-hook local-abbrev-table] 5 (#$ . 3120) nil]) #@52 Insert the welcome message for the scratch buffer. (defalias 'cider-scratch--insert-welcome-message #[0 "c\207" [cider-scratch-initial-message] 1 (#$ . 4449)]) #@30 Create a new scratch buffer. (defalias 'cider-scratch--create-buffer #[0 "r\301!q\210\302 \210\303 \210p)\207" [cider-scratch-buffer-name get-buffer-create cider-clojure-interaction-mode cider-scratch--insert-welcome-message] 2 (#$ . 4616)]) #@35 Reset the current scratch buffer. (defalias 'cider-scratch-reset #[0 "\300 \210\301 \207" [erase-buffer cider-scratch--insert-welcome-message] 1 (#$ . 4865) nil]) (provide 'cider-scratch)