Better Auto-Tangle & Font Size Change

- Add org-auto-tangle package to replace old way of auto-tangling
- Change font size from 105 to 110 due to broken org mode header icons
- Enable auto-tangle on emacs config
This commit is contained in:
Sravan Balaji
2021-05-07 10:12:34 -04:00
parent 45132b934b
commit 7551dc3232
2 changed files with 16 additions and 28 deletions

View File

@@ -1,10 +1,9 @@
#+title: Personal Emacs Configuration
#+author: Sravan Balaji
#+PROPERTY: header-args:emacs-lisp :tangle ./init.el
#+auto_tangle: t
* Sravan Balaji's Emacs Configuration
** Welcome
* Welcome
My personal configuration of Emacs, written as an [[https://orgmode.org][Org Mode]] document.
@@ -18,9 +17,9 @@
** Configuration Variables
#+begin_src emacs-lisp
(defvar sb/default-font-size 115)
(defvar sb/default-variable-font-size 115)
(defvar sb/modeline-height 15)
(defvar sb/default-font-size 110)
(defvar sb/default-variable-font-size 110)
(defvar sb/modeline-height 10)
#+end_src
* Package System Setup
@@ -511,20 +510,15 @@ Use Hydra to design a transient key binding for quickly adjusting the scale of t
(add-to-list 'org-structure-template-alist '("hs" . "src haskell"))
#+end_src
** Auto-Tangle Configuration Files
** Auto-Tangle
Automatically tangle code blocks in file everytime it is saved.
Add ~#+auto_tangle: t~ to the org document to enable this.
#+begin_src emacs-lisp
;; Automatically tangle our Emacs.org config file when we save it
(defun sb/org-babel-tangle-config ()
(when (string-equal (buffer-file-name)
(expand-file-name "~/.config/emacs/README.org"))
;; Dynamic scoping to the rescue
(let ((org-confirm-babel-evaluate nil))
(org-babel-tangle))))
(add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'sb/org-babel-tangle-config)))
(use-package org-auto-tangle
:defer t
:hook (org-mode . org-auto-tangle-mode))
#+end_src
* Development

18
init.el
View File

@@ -1,6 +1,6 @@
(defvar sb/default-font-size 115)
(defvar sb/default-variable-font-size 115)
(defvar sb/modeline-height 15)
(defvar sb/default-font-size 110)
(defvar sb/default-variable-font-size 110)
(defvar sb/modeline-height 10)
;; Initialize package sources
(require 'package)
@@ -388,15 +388,9 @@
(add-to-list 'org-structure-template-alist '("py" . "src python"))
(add-to-list 'org-structure-template-alist '("hs" . "src haskell"))
;; Automatically tangle our Emacs.org config file when we save it
(defun sb/org-babel-tangle-config ()
(when (string-equal (buffer-file-name)
(expand-file-name "~/.config/emacs/README.org"))
;; Dynamic scoping to the rescue
(let ((org-confirm-babel-evaluate nil))
(org-babel-tangle))))
(add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'sb/org-babel-tangle-config)))
(use-package org-auto-tangle
:defer t
:hook (org-mode . org-auto-tangle-mode))
(use-package evil-nerd-commenter
:bind ("M-/" . evilnc-comment-or-uncomment-lines))