;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301\316\317\320\321& \210\310\322\323\324\314\315\306\301\320\321& \210\310\325\302\326\314\327\306\301&\210\310\330\331\332\314\333%\210\334\335\336\337\306\301%\210\334\340\341\342\306\301%\210\334\343\344\345\306\301%\207" [custom-declare-group tabula-rasa nil "The latest in high-tech distraction free writing." :version 0.1 :group text custom-declare-variable tabula-rasa-width 80 "Width of writing space." :type integer :set #[(symbol value) "\302 \207" [value tabula-rasa-width tabula-rasa-update-window] 1] :initialize custom-initialize-default tabula-rasa-line-spacing 5 "Vertical line spacing." tabula-rasa-toggle-antialiasing "Whether or not to toggle anti-aliasing on text.\nRecommended for non-monotype, 'pretty' fonts." boolean tabula-rasa-minor-mode-states '(("global-highline-mode") ("global-highlight-parentheses-mode")) "This allows you to temporarily disable or enable minor modes for Tabula Rasa.\nAdd the minor mode and the desired state while in Tabula Rasa mode." (repeat (cons :format "%v" (string :tag "Minor Mode") (boolean :tag "State"))) custom-declare-face tabula-rasa-default ((((class grayscale) (background light)) (:background "LightGray")) (((class grayscale) (background dark)) (:background "DimGray")) (((class color) (background light)) (:background "White" :foreground "Black")) (((class color) (background dark)) (:background "Black" :foreground "White"))) "Face for tabula-rasa mode." tabula-rasa-cursor ((t (:inherit tabula-rasa-default :inverse-video t))) "Face for the Tabula Rasa cursor. Only background and foreground colors matter." tabula-rasa-region ((((class grayscale) (background light)) (:background "White")) (((class grayscale) (background dark)) (:background "DimGray")) (((class color) (background light)) (:background "White" :foreground "Black")) (((class color) (background dark)) (:inherit tabula-rasa-default :background "gray"))) "Face for the Tabula Rasa region select. Only background and foreground colors matter."] 12) (defvar tabula-rasa-frame nil) #@269 Non-nil if Tabula-Rasa mode is enabled. See the `tabula-rasa-mode' command for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `tabula-rasa-mode'. (custom-declare-variable 'tabula-rasa-mode nil '(#$ . 2186) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :type 'boolean :group 'tabula-rasa) #@579 Distraction Free Writing This is a minor mode. If called interactively, toggle the `Tabula-Rasa mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'tabula-rasa-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'tabula-rasa-mode #[(&optional arg) "\305 \306\303 \307=\203\310\303!?\202\" \247\203! \311W\203!\312\202\"\313\"\210\314\302!\2039\315\303\n\"\310\303!\2039\303\nB \203C\316 \210\202G\317\313!\210\320\321\310\303!\203S\322\202T\323\"\210\324\325!\203\326\303!\210\305 \203l\305 \232\203\327\330\331\310\303!\203z\332\202{\333\f#\210))\334 \210\310\303!\207" [#1=#:last-message arg global-minor-modes tabula-rasa-mode local current-message set-default toggle default-value 1 nil t boundp delq tabula-rasa-mode-enable tabula-rasa-mode-disable run-hooks tabula-rasa-mode-hook tabula-rasa-mode-on-hook tabula-rasa-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Tabula-Rasa mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 2624) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar tabula-rasa-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [tabula-rasa-mode-map tabula-rasa-mode-hook variable-documentation put "Hook run after entering or leaving `tabula-rasa-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode tabula-rasa-mode " TR" boundp] 6) (defalias 'tabula-rasa-update-window #[nil "\303!\204\n\304\305!\207\306\307\"\204\310 !\203)\311 \312!\nZ\313\245\312!\nZ\313\245#\207\311 \314\211#\210\311\315 \314\211#\207" [tabula-rasa-frame tabula-rasa-window tabula-rasa-width frame-live-p tabula-rasa-mode-disable nil one-window-p t window-full-width-p set-window-margins frame-width 2 0 next-window] 5]) (defalias 'tabula-rasa-set-frame-parms #[nil "\302\303\304 B\305\306\307\310\"B\311\306\307\312\"B\313\314\315!B\316BBBBB\"\210\317\320\306\321\310\"#\210\322\320\306\321\312\"#\210\323 \207" [tabula-rasa-frame tabula-rasa-line-spacing modify-frame-parameters (fullscreen . fullboth) line-spacing foreground-color face-attribute tabula-rasa-default :foreground background-color :background font face-font "tabula-rasa-default" ((unsplittable . t) (left-fringe . 0) (right-fringe . 0) (tool-bar-lines . 0) (menu-bar-lines . 0) (vertical-scroll-bars)) set-face-foreground region tabula-rasa-region set-face-background tabula-rasa-update-window] 9]) (defalias 'tabula-rasa-save-minor-modes #[nil "\301\302!\210\303\304\"\207" [tabula-rasa-minor-mode-states (lambda (def-tmp-var) (defvar tabula-rasa-saved-minor-modes def-tmp-var)) nil mapc #[(mode) "\302\303@!!\205@\304@!JB B\211\207" [mode tabula-rasa-saved-minor-modes boundp read intern] 3]] 3]) (defalias 'tabula-rasa-set-minor-modes #[(minor-modes-alist) "\301\302\"\207" [minor-modes-alist mapc #[(mode) "\301\302@!!\205!A\203\303\302\304@\305Q!!\207\303\302\304@\306Q!!\207" [mode boundp read eval "(" " 1)" " 0)"] 5]] 3]) (defalias 'tabula-rasa-mode-enable #[nil "\306=\203 \307\310!\210\311 \210\312 \210\313 !\210\n\203 ?\314\315!\316\317\320\321\322$\210\316\323\324\"\210\325\f!\210\326\f!\327 \207" [tabula-rasa-mode tabula-rasa-minor-mode-states tabula-rasa-toggle-antialiasing ns-antialias-text tabula-rasa-frame tabula-rasa-window 1 message "Tabula Rasa mode is already running" exit tabula-rasa-save-minor-modes tabula-rasa-set-minor-modes make-frame ((fullscreen . fullboth)) add-hook window-configuration-change-hook tabula-rasa-update-window t nil delete-frame-functions #[(frame) " =\205 \302\303!\207" [frame tabula-rasa-frame tabula-rasa-mode-disable nil] 2] select-frame frame-selected-window tabula-rasa-set-frame-parms] 5]) (defalias 'tabula-rasa-mode-disable #[(del-frame) "\306!\205+\307\310!\210\311\312\313\"\210\311\314\315\"\210\n\203\316!\210\317 !\210\f\205+ ?\320 \207" [tabula-rasa-frame tabula-rasa-mode del-frame tabula-rasa-saved-minor-modes tabula-rasa-toggle-antialiasing ns-antialias-text frame-live-p nil select-frame remove-hook window-configuration-change-hook tabula-rasa-update-window delete-frame-functions tabula-rasa-mode-disable delete-frame tabula-rasa-set-minor-modes redraw-display] 3]) (provide 'tabula-rasa)