;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306#\207" [require cl-lib hexrgb custom-declare-theme paper paper-theme "An Emacs colour theme that resembles the look of paper."] 4) #@242 The colours used in Paper theme. The alist of colours where for each pair p (car p) is a symbol identifying the colour and (cdr p) is the string, the hexedecimal notation of the colour (i.e. #RRGGBB where R, G and B are hexedecimal digits). (defvar paper-colours-alist '((text "#070A01") (paper-grey "#FAFAFA") (paper-old-dark "#F8ECC2") (paper-parchment "#F1F1D4") (paper-old-light "#F2EECB") (white "#EEEEEE") (magenta "#8C0D40") (pen "#000F55") (light-shadow "#D9DDD9")) (#$ . 596)) #@224 Which paper colour to use. The variable `paper-colours-alist' contains a suit of colours with prefix `paper-'. This variable's value is supposed to be set to one of those symbols to specify the colour used for background. (defvar paper-paper-colour 'paper-grey (#$ . 1089)) #@51 Whether to use varying heights for Org headlines. (defvar paper-use-varying-heights-for-org-title-headlines nil (#$ . 1370)) #@26 The base size for fonts. (defvar paper-base-font-size 100 (#$ . 1501)) #@56 The font factor for calculating level fonts from base. (defvar paper-font-factor 0.1 (#$ . 1578)) #@48 The factor for computing tints for org levels. (defvar paper-tint-factor 70 (#$ . 1682)) #@59 Get colour for COLOUR-IDENTIFIER. (fn COLOUR-IDENTIFIER) (defalias 'paper-colour #[257 "\301\"\211A@\207" [paper-colours-alist assoc] 4 (#$ . 1777)]) #@85 Get the colour for paper. See `paper-paper-colour' and `paper-colours-alist'. (fn) (defalias 'paper-colour-paper #[0 "\301!\207" [paper-paper-colour paper-colour] 2 (#$ . 1936)]) #@34 The base colours of Paper theme. (defconst paper-normal-face (byte-code "\300\301\302\303!\304\305 FDC\207" [t :foreground paper-colour text :background paper-colour-paper] 5) (#$ . 2123)) #@45 The inverse of base colours of Paper theme. (defconst paper-inverse-face (byte-code "\300\301\302 \303\304\305!FDC\207" [t :foreground paper-colour-paper :background paper-colour text] 6) (#$ . 2318)) #@51 Colour couple that resembles pen colour on paper. (defconst paper-pen-face (byte-code "\300\301\302\303!\304\305 FDC\207" [t :foreground paper-colour pen :background paper-colour-paper] 5) (#$ . 2525)) #@46 Colour couple that resembles a light shadow. (defconst paper-light-shadow-face (byte-code "\300\301\302\303!\304\302\305!FDC\207" [t :foreground paper-colour text :background light-shadow] 6) (#$ . 2733)) #@63 Colour couple that resembles pen colour on paper, italicised. (defconst paper-italicised-pen-face (byte-code "\300\301\302\303!\304\305 \306BBBBDC\207" [t :foreground paper-colour pen :background paper-colour-paper (:slant italic)] 6) (#$ . 2944)) (defconst paper-magenta-on-paper-face (byte-code "\300\301\302\303!\304\305 FDC\207" [t :foreground paper-colour magenta :background paper-colour-paper] 5)) #@258 Compute equidistant tints of a given colour. HEX is the hexedecimal RRGGBB string representation of the colour. N is an integer denoting how many tints to compute. If DARKEN is non-nil, compute darker tints, otherwise, lighter. (fn HEX N &optional DARKEN) (defalias 'paper-tints #[770 "\301\302X\203'\303\304\203\305\202\306!_#B\262T\262\202\211\237\207" [paper-tint-factor 0 nil hexrgb-increment-equal-rgb 2 - identity] 12 (#$ . 3356)]) #@76 Set up faces. May be used to refresh after tweaking some variables. (fn) (defalias 'paper--set-faces #[0 "\306 \307\310\311\312\313\314!\"\315\316\"\211\203Z\211@\317\320\321!P!\322\323\324\325\326\327\n\211A\262\f\242\n\205E\330\331\211T___Z\\!DBBBBBBDCDDB\262A\266\202\202\210\332\333\317\334 DD\317\335\fDD\317\336\322\327\313\337!\340\313\314!\341BBBBDCDD\317\342 DD\317\343\322\327\313\344!\345BBDCDD\317\346 DD\317\347\322\340\313\314!\327\313\337!FDCDD\317\350 DD\317\3511DD\317\3522DD\317\3532DD\317\3542DD\317\3553DD\317\3563DD\317\3573DD\n\205\327\360BBBBBBBBBBBBBBBBBB\266\206!\207" [paper-base-font-size paper-font-factor paper-use-varying-heights-for-org-title-headlines paper-normal-face paper-inverse-face paper-light-shadow-face eval "org-level-" nil 8 paper-tints paper-colour magenta number-sequence 1 quote intern number-to-string t :slant normal :weight light :foreground :height truncate custom-theme-set-faces 'paper default cursor mode-line white :background (:box nil) mode-line-inactive mode-line-highlight text (:box nil) fringe region font-lock-builtin-face font-lock-comment-face font-lock-string-face font-lock-function-name-face font-lock-variable-name-face font-lock-keyword-face font-lock-type-face font-lock-constant-face '(org-tag ((t (:height 90 :weight light)))) paper-italicised-pen-face paper-pen-face paper-magenta-on-paper-face] 26 (#$ . 3821)]) (byte-code "\301 \210\203\302\303!\203\304\303\305\306!!\"\210\307\310!\210\311\312!\207" [load-file-name paper--set-faces boundp custom-theme-load-path add-to-list file-name-as-directory file-name-directory provide paper-theme provide-theme paper] 5)