summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBlendoit <blendoit@gmail.com>2020-11-03 18:52:58 -0800
committerBlendoit <blendoit@gmail.com>2020-11-03 18:52:58 -0800
commit60d80a603e434405f5fbeda9b41258c8362a80e6 (patch)
tree19b6c829d6b49367ba878f94982a086b0cc779f1
parentbe52929cf5f87e63417e18e313b9f43273a46eb3 (diff)
me: be explicit about tangling\n tangle: yes
-rw-r--r--smart-documents.org200
1 files changed, 96 insertions, 104 deletions
diff --git a/smart-documents.org b/smart-documents.org
index e5fabc8..a02363a 100644
--- a/smart-documents.org
+++ b/smart-documents.org
@@ -8,9 +8,6 @@
#+SETUPFILE: ~/.emacs.d/templates/documents/default.org
#+INCLUDE: ~/.emacs.d/templates/documents/default.org_title
-# By default, Org Babel does not tangle blocks.
-#+PROPERTY: header-args :tangle yes
-
# Beautiful font pairing
# #+LATEX_HEADER: \setmainfont{urw gothic}
# #+LATEX_HEADER: \setmonofont{hermit}
@@ -57,7 +54,7 @@ paper within Emacs itself:
- ~C-h v~ :: describe variable
- ~C-h k~ :: describe key
-You can always press ~f1~ to access Emacs in-built help.
+You can always press ~f1~ to access Emacs built-in help.
* TODO First-time setup
@@ -69,7 +66,7 @@ the first time.
:sd-unpack-path: sd.el
:END:
-#+BEGIN_SRC emacs-lisp :tangle no
+#+BEGIN_SRC emacs-lisp
(defvar sd-packed-p t
"Boolean to track literate configuration packed/unpacked status.")
@@ -82,7 +79,7 @@ the first time.
(mapcar 'sd-unpack sd-unpack-sections)
)
-(defun sd-unpack-section (section)
+(defun sd-unpack-section (&optional section)
"Unpack SECTION into `user-emacs-directory'.
If nil, unpack section under point.
Make go through list of headings and unpack first matching SECTION."
@@ -111,6 +108,8 @@ element.
#+NAME: user-details-get
#+BEGIN_SRC emacs-lisp
+(setq user-full-name "Marius Peter")
+
(defun my/user-details-get ()
"Get user details."
(setq user-full-name (read-string "Enter full user name:"))
@@ -139,7 +138,7 @@ In this subsection, we tell Emacs about relevant paths to resources.
On my MS Windows machine, I add the path to Portable Git.[fn::Download from
https://git-scm.com/download/win]
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(when (string-equal system-type "windows-nt")
(add-to-list 'exec-path "C:/Users/marius.peter/PortableGit/bin/"))
#+END_SRC
@@ -184,7 +183,7 @@ We start the profiler now , and will interrupt it in Section [[Profiling ---
stop]]. We will then present profiling report in Section [[Profiling --- report]].
#+NAME: profiler-start
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
; (profiler-start)
#+END_SRC
@@ -193,7 +192,7 @@ stop]]. We will then present profiling report in Section [[Profiling --- report]
We begin by defining a function to open this very file.
#+NAME: shortcut-config
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(defun my/find-literate-config ()
"Jump to this very file."
(interactive)
@@ -202,7 +201,7 @@ We begin by defining a function to open this very file.
** Speeding up the next startup
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(defun byte-compile-literate-config ()
"Byte compile our literate configuration file."
(delete-file (concat my/literate-config ".elc"))
@@ -225,13 +224,13 @@ between all these files is that they tend to reference... other files. Thus, I
decided to refer to them as meta-files. First, let's designate a folder to collect
our meta-files together:
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq my/meta-files-location (concat user-emacs-directory "meta/"))
#+END_SRC
*** Recently visited files
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq recentf-save-file (concat
my/meta-files-location
"recentf"))
@@ -239,7 +238,7 @@ our meta-files together:
*** Projects' bookmarks
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq projectile-known-projects-file (concat
my/meta-files-location
"projectile-bookmarks.eld"))
@@ -247,7 +246,7 @@ our meta-files together:
*** Location in previously visited file
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq save-place-file (concat
my/meta-files-location
"places"))
@@ -260,7 +259,7 @@ clickable option/toggle is saved here.) Useful for fooling around with ~M-x
customize-group <package>~.
#+NAME: custom-file-location
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq custom-file (concat user-emacs-directory "custom.el"))
(load custom-file)
#+END_SRC
@@ -269,7 +268,7 @@ customize-group <package>~.
Backups are very important!
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq backup-directory-alist `((".*" . ,temporary-file-directory))
auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
backup-by-copying t ; Don't delink hardlinks
@@ -284,14 +283,14 @@ Backups are very important!
We set the dimensions of the initial frame:
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(add-to-list 'initial-frame-alist '(width . 100))
(add-to-list 'initial-frame-alist '(height . 50))
#+END_SRC
We also set the dimensions of subsequent frames:
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(add-to-list 'default-frame-alist '(width . 50))
(add-to-list 'default-frame-alist '(height . 30))
#+END_SRC
@@ -301,7 +300,7 @@ We also set the dimensions of subsequent frames:
These settings affect the first and subsequent frames spawned by Emacs in
GNU/Linux. Frame transparency increases when focus is lost.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(when (and (display-graphic-p) (string-equal system-type "gnu/linux"))
(set-frame-parameter (selected-frame) 'alpha '(90 . 50))
(add-to-list 'default-frame-alist '(alpha . (90 . 50))))
@@ -315,7 +314,7 @@ identifying information such as names and e-mail addresses, which are used to
populate Org templates (Section [[~org-mode~]]). You need to create this
=secrets.org= file, as it is ignored by =git= by default.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(org-babel-load-file "~/.emacs.d/secrets.org")
#+END_SRC
@@ -326,7 +325,7 @@ Access. This is a term coined by IBM which has influenced user navigation cues
on all modern desktop OSes. From IBM's CUA, we get the =Ctrl-c= and =Ctrl-v=
keyboard shortcuts.]
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(cua-mode)
#+END_SRC
@@ -340,19 +339,19 @@ is pressed.
*** Save a file
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-s") 'save-buffer)
#+END_SRC
*** Open a file
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-o") 'find-file)
#+END_SRC
*** List open files
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-b") 'ivy-switch-buffer)
#+END_SRC
@@ -360,31 +359,31 @@ is pressed.
(Function defined in Section [[Jumping to this file]])
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-c c") 'my/find-literate-config)
#+END_SRC
*** Open a recently visited file
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-r") 'counsel-recentf)
#+END_SRC
*** Locate a file
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-c l") 'counsel-locate)
#+END_SRC
*** Open the agenda
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key [f5] 'org-agenda-list)
#+END_SRC
*** Open the diary
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key [f6]
'(lambda ()
"Load `org-agenda-diary-file'."
@@ -396,13 +395,13 @@ is pressed.
*** Make new window
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-n") 'make-frame)
#+END_SRC
*** Make only window
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-`") 'delete-other-windows)
#+END_SRC
@@ -411,7 +410,7 @@ is pressed.
The following bindings lead to more natural window & frame exit behaviors.
#+NAME: close-window-or-previous-buffer
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-w")
'(lambda ()
"Delete window; if sole window, previous buffer."
@@ -422,7 +421,7 @@ The following bindings lead to more natural window & frame exit behaviors.
#+END_SRC
#+NAME: delete-frame-or-kill-emacs
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-q")
'(lambda ()
(interactive)
@@ -441,7 +440,7 @@ zoom in, ~C--~ to zoom out.
It seems that starting with Emacs 27.1, Control + mousewheel works.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C--") 'text-scale-decrease)
(global-set-key (kbd "C-=") 'text-scale-increase)
(global-set-key (kbd "C-+") 'text-scale-increase)
@@ -451,13 +450,13 @@ It seems that starting with Emacs 27.1, Control + mousewheel works.
*** Customize a variable
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-c v") 'customize-variable)
#+END_SRC
*** Customize a face
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-c f") 'customize-face)
#+END_SRC
@@ -473,13 +472,13 @@ PDF is probably the most prevalent file format for sharing static documents.
**** document
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-p") 'my/org-quick-export)
#+END_SRC
**** TODO presentation
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
#+END_SRC
@@ -500,7 +499,7 @@ How do we bootstrap packages? First, let's figure out:
List of package archives.
#+NAME: package-archives
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
@@ -511,7 +510,7 @@ List of package archives.
One-function rollup of upgradeable package tagging, download and lazy install.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
#+END_SRC
@@ -520,7 +519,7 @@ One-function rollup of upgradeable package tagging, download and lazy install.
We ensure =use-package= is installed, as well as all packages described in this
configuration file.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package)
@@ -578,14 +577,14 @@ For the time being, I will in fact display emphasis markers, because hiding
them corrupts tables.
#+NAME: org-format
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-hide-emphasis-markers nil
org-startup-indented t
org-src-preserve-indentation nil
org-edit-src-content-indentation 0)
#+END_SRC
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
#+END_SRC
@@ -594,7 +593,7 @@ them corrupts tables.
The following languages can be written inside =SRC= blocks, in view of being
executed by the Org Babel backend.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-babel-load-languages
'((shell . t)
(python . t)
@@ -611,7 +610,7 @@ executed by the Org Babel backend.
*** Prevent or warn on invisible edits
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-catch-invisible-edits t)
#+END_SRC
@@ -623,7 +622,7 @@ for which the heading or body contain a matching =org-time-stamp=.[fn::An
We open the agenda in a separate window.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-agenda-window-setup 'other-frame)
#+END_SRC
@@ -632,7 +631,7 @@ We open the agenda in a separate window.
More literary timestamps are exported to LaTeX using the following custom
format:
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-time-stamp-custom-formats
'("%d %b. %Y (%a)" . "%d %b. %Y (%a), at %H:%M"))
#+END_SRC
@@ -653,7 +652,7 @@ Options and why we need them:
- ~-interaction=nonstopmode~ :: go as far as possible without prompting user
for input
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-latex-pdf-process
'("latexmk -pdf -f \
-pdflatex=lualatex -shell-escape \
@@ -666,7 +665,7 @@ We customize the format for org time stamps to make them appear monospaced in
our exported LaTeX documents. This makes them visually distinguishable from
body text.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-latex-active-timestamp-format
"\\texttt{%s}")
(setq org-latex-inactive-timestamp-format
@@ -677,7 +676,7 @@ body text.
The following packages are loaded for every time we export to LaTeX.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-latex-packages-alist
'(("AUTO" "polyglossia" t
("xelatex" "lualatex"))
@@ -694,7 +693,7 @@ The following packages are loaded for every time we export to LaTeX.
Little bonus for GNU/Linux users: syntax highlighting for source code blocks in
LaTeX exports.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(when (string-equal system-type "gnu/linux")
(add-to-list 'org-latex-packages-alist '("AUTO" "minted" t
("pdflatex" "lualatex")))
@@ -710,7 +709,7 @@ Now, we set the files to be deleted when a LaTeX \rightarrow PDF compilation
occurs. We only care about two files, in the end: the Org mode file for
edition, and the PDF for distribution.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-latex-logfiles-extensions
'("aux" "bcf" "blg" "fdb_latexmk"
"fls" "figlist" "idx" "log" "nav"
@@ -724,14 +723,14 @@ By default, Org agenda inserts diary entries as the first under the selected
date. It is preferable to insert entries in the order that they were recorded,
i.e. chronologically.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-agenda-insert-diary-strategy 'date-tree-last)
#+END_SRC
What follows is an additional document class structures that can be exported in
LaTeX.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
;; (add-to-list 'org-latex-classes
;; '("book-blendoit"
;; "\\documentclass[12pt]{book}"
@@ -746,7 +745,7 @@ LaTeX.
By default, body text can immediately follow the table of contents. It is
however cleaner to separate table of contents with the rest of the work.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq org-latex-toc-command "\\tableofcontents\\clearpage")
#+END_SRC
@@ -761,7 +760,7 @@ This is the 2^{nd} most significant customization after ~org-mode~. Enabling
~evil-mode~ completely changes editing keys.[fn::For more information on =vi=
keybindings, visit [[https://hea-www.harvard.edu/~fine/Tech/vi.html]].]
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package evil)
; (setq evil-toggle-key "C-c d") ; devil...
; (evil-mode 1)
@@ -778,7 +777,7 @@ We require a package to highlight syntax errors and warnings. The ~flycheck~
package ensures we are aware of all our code's syntactical shortcomings.
#+NAME: flycheck
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package flycheck)
(global-flycheck-mode)
#+END_SRC
@@ -786,7 +785,7 @@ package ensures we are aware of all our code's syntactical shortcomings.
*** Spelling
#+NAME: flyspell
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package flyspell)
(add-hook 'text-mode-hook 'flyspell-mode)
#+END_SRC
@@ -801,7 +800,7 @@ field).[fn::=<backtab>= is synonymous with pressing shift-tab.]
For instance: typing =src= then pressing =TAB= will expand the keyword to the
following text:
-: #+BEGIN_SRC emacs-lisp
+: #+BEGIN_SRC emacs-lisp :tangle yes
:
: #+END_SRC
@@ -810,7 +809,7 @@ field. Many clever programming tricks can be performed with ~yasnippet~ to save
us a ton of time with boilerplate text!
#+NAME: yasnippet
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package yasnippet)
(yas-global-mode 1)
#+END_SRC
@@ -825,7 +824,7 @@ us a ton of time with boilerplate text!
*** Delete all consecutive whitespaces
#+NAME: company
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package hungry-delete)
(global-hungry-delete-mode)
#+END_SRC
@@ -837,7 +836,7 @@ us a ton of time with boilerplate text!
Wonderful Git porcelain for Emacs. Enables the administration of a Git
repository in a pain-free way.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package magit
:bind ("C-c g" . magit-status))
#+END_SRC
@@ -846,7 +845,7 @@ repository in a pain-free way.
This enables us to better manage our =.git= projects.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package projectile
:bind ("C-c p" . 'projectile-command-map)
:init (projectile-mode 1)
@@ -855,7 +854,7 @@ This enables us to better manage our =.git= projects.
*** Display keyboard shortcuts on screen
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package which-key
:init (which-key-mode))
#+END_SRC
@@ -866,21 +865,21 @@ This enables us to better manage our =.git= projects.
algorithms and heuristics to provide a very educated guess on the location of a
symbol's definition.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package dumb-jump)
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
#+END_SRC
*** Graphical representation of file history
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package undo-tree)
(global-undo-tree-mode)
#+END_SRC
*** Auto-completion framework
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package ivy
:config (setq ivy-use-virtual-buffers t
ivy-count-format "%d/%d "
@@ -892,7 +891,7 @@ symbol's definition.
Wonderful counsellor!
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package counsel
:bind ("M-x" . counsel-M-x)
:config (counsel-mode t))
@@ -902,7 +901,7 @@ symbol's definition.
**** Searching for items
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package swiper
:bind (("C-f" . counsel-grep-or-swiper)))
#+END_SRC
@@ -911,7 +910,7 @@ symbol's definition.
*** =csv= and Excel
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package csv-mode)
#+END_SRC
@@ -920,7 +919,7 @@ symbol's definition.
Org mode shines particularly when exporting to PDF---Org files can reliably be
shared and exported to PDF in a reproducible fashion.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package pdf-tools)
;; (pdf-tools-install)
#+END_SRC
@@ -931,7 +930,7 @@ Ledger is a creation of John Wiegley's. It enables double-entry accounting in a
simple plaintext format, and reliable verification of account balances through
time.[fn::For more information, visit https://www.ledger-cli.org/.]
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package ledger-mode
:bind
("C-c r" . ledger-report)
@@ -941,7 +940,7 @@ time.[fn::For more information, visit https://www.ledger-cli.org/.]
These reports can be generated within Emacs. It is quite useful to pipe their
output to an automated ``smart document''.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq ledger-reports
'(("bal" "%(binary) -f %(ledger-file) bal")
("bal-USD" "%(binary) -f %(ledger-file) bal --exchange USD")
@@ -955,7 +954,7 @@ output to an automated ``smart document''.
*** Plotting & charting
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package gnuplot)
#+END_SRC
@@ -965,7 +964,7 @@ output to an automated ``smart document''.
We replace the standard welcome screen with our own.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq inhibit-startup-message t)
(use-package dashboard
:config
@@ -976,17 +975,10 @@ We replace the standard welcome screen with our own.
(setq dashboard-banner-logo-title "A modern professional text editor."))
#+END_SRC
-*** TODO Mode line
-
-#+NAME: powerline
-#+BEGIN_SRC emacs-lisp
- (use-package powerline)
-#+END_SRC
-
*** TODO Sidebar
Get inspiration from ~ibuffer-sidebar~ and create a better sidebar.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
;; (load-file)
#+END_SRC
@@ -994,17 +986,17 @@ Get inspiration from ~ibuffer-sidebar~ and create a better sidebar.
Icon fonts
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package all-the-icons)
#+END_SRC
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package mode-icons)
#+END_SRC
*** Better parentheses
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package rainbow-delimiters
:config (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
(electric-pair-mode)
@@ -1015,7 +1007,7 @@ Icon fonts
This highlights hexadecimal numbers which look like colors, in that same color.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package rainbow-mode
:init
(add-hook 'prog-mode-hook 'rainbow-mode))
@@ -1023,7 +1015,7 @@ This highlights hexadecimal numbers which look like colors, in that same color.
*** UTF-8 bullet points in =Org mode=
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(use-package org-bullets
:config
(when (string-equal system-type "gnu/linux")
@@ -1039,7 +1031,7 @@ In this section, we'll implement useful one-click workflows.
This reimplements the most common Org mode export: Org \rightarrow LaTeX
\rightarrow PDF. The binding is defined in Section [[Export to PDF]].
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(defun my/org-quick-export ()
"Org async export to PDF and open.
This basically reimplements `C-c C-e C-a l o'."
@@ -1058,7 +1050,7 @@ changes not brought about a specific package.
This is just a better default. Don't @ me.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq c-default-style "linux"
c-basic-offset 4)
#+END_SRC
@@ -1068,7 +1060,7 @@ This is just a better default. Don't @ me.
The keybinding for opening a recently visited file is described in paragraph
[[Open a recently visited file]].
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(recentf-mode 1)
(setq recentf-max-menu-items 25)
(setq recentf-max-saved-items 25)
@@ -1110,7 +1102,7 @@ This is pretty much a gutted out powerline.
Save cursor location in visited buffer after closing it or Emacs.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(save-place-mode 1)
#+END_SRC
@@ -1119,13 +1111,13 @@ Save cursor location in visited buffer after closing it or Emacs.
A line of text is considered ``filled'' when it reaches 79 characters in
length.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq-default fill-column 79)
#+END_SRC
Automatically break lines longer than =fill-column=.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(add-hook 'org-mode-hook 'turn-on-auto-fill)
#+END_SRC
@@ -1136,7 +1128,7 @@ Automatically break lines longer than =fill-column=.
We want the Emacs Lisp keyword =lambda= to be rendered as \lambda within the
editor. This is mostly for a subjective ``cool'' factor.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(global-prettify-symbols-mode 1)
#+END_SRC
@@ -1145,7 +1137,7 @@ editor. This is mostly for a subjective ``cool'' factor.
Let's pimp out the appearance of our text in Org mode. First, we prettify
checkbox lists.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(when (string-equal system-type "gnu/linux")
(add-hook 'org-mode-hook
(lambda ()
@@ -1160,13 +1152,13 @@ checkbox lists.
We replace the longer ~yes-or-no-p~ questions with more convenient ~y-or-n-p~.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(defalias 'yes-or-no-p 'y-or-n-p)
#+END_SRC
Disable minibuffer scroll bar.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(set-window-scroll-bars (minibuffer-window) nil nil)
#+END_SRC
@@ -1175,7 +1167,7 @@ Disable minibuffer scroll bar.
Without a carefully designed theme, our editor would become unusable. Thus, we
describe two themes that were developed purposefully and iteratively.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq custom-theme-directory (concat user-emacs-directory "themes/"))
(load-theme 'blendoit-light)
; (load-theme 'blendoit-dark)
@@ -1227,7 +1219,7 @@ the cursor becomes a high-visibility box.
In files containing a mix of ~variable-pitch~ and ~fixed-pitch~ fonts, the
cursor is a more MS Word-like bar.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(setq-default cursor-type 'bar)
#+END_SRC
@@ -1268,7 +1260,7 @@ cursor is a more MS Word-like bar.
We use ~variable-pitch-mode~ for appropriate modes.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
(add-hook 'org-mode-hook 'variable-pitch-mode)
(add-hook 'info-mode-hook 'variable-pitch-mode)
#+END_SRC
@@ -1278,7 +1270,7 @@ We use ~variable-pitch-mode~ for appropriate modes.
Make default font size larger on displays of which the resolution is greater
than 1920\times1080.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
#+END_SRC
** TODO ~minimal~
@@ -1291,13 +1283,13 @@ profiling.
** Profiling --- stop
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
;; (profiler-stop)
#+END_SRC
** Profiling --- report
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle yes
;; (profiler-report)
#+END_SRC
Copyright 2019--2024 Marius PETER