aboutsummaryrefslogtreecommitdiff
path: root/.emacs.local.d/modes/writeroom.el
diff options
context:
space:
mode:
authorRaúl Benencia <rul@kalgan.cc>2019-06-23 11:43:30 -0700
committerRaúl Benencia <rul@kalgan.cc>2019-06-23 13:32:01 -0700
commit284c8327c95bb0c71b111ebf95723a35a478295c (patch)
treefaea9db4b1bba00d73d33b2065ed102f88b76b2c /.emacs.local.d/modes/writeroom.el
Add emacs config
Diffstat (limited to '.emacs.local.d/modes/writeroom.el')
-rw-r--r--.emacs.local.d/modes/writeroom.el27
1 files changed, 27 insertions, 0 deletions
diff --git a/.emacs.local.d/modes/writeroom.el b/.emacs.local.d/modes/writeroom.el
new file mode 100644
index 0000000..ba700a1
--- /dev/null
+++ b/.emacs.local.d/modes/writeroom.el
@@ -0,0 +1,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)))))))))
nihil fit ex nihilo