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:
26
README.org
26
README.org
@@ -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
18
init.el
@@ -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))
|
||||||
|
Reference in New Issue
Block a user