.emacs.local.d/modes/writeroom.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

(use-package writeroom-mode
  :defer t
  :config
  (setq writeroom-width 140
        writeroom-mode-line nil
        writeroom-global-effects '(writeroom-set-bottom-divider-width
                                   writeroom-set-internal-border-width
                                   (lambda (arg)
                                     (let ((langs '("python"
                                                    "emacs-lisp"
                                                    "common-lisp"
                                                    "js"
                                                    "ruby")))
                                       (cond
                                        ((= arg 1)
                                         (progn
                                           (setq org-src-block-faces
                                                 (mapcar (lambda (lang) (list lang '(:family "Source Code Pro" :height 0.8))) langs))
                                           (normal-mode)
                                           (variable-pitch-mode)))
                                        ((= arg -1)
                                         (progn
                                           (setq org-src-block-faces
                                                 (mapcar (lambda (lang) (list lang '(:family "Source Code Pro" :height 1.0))) langs))
                                           (normal-mode)
                                           (variable-pitch-mode)
(variable-pitch-mode)))))))))