(use-package writeroom-mode
  :defer t
  :config
  (setq writeroom-width 140
        writeroom-mode-line 't
        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)))))))))

(use-package olivetti
  :defer t
  :config
  (setq
   olivetti-body-width 100
  ))