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 #+title: Personal Emacs Configuration
#+author: Sravan Balaji #+author: Sravan Balaji
#+PROPERTY: header-args:emacs-lisp :tangle ./init.el #+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. My personal configuration of Emacs, written as an [[https://orgmode.org][Org Mode]] document.
@@ -18,9 +17,9 @@
** Configuration Variables ** Configuration Variables
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defvar sb/default-font-size 115) (defvar sb/default-font-size 110)
(defvar sb/default-variable-font-size 115) (defvar sb/default-variable-font-size 110)
(defvar sb/modeline-height 15) (defvar sb/modeline-height 10)
#+end_src #+end_src
* Package System Setup * 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")) (add-to-list 'org-structure-template-alist '("hs" . "src haskell"))
#+end_src #+end_src
** Auto-Tangle Configuration Files ** Auto-Tangle
Automatically tangle code blocks in file everytime it is saved. 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 #+begin_src emacs-lisp
;; Automatically tangle our Emacs.org config file when we save it (use-package org-auto-tangle
(defun sb/org-babel-tangle-config () :defer t
(when (string-equal (buffer-file-name) :hook (org-mode . org-auto-tangle-mode))
(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)))
#+end_src #+end_src
* Development * Development

18
init.el
View File

@@ -1,6 +1,6 @@
(defvar sb/default-font-size 115) (defvar sb/default-font-size 110)
(defvar sb/default-variable-font-size 115) (defvar sb/default-variable-font-size 110)
(defvar sb/modeline-height 15) (defvar sb/modeline-height 10)
;; Initialize package sources ;; Initialize package sources
(require 'package) (require 'package)
@@ -388,15 +388,9 @@
(add-to-list 'org-structure-template-alist '("py" . "src python")) (add-to-list 'org-structure-template-alist '("py" . "src python"))
(add-to-list 'org-structure-template-alist '("hs" . "src haskell")) (add-to-list 'org-structure-template-alist '("hs" . "src haskell"))
;; Automatically tangle our Emacs.org config file when we save it (use-package org-auto-tangle
(defun sb/org-babel-tangle-config () :defer t
(when (string-equal (buffer-file-name) :hook (org-mode . org-auto-tangle-mode))
(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 evil-nerd-commenter (use-package evil-nerd-commenter
:bind ("M-/" . evilnc-comment-or-uncomment-lines)) :bind ("M-/" . evilnc-comment-or-uncomment-lines))