Add: [org][babel][font] font size based on host name & ob-shell

2 files changed, 25 insertions, 3 deletions

diff --git a/shoshimacs.el b/shoshimacs.el
index 52ea911..54e0d84 100644
--- a/shoshimacs.el
+++ b/shoshimacs.el
@@ -146,6 +146,11 @@
 
 (package-install 'htmlize)
 
+(org-babel-do-load-languages
+ 'org-babel-load-languages
+ '((emacs-lisp . t)
+   (shell . t)))
+
 (recentf-mode)
 
 (setq indent-tabs-mode nil)
@@ -178,7 +183,8 @@
 
 (package-install 'darkroom)
 
-(set-frame-font "Victor Mono")
+(let ((size (if (equal hostname "zebes") 18 12)))
+ (set-frame-font (format "Victor Mono-%s" size)))
 
 (global-hl-line-mode t)
 
diff --git a/shoshimacs.org b/shoshimacs.org
index ee08916..eef48d6 100644
--- a/shoshimacs.org
+++ b/shoshimacs.org
@@ -581,6 +581,15 @@ this seems to be required to fontify source blocks
   (package-install 'htmlize)
 #+end_src
 
+*** babel
+
+#+begin_src emacs-lisp
+  (org-babel-do-load-languages
+   'org-babel-load-languages
+   '((emacs-lisp . t)
+     (shell . t)))
+#+end_src
+
 ** recentf-mode
 
 this tracks recently operated on files (by default) and enables quick selection
@@ -712,10 +721,17 @@ depending on the window layout currently in use.
 ** Fonts 
 For code, I've grown fond of Victor Mono.
 
-#+begin_src emacs-lisp
-  (set-frame-font "Victor Mono")
+#+name: host
+#+begin_src shell :tangle no
+  hostname
+#+end_src
+
+#+begin_src emacs-lisp :var hostname=host()
+  (let ((size (if (equal hostname "zebes") 18 12)))
+   (set-frame-font (format "Victor Mono-%s" size)))
 #+end_src
 
+
 *** COMMENT Attempt to install the font via Emacs, url.el and ~make-process~
 
 in the end, this "works" but isn't very useful. the font cache needs to be updated