[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Theme lookin' good B-)
Changed files
blendoit-theme.el
@@ -1,95 +0,0 @@
1
Removed:
(deftheme blendoit
2
Removed:
"Tasteful blue theme")
3
Removed:
4
Removed:
(custom-theme-set-variables
5
Removed:
'blendoit
6
Removed:
'(ansi-color-names-vector ["#3F3F3F" "#CC9393" "#7F9F7F" "#F0DFAF" "#8CD0D3" "#DC8CC3" "#93E0E3" "#DCDCCC"])
7
Removed:
'(cua-mode t)
8
Removed:
'(ibuffer-sidebar-display-column-titles nil)
9
Removed:
'(ibuffer-sidebar-display-summary nil)
10
Removed:
'(ibuffer-sidebar-width 18)
11
Removed:
'(mixed-pitch-variable-pitch-cursor (quote bar))
12
Removed:
'(org-agenda-diary-file "~/org/PERSONAL/diary/diary.org")
13
Removed:
'(org-babel-load-languages (quote ((shell . t) (python . t) (plantuml . t) (emacs-lisp . t) (awk . t) (ledger . t) (gnuplot . t))))
14
Removed:
'(org-file-apps (quote ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . "mupdf %s"))))
15
Removed:
'(org-latex-classes (quote (("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[12pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book-blendoit" "\\documentclass[12pt]{book}" ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection*{%s}" . "\\subsection*{%s}") ("\\subsubsection*{%s}" . "\\subsubsection*{%s}")))))
16
Removed:
'(org-latex-inactive-timestamp-format "\\textcolor{ForestGreen!60}{\\textit{%s}}")
17
Removed:
'(org-latex-packages-alist (quote (quote (("AUTO" "polyglossia" t ("xelatex" "lualatex")) ("AUTO" "babel" t ("pdflatex")) ("table,dvipsnames" "xcolor" t ("pdflatex"))))))
18
Removed:
'(org-latex-pdf-process (quote ("latexmk -pdf -f -interaction=nonstopmode -pdflatex=\"%latex\" -outdir=%o %f")))
19
Removed:
'(org-latex-toc-command "\\tableofcontents\\clearpage")
20
Removed:
'(org-startup-align-all-tables t)
21
Removed:
'(org-time-stamp-custom-formats (quote ("%d %b, %Y (%a)" . "%d %b, %Y (%a), at %H:%M")))
22
Removed:
'(package-selected-packages (quote (linum-relative dumb-jump csv-mode rainbow-mode org-mouse projectile minimap gnuplot ledger-mode company-mode wombat-theme wombar-theme which-key srefactor-lisp srefactor all-the-icons flycheck ibuffer-sidebar pdf-tools magit rainbow-delimiters smartparens mixed-pitch org-bullets use-package tabbar powerline ivy-hydra flatui-theme evil counsel company benchmark-init)))
23
Removed:
'(pdf-view-midnight-colors (quote ("#DCDCCC" . "#383838")))
24
Removed:
'(send-mail-function (quote smtpmail-send-it))
25
Removed:
'(window-divider-default-places (quote right-only))
26
Removed:
'(custom-safe-themes (quote (default)))
27
Removed:
'(message-required-headers (quote ((optional . References) From)))
28
Removed:
'(line-number-mode nil)
29
Removed:
'(save-place-mode t))
30
Removed:
31
Removed:
(custom-theme-set-faces
32
Removed:
'blendoit
33
Removed:
'(cursor ((t (:background "red"))))
34
Removed:
'(fixed-pitch ((t (:family "Hack"))))
35
Removed:
'(highlight ((t (:background "dim gray" :foreground "white"))))
36
Removed:
'(org-document-title ((t (:inherit default :weight bold :height 2.0 :underline nil))))
37
Removed:
'(org-level-1 ((t (:height 1.75 :weight bold :inherit default))))
38
Removed:
'(org-level-2 ((t (:height 1.5 :weight bold :inherit default))))
39
Removed:
'(org-level-3 ((t (:height 1.25 :weight bold :inherit default))))
40
Removed:
'(org-level-4 ((t (:height 1.1 :weight bold :inherit default))))
41
Removed:
'(org-level-5 ((t (:inherit default :weight bold))))
42
Removed:
'(org-level-6 ((t (:weight bold :inherit default))))
43
Removed:
'(org-level-7 ((t (:weight bold :inherit default))))
44
Removed:
'(org-level-8 ((t (:weight bold :inherit default))))
45
Removed:
'(variable-pitch ((t (:family "Dejavu Sans"))))
46
Removed:
'(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
47
Removed:
'(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
48
Removed:
'(minibuffer-prompt ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "medium blue"))))
49
Removed:
'(region ((((class color) (min-colors 88) (background dark)) (:background "blue3")) (((class color) (min-colors 88) (background light) (type gtk)) (:background "gtk_selection_bg_color" :distant-foreground "gtk_selection_fg_color")) (((class color) (min-colors 88) (background light) (type ns)) (:background "ns_selection_bg_color" :distant-foreground "ns_selection_fg_color")) (((class color) (min-colors 88) (background light)) (:background "lightgoldenrod2")) (((class color) (min-colors 16) (background dark)) (:background "blue3")) (((class color) (min-colors 16) (background light)) (:background "lightgoldenrod2")) (((class color) (min-colors 8)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray"))))
50
Removed:
'(shadow ((t (:foreground "dim gray"))))
51
Removed:
'(secondary-selection ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:background "yellow")) (((class color) (min-colors 16) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 8)) (:foreground "black" :background "cyan")) (t (:inverse-video t))))
52
Removed:
'(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
53
Removed:
'(font-lock-builtin-face ((((class grayscale) (background light)) (:weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "dark slate blue")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Orchid")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold))))
54
Removed:
'(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face))))
55
Removed:
'(font-lock-comment-face ((t (:foreground "dim gray" :slant italic))))
56
Removed:
'(font-lock-constant-face ((((class grayscale) (background light)) (:underline (:color foreground-color :style line) :weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:underline (:color foreground-color :style line) :weight bold :foreground "Gray50")) (((class color) (min-colors 88) (background light)) (:foreground "dark cyan")) (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 8)) (:foreground "magenta")) (t (:underline (:color foreground-color :style line) :weight bold))))
57
Removed:
'(font-lock-doc-face ((t (:inherit font-lock-string-face))))
58
Removed:
'(font-lock-function-name-face ((t (:foreground "Blue1"))))
59
Removed:
'(font-lock-keyword-face ((t (:foreground "DodgerBlue3"))))
60
Removed:
'(font-lock-negation-char-face ((t nil)))
61
Removed:
'(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
62
Removed:
'(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
63
Removed:
'(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
64
Removed:
'(font-lock-string-face ((t (:foreground "lime green"))))
65
Removed:
'(font-lock-type-face ((((class grayscale) (background light)) (:weight bold :foreground "Gray90")) (((class grayscale) (background dark)) (:weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "ForestGreen")) (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 16) (background light)) (:foreground "ForestGreen")) (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen")) (((class color) (min-colors 8)) (:foreground "green")) (t (:underline (:color foreground-color :style line) :weight bold))))
66
Removed:
'(font-lock-variable-name-face ((((class grayscale) (background light)) (:slant italic :weight bold :foreground "Gray90")) (((class grayscale) (background dark)) (:slant italic :weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "sienna")) (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 8)) (:weight light :foreground "yellow")) (t (:slant italic :weight bold))))
67
Removed:
'(font-lock-warning-face ((t (:inherit (error)))))
68
Removed:
'(button ((t (:inherit link))))
69
Removed:
'(fringe ((t (:background "grey95"))))
70
Removed:
'(header-line ((t (:box nil :foreground "grey20" :background "grey90" :inherit (mode-line)))))
71
Removed:
'(tooltip ((t (:inherit variable-pitch :foreground "DodgerBlue3"))))
72
Removed:
'(mode-line ((t (:background "gray" :foreground "black" :box (:line-width -1 :style released-button) :weight bold))))
73
Removed:
'(mode-line-buffer-id ((t (:weight bold))))
74
Removed:
'(mode-line-emphasis ((t (:weight bold))))
75
Removed:
'(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))) (t (:inherit (highlight)))))
76
Removed:
'(mode-line-inactive ((t (:inherit mode-line :background "gainsboro" :weight light))))
77
Removed:
'(isearch ((t (:stipple nil :background "yellow" :foreground "black" :weight bold))))
78
Removed:
'(isearch-fail ((t (:background "RosyBrown1"))))
79
Removed:
'(lazy-highlight ((t (:inherit isearch))))
80
Removed:
'(match ((t (:background "light yellow"))))
81
Removed:
'(next-error ((t (:inherit (region)))))
82
Removed:
'(query-replace ((t (:inherit isearch))))
83
Removed:
'(org-date ((t (:foreground "blue" :underline t))))
84
Removed:
'(org-table ((t (:box (:line-width 1 :color "dark gray") :foreground "black"))))
85
Removed:
'(org-meta-line ((t (:foreground "royal blue"))))
86
Removed:
'(org-footnote ((t (:inherit org-meta-line))))
87
Removed:
'(swiper-line-face ((t nil)))
88
Removed:
'(org-document-info ((t (:foreground "royal blue"))))
89
Removed:
'(org-document-info-keyword ((t (:inherit shadow))))
90
Removed:
'(link ((t (:foreground "blue" :underline t))))
91
Removed:
'(org-todo ((t (:foreground "Red1" :box 2 :weight bold))))
92
Removed:
'(org-done ((t (:foreground "ForestGreen" :box 2 :weight bold))))
93
Removed:
'(default ((t (:inherit nil :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 122 :width normal :foundry "UKWN" :family "Hermit")))))
94
Removed:
95
Removed:
(provide-theme 'blendoit)
blendoit/blendoit-init.org
@@ -0,0 +1,974 @@
1
Added:
#+TITLE: Blendoit's literate GNU Emacs config
2
Added:
#+AUTHOR: Marius Peter
3
Added:
#+DATE: <2020-07-23 Thu>
4
Added:
5
Added:
#+STARTUP: customtime showall
6
Added:
#+SETUPFILE: ~/org/templates/documents/personal.org
7
Added:
8
Added:
#+INCLUDE: ~/org/templates/documents/personal-title.org
9
Added:
10
Added:
\begin{abstract}
11
Added:
GNU Emacs is most often used as a text editor. The utmost level of
12
Added:
customisation is afforded by enabling the user to rewrite /any/ part of the
13
Added:
source code and observe the editor's modified behaviour in real time. Since its
14
Added:
inception in 1984, GNU Emacs has grown to be much more than a full-featured,
15
Added:
high-productivity text editor---new /modes/ have been written to interact with
16
Added:
hundreds of file formats, including =.txt=, =.pdf=, =.jpg=, =.csv=, and =.zip= just to
17
Added:
name a few. This configuration file itself was written in /Org mode/, a
18
Added:
collection of functions enabling the harmonious mixing of code and comments in
19
Added:
view of publication: this is the endgame of /literate programming/.
20
Added:
\end{abstract}
21
Added:
22
Added:
# ** Test
23
Added:
24
Added:
# #+BEGIN_SRC emacs-lisp
25
Added:
# (org-babel-load-file "~/.emacs.d/blendoit/test.org")
26
Added:
# #+END_SRC
27
Added:
28
Added:
* Preliminary setup
29
Added:
30
Added:
** Garbage collection
31
Added:
32
Added:
First, we increase the RAM threshold beyond which the garbage collector is
33
Added:
activated.
34
Added:
35
Added:
#+NAME: garbage-collection
36
Added:
#+BEGIN_SRC emacs-lisp
37
Added:
(setq gc-cons-threshold 100000000)
38
Added:
#+END_SRC
39
Added:
40
Added:
** Emacs client
41
Added:
42
Added:
Makes opening emacs faster for following instances.
43
Added:
44
Added:
#+NAME: emacs-client
45
Added:
#+BEGIN_SRC emacs-lisp
46
Added:
47
Added:
; (setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
48
Added:
#+END_SRC
49
Added:
50
Added:
** Profiling --- start
51
Added:
52
Added:
We start the profiler now , and will interrupt it in section [[Profiling ---
53
Added:
stop]]. We will then present profiling report in [[Profiling --- report]].
54
Added:
55
Added:
#+NAME: profiler-start
56
Added:
#+BEGIN_SRC emacs-lisp
57
Added:
; (profiler-start)
58
Added:
#+END_SRC
59
Added:
60
Added:
** Custom file
61
Added:
62
Added:
Load settings created automatically by GNU Emacs Custom. (For example, any
63
Added:
clickable option/toggle is saved here.) Useful for fooling around with M-x
64
Added:
customize-group <package>.
65
Added:
66
Added:
#+NAME: custom-file
67
Added:
#+BEGIN_SRC emacs-lisp
68
Added:
(setq custom-file "~/.emacs.d/init-custom.el")
69
Added:
(load custom-file)
70
Added:
#+END_SRC
71
Added:
72
Added:
** Customization shortcuts
73
Added:
74
Added:
We begin by defining a user shortcut to this very file:
75
Added:
76
Added:
#+NAME: shortcut-config
77
Added:
#+BEGIN_SRC emacs-lisp
78
Added:
(defun find-init-blendoit ()
79
Added:
"Jump to this very file."
80
Added:
(interactive)
81
Added:
(find-file "~/.emacs.d/blendoit/blendoit-init.org"))
82
Added:
83
Added:
(global-set-key (kbd "C-c c") 'find-init-blendoit)
84
Added:
#+END_SRC
85
Added:
86
Added:
Now, different shortcuts for other customization actions:
87
Added:
88
Added:
#+NAME: shortcuts-customization
89
Added:
#+BEGIN_SRC emacs-lisp
90
Added:
(global-set-key (kbd "C-c v") 'customize-variable)
91
Added:
(global-set-key (kbd "C-c f") 'customize-face)
92
Added:
#+END_SRC
93
Added:
94
Added:
** Backups
95
Added:
96
Added:
Backups are so important that they should be described right after the shortcut
97
Added:
to this file.
98
Added:
99
Added:
#+BEGIN_SRC emacs-lisp
100
Added:
(setq backup-directory-alist `((".*" . ,temporary-file-directory))
101
Added:
auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
102
Added:
backup-by-copying t ; Don't delink hardlinks
103
Added:
version-control t ; Use version numbers on backups
104
Added:
delete-old-versions t ; Automatically delete excess backups
105
Added:
kept-new-versions 20 ; how many of the newest versions to keep
106
Added:
kept-old-versions 5 ; and how many of the old
107
Added:
)
108
Added:
#+END_SRC
109
Added:
110
Added:
** Secrets
111
Added:
112
Added:
#+INCLUDE: ./secrets.org
113
Added:
114
Added:
#+BEGIN_SRC emacs-lisp
115
Added:
(setq user-full-name "Marius Peter"
116
Added:
user-mail-address "blendoit@gmail.com")
117
Added:
#+END_SRC
118
Added:
119
Added:
* Global key bindings
120
Added:
121
Added:
The following bindings strive to further enhance CUA[fn::Common User Access.]
122
Added:
mode.
123
Added:
124
Added:
** Navigation
125
Added:
126
Added:
#+BEGIN_SRC emacs-lisp
127
Added:
(global-set-key (kbd "C-`") 'delete-other-windows)
128
Added:
(global-set-key (kbd "C-s") 'save-buffer)
129
Added:
(global-set-key (kbd "C-b") 'ibuffer-sidebar-toggle-sidebar)
130
Added:
(global-set-key (kbd "C-o") 'menu-find-file-existing)
131
Added:
(global-set-key (kbd "C-r") 'counsel-recentf)
132
Added:
; (global-set-key (kbd "C-n") 'make-frame) ; 7aram!
133
Added:
#+END_SRC
134
Added:
135
Added:
The following bindings lead to more natural exit behaviors.
136
Added:
137
Added:
#+BEGIN_SRC emacs-lisp
138
Added:
(defun delete-window-or-previous-buffer ()
139
Added:
"Delete window; if sole window, previous buffer."
140
Added:
(interactive)
141
Added:
(if (> (length (window-list)) 2)
142
Added:
(delete-window)
143
Added:
(previous-buffer)))
144
Added:
145
Added:
(global-set-key (kbd "C-w") 'delete-window-or-previous-buffer)
146
Added:
(global-set-key (kbd "C-q") 'save-buffers-kill-terminal)
147
Added:
#+END_SRC
148
Added:
149
Added:
** Mouse zoom
150
Added:
151
Added:
Zoom in/out of selected buffer using Alt + mouse wheel.
152
Added:
153
Added:
#+BEGIN_SRC emacs-lisp
154
Added:
(global-set-key [M-mouse-4] 'text-scale-increase)
155
Added:
(global-set-key [M-mouse-5] 'text-scale-decrease)
156
Added:
#+END_SRC
157
Added:
158
Added:
* Packages
159
Added:
160
Added:
** Package archives
161
Added:
162
Added:
List of package archives.
163
Added:
164
Added:
#+NAME: packages
165
Added:
#+BEGIN_SRC emacs-lisp
166
Added:
(require 'package)
167
Added:
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
168
Added:
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
169
Added:
(package-initialize)
170
Added:
#+END_SRC
171
Added:
172
Added:
** use-package
173
Added:
174
Added:
Ensure =use-package= is installed, as well as all packages described in this
175
Added:
configuration file.
176
Added:
177
Added:
#+BEGIN_SRC emacs-lisp
178
Added:
(unless (package-installed-p 'use-package)
179
Added:
(package-refresh-contents)
180
Added:
(package-install 'use-package)
181
Added:
(eval-when-compile (require 'use-package)))
182
Added:
(setq use-package-always-ensure t)
183
Added:
#+END_SRC
184
Added:
185
Added:
** Convenient package update
186
Added:
187
Added:
One-function rollup of upgradeable package tagging, download and lazy install.
188
Added:
189
Added:
** Ivy
190
Added:
191
Added:
Auto completion.
192
Added:
193
Added:
#+BEGIN_SRC emacs-lisp
194
Added:
(use-package ivy
195
Added:
:config
196
Added:
(setq ivy-use-virtual-buffers t
197
Added:
ivy-count-format "%d/%d "
198
Added:
enable-recursive-minibuffers t))
199
Added:
(ivy-mode t)
200
Added:
#+END_SRC
201
Added:
202
Added:
** Evil
203
Added:
204
Added:
Forgive me, for I have sinned.
205
Added:
206
Added:
#+BEGIN_SRC emacs-lisp
207
Added:
(use-package evil)
208
Added:
;; (evil-mode 1)
209
Added:
#+END_SRC
210
Added:
211
Added:
*** Counsel
212
Added:
213
Added:
Wonderful counsellor!
214
Added:
215
Added:
#+BEGIN_SRC emacs-lisp
216
Added:
(use-package counsel
217
Added:
:bind ("M-x" . counsel-M-x)
218
Added:
:config (counsel-mode t))
219
Added:
220
Added:
(global-set-key (kbd "C-f") 'counsel-grep-or-swiper)
221
Added:
#+END_SRC
222
Added:
223
Added:
*** Swiper
224
Added:
225
Added:
#+BEGIN_SRC emacs-lisp
226
Added:
(use-package swiper
227
Added:
:bind (("C-f" . counsel-grep-or-swiper)))
228
Added:
#+END_SRC
229
Added:
230
Added:
** Org
231
Added:
232
Added:
Phew, I can finally introduce Org mode! I am so *excited*.
233
Added:
234
Added:
Org mode replaces aword processor, a presentation creator, and a spreadsheet
235
Added:
editor. IMHO, the spreadsheet ability captures more than 80% use cases wherein
236
Added:
one wishes to include a table in a text document destined for physical
237
Added:
publication. (It is clear that Excel spreadsheets are /not/ destined for physical
238
Added:
publication---simply attempt to print an Excel spreadsheet with the default
239
Added:
settings.) In my opinion, Org mode matches all /useful/ features of the
240
Added:
Microsoft Office suite 1-to-1.
241
Added:
242
Added:
What follows are customizations designed to make Org mode behave more like
243
Added:
Microsoft Word. The end goal is, once again, to draw as many new users to Emacs
244
Added:
as possible!
245
Added:
246
Added:
*** Basic customization
247
Added:
248
Added:
First, we hide markup symbols for *bold*, /italic/, _underlined_ and +strikethrough+
249
Added:
text, and ensure our document appears indented upon loading:[fn::It /appears/
250
Added:
indented, but the underlying plaintext file does not contain tab characters!]
251
Added:
252
Added:
#+NAME: org-basic
253
Added:
#+BEGIN_SRC emacs-lisp
254
Added:
(setq org-hide-emphasis-markers t)
255
Added:
(setq org-startup-indented t)
256
Added:
#+END_SRC
257
Added:
258
Added:
Then, we customize Org headings to emulate WYSIWYG[fn::What You See Is What You
259
Added:
Get (input and output are identical), as opposed to What You See Is What You
260
Added:
Mean (the input contains instructions that can modify the output).] behavior
261
Added:
normally found in Word:
262
Added:
263
Added:
#+NAME: org-list-bullets
264
Added:
#+BEGIN_SRC emacs-lisp
265
Added:
(setq org-directory "~/org")
266
Added:
(font-lock-add-keywords
267
Added:
'org-mode
268
Added:
'(("^ *\\([-]\\) "
269
Added:
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
270
Added:
#+END_SRC
271
Added:
272
Added:
- Look at
273
Added:
- This beautifully indented
274
Added:
- List...
275
Added:
- Of lists!
276
Added:
- (Rendered with pretty bullets in Emacs)
277
Added:
278
Added:
The following prettifies Org mode heading bullets:
279
Added:
280
Added:
#+NAME: org-headings-bullets
281
Added:
#+BEGIN_SRC emacs-lisp
282
Added:
(use-package org-bullets
283
Added:
:hook
284
Added:
(org-mode . org-bullets-mode)
285
Added:
)
286
Added:
#+END_SRC
287
Added:
288
Added:
Thank you Diego
289
Added:
Zamboni![fn::https://zzamboni.org/post/beautifying-org-mode-in-emacs/]
290
Added:
291
Added:
#+NAME: org-cosmetics
292
Added:
#+BEGIN_SRC emacs-lisp
293
Added:
;; (let* ((variable-tuple
294
Added:
;; (cond ((x-list-fonts "Dejavu Sans") '(:font "Dejavu Sans"))
295
Added:
;; ((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
296
Added:
;; (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
297
Added:
;; (base-font-color (face-foreground 'default nil 'default))
298
Added:
;; (headline `(:inherit default :weight bold)))
299
Added:
300
Added:
;; (custom-theme-set-faces
301
Added:
;; 'user
302
Added:
;; `(org-level-8 ((t (,@headline ,@variable-tuple))))
303
Added:
;; `(org-level-7 ((t (,@headline ,@variable-tuple))))
304
Added:
;; `(org-level-6 ((t (,@headline ,@variable-tuple))))
305
Added:
;; `(org-level-5 ((t (,@headline ,@variable-tuple))))
306
Added:
;; `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
307
Added:
;; `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
308
Added:
;; `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.5))))
309
Added:
;; `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
310
Added:
;; `(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
311
Added:
312
Added:
;(custom-theme-set-faces
313
Added:
; 'user
314
Added:
; '(variable-pitch ((t (:family "Liberation Sans"))))
315
Added:
; '(fixed-pitch ((t ( :family "Hack")))))
316
Added:
317
Added:
#+END_SRC
318
Added:
319
Added:
*** Invisible edits
320
Added:
321
Added:
#+BEGIN_SRC emacs-lisp
322
Added:
(setq org-catch-invisible-edits t)
323
Added:
#+END_SRC
324
Added:
325
Added:
*** Agenda
326
Added:
327
Added:
The agenda displays a chronological list of headings across all agenda files
328
Added:
for which the heading or body contain a matching =org-time-stamp=.[fn::An
329
Added:
=org-time-stamp= can be inserted with =C-c .= (period)]
330
Added:
331
Added:
#+BEGIN_SRC emacs-lisp
332
Added:
(global-set-key (kbd "C-c a") 'org-agenda)
333
Added:
#+END_SRC
334
Added:
335
Added:
*** Publish
336
Added:
337
Added:
In the following /alist/ (association list), we describe the projects publishable
338
Added:
via =org-publish=. We separate the publishing of =.org= files and attachments,
339
Added:
because an online tutorial recommended we do so.
340
Added:
341
Added:
#+BEGIN_SRC emacs-lisp
342
Added:
(require 'ox-publish)
343
Added:
(setq org-publish-project-alist
344
Added:
'(
345
Added:
("Safran-VIP-html"
346
Added:
:base-directory "~/org/WORK/Safran/programs/B787/VIP/doc/org/"
347
Added:
:base-extension "org"
348
Added:
:publishing-directory "~/org/WORK/Safran/programs/B787/VIP/doc/wiki/"
349
Added:
:recursive t
350
Added:
:publishing-function org-html-publish-to-html
351
Added:
:auto-preamble t
352
Added:
:auto-sitemap t
353
Added:
:sitemap-title "" )
354
Added:
355
Added:
("Safran-VIP-static"
356
Added:
:base-directory "~/org/WORK/Safran/programs/B787/VIP/doc/org/"
357
Added:
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|mp4\\|ogg\\|swf"
358
Added:
:publishing-directory "~/org/WORK/Safran/programs/B787/VIP/doc/wiki/"
359
Added:
:recursive t
360
Added:
:publishing-function org-publish-attachment )
361
Added:
362
Added:
("Safran-VIP-all"
363
Added:
:components ("Safran-VIP-html" "Safran-VIP-static"))
364
Added:
365
Added:
("Safran-MA700-html"
366
Added:
:base-directory "~/org/WORK/Safran/programs/MA700/doc/org/"
367
Added:
:base-extension "org"
368
Added:
:publishing-directory "~/org/WORK/Safran/programs/MA700/doc/wiki/"
369
Added:
:recursive t
370
Added:
:publishing-function org-html-publish-to-html
371
Added:
:auto-preamble t
372
Added:
:auto-sitemap t
373
Added:
:sitemap-title "" )
374
Added:
375
Added:
("Safran-MA700-static"
376
Added:
:base-directory "~/org/WORK/Safran/programs/MA700/doc/org/"
377
Added:
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|mp4\\|ogg\\|swf"
378
Added:
:publishing-directory "~/org/WORK/Safran/programs/MA700/doc/wiki/"
379
Added:
:recursive t
380
Added:
:publishing-function org-publish-attachment )
381
Added:
382
Added:
("Safran-MA700-all"
383
Added:
:components ("Safran-MA700-html" "Safran-MA700-static"))))
384
Added:
385
Added:
(add-to-list 'org-latex-packages-alist '("table" "xcolor"
386
Added:
t ("pdflatex")))
387
Added:
(add-to-list 'org-latex-packages-alist '("AUTO" "babel"
388
Added:
t ("pdflatex")))
389
Added:
(add-to-list 'org-latex-packages-alist '("AUTO" "polyglossia"
390
Added:
t ("xelatex" "lualatex")))
391
Added:
#+END_SRC
392
Added:
393
Added:
*** Export
394
Added:
395
Added:
This creates a shorter binding for the most common Org export: Org \rightarrow
396
Added:
LaTeX \rightarrow PDF.
397
Added:
398
Added:
#+BEGIN_SRC emacs-lisp
399
Added:
(defun blendoit-org-quick-export ()
400
Added:
"Org export to PDF and open.
401
Added:
This basically reimplements `C-c C-e l o'."
402
Added:
(interactive)
403
Added:
(org-latex-export-to-pdf)
404
Added:
(org-open-file
405
Added:
(concat (substring buffer-file-truename 0 -3) "pdf")))
406
Added:
407
Added:
(global-set-key (kbd "C-c e") 'blendoit-org-quick-export)
408
Added:
#+END_SRC
409
Added:
410
Added:
** undo tree
411
Added:
412
Added:
#+BEGIN_SRC emacs-lisp
413
Added:
(global-undo-tree-mode)
414
Added:
#+END_SRC
415
Added:
416
Added:
** dumb jump
417
Added:
418
Added:
#+BEGIN_SRC emacs-lisp
419
Added:
(use-package dumb-jump)
420
Added:
#+END_SRC
421
Added:
422
Added:
** gnuplot
423
Added:
424
Added:
#+BEGIN_SRC emacs-lisp
425
Added:
(use-package gnuplot)
426
Added:
#+END_SRC
427
Added:
428
Added:
** Ledger
429
Added:
430
Added:
#+BEGIN_SRC emacs-lisp
431
Added:
(use-package ledger-mode
432
Added:
:bind
433
Added:
("C-c r" . ledger-report)
434
Added:
("C-c C" . ledger-mode-clean-buffer))
435
Added:
#+END_SRC
436
Added:
437
Added:
** ibuffer-sidebar
438
Added:
439
Added:
#+BEGIN_SRC emacs-lisp
440
Added:
(use-package ibuffer-sidebar)
441
Added:
(ibuffer-sidebar-show-sidebar)
442
Added:
443
Added:
; :bind ("mouse-1" . ibuffer-mouse-visit-buffer)
444
Added:
; :bind ("mouse-3" . ibuffer-mouse-toggle-mark))
445
Added:
446
Added:
; (add-hook 'ibuffer-sidebar-mode-hook
447
Added:
; (lambda ()
448
Added:
; (local-unset-key (quote mouse-1))
449
Added:
; (local-unset-key (quote mouse-2))
450
Added:
; (local-set-key (quote mouse-1) (quote ibuffer-mouse-visit-buffer))
451
Added:
; (local-set-key (quote mouse-2) (quote ibuffer-mouse-toggle-mark))))
452
Added:
#+END_SRC
453
Added:
454
Added:
** Which-key
455
Added:
456
Added:
#+BEGIN_SRC emacs-lisp
457
Added:
(use-package which-key
458
Added:
:init
459
Added:
(which-key-mode)
460
Added:
;; :config
461
Added:
;; (setq which-key-idle-delay 1000)
462
Added:
;; (setq which-key-idle-secondary-delay 0.05)
463
Added:
;; (setq which-key-show-early-on-C-h t)
464
Added:
)
465
Added:
#+END_SRC
466
Added:
467
Added:
** Company
468
Added:
469
Added:
#+NAME: company
470
Added:
#+BEGIN_SRC emacs-lisp
471
Added:
(add-hook 'after-init-hook 'global-company-mode)
472
Added:
#+END_SRC
473
Added:
474
Added:
** Flycheck
475
Added:
476
Added:
#+NAME: flycheck
477
Added:
#+BEGIN_SRC emacs-lisp
478
Added:
(use-package flycheck
479
Added:
:init (global-flycheck-mode))
480
Added:
#+END_SRC
481
Added:
482
Added:
** CSV
483
Added:
484
Added:
#+BEGIN_SRC emacs-lisp
485
Added:
(use-package csv-mode)
486
Added:
#+END_SRC
487
Added:
488
Added:
* JSON
489
Added:
490
Added:
Oí, Jason!
491
Added:
492
Added:
#+BEGIN_SRC emacs-lisp
493
Added:
(use-package json-mode)
494
Added:
#+END_SRC
495
Added:
496
Added:
** Magit
497
Added:
498
Added:
#+BEGIN_SRC emacs-lisp
499
Added:
(use-package magit
500
Added:
:bind ("C-c g" . magit-status))
501
Added:
#+END_SRC
502
Added:
503
Added:
** PDF-tools
504
Added:
505
Added:
#+BEGIN_SRC emacs-lisp
506
Added:
(use-package pdf-tools
507
Added:
:config (pdf-loader-install))
508
Added:
#+END_SRC
509
Added:
510
Added:
** Dashboard
511
Added:
512
Added:
We replace the standard welcome screen with our own.
513
Added:
514
Added:
#+BEGIN_SRC emacs-lisp
515
Added:
(setq inhibit-startup-message t)
516
Added:
(use-package dashboard
517
Added:
:config
518
Added:
(dashboard-setup-startup-hook)
519
Added:
(setq dashboard-startup-banner "~/.emacs.d/blendoit/img/Safran_logo.svg")
520
Added:
(setq dashboard-items '((recents . 5)
521
Added:
(projects . 5)))
522
Added:
(setq dashboard-banner-logo-title "The editor for the 2nd millenium."))
523
Added:
#+END_SRC
524
Added:
525
Added:
** rainbow
526
Added:
527
Added:
This highlights hexadecimal numbers which look like colors, in that same color.
528
Added:
529
Added:
#+BEGIN_SRC emacs-lisp
530
Added:
(use-package rainbow-mode
531
Added:
:ensure t
532
Added:
:init
533
Added:
(add-hook 'prog-mode-hook 'rainbow-mode))
534
Added:
#+END_SRC
535
Added:
536
Added:
** Projectile
537
Added:
538
Added:
This enables us to better manage our =.git= projects.
539
Added:
540
Added:
#+BEGIN_SRC emacs-lisp
541
Added:
(use-package projectile
542
Added:
:bind ("C-c p" . 'projectile-command-map)
543
Added:
:init (projectile-mode 1)
544
Added:
(setq projectile-completion-system 'ivy))
545
Added:
#+END_SRC
546
Added:
547
Added:
** Better parentheses
548
Added:
549
Added:
#+BEGIN_SRC emacs-lisp
550
Added:
(show-paren-mode 1)
551
Added:
552
Added:
(use-package smartparens
553
Added:
:config
554
Added:
(add-hook 'prog-mode-hook #'smartparens-mode))
555
Added:
556
Added:
(use-package rainbow-delimiters
557
Added:
:config
558
Added:
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
559
Added:
#+END_SRC
560
Added:
561
Added:
* Cosmetics
562
Added:
563
Added:
** Faces & cursors
564
Added:
565
Added:
In order to imitate other modern text editors, we'll resort to a blinking bar
566
Added:
cursor. We choose red, the most captivating color, because the cursor is
567
Added:
arguably the region on our screen:
568
Added:
569
Added:
1. most often looked at;
570
Added:
2. most often searched when lost.
571
Added:
572
Added:
The default cursor already blinks.
573
Added:
574
Added:
*** Default cursor
575
Added:
576
Added:
In files containing only fixed-pitch fonts (i.e. files containing only code),
577
Added:
the cursor becomes a high-visibility box.
578
Added:
579
Added:
#+BEGIN_SRC emacs-lisp
580
Added:
(setq-default cursor-type (quote box))
581
Added:
#+END_SRC
582
Added:
583
Added:
*** Mixed pitch in Org mode
584
Added:
585
Added:
Fixed-pitch and variable-pitch fonts will be used intelligently in all hooked
586
Added:
modes.
587
Added:
588
Added:
#+BEGIN_SRC emacs-lisp
589
Added:
(use-package mixed-pitch
590
Added:
:hook ((org-mode . mixed-pitch-mode)
591
Added:
(Info-mode . mixed-pitch-mode)))
592
Added:
#+END_SRC
593
Added:
594
Added:
** Initial frame
595
Added:
596
Added:
These settings affect the first and subsequent frames spawned by Emacs.
597
Added:
598
Added:
Thank you Xah Lee![fn::http://ergoemacs.org/emacs/emacs_customize_default_window_size.html]
599
Added:
600
Added:
#+BEGIN_SRC emacs-lisp
601
Added:
(if (display-graphic-p)
602
Added:
(progn
603
Added:
(setq initial-frame-alist
604
Added:
'(
605
Added:
(tool-bar-lines . 1)
606
Added:
(width . 100) ; chars
607
Added:
(height . 48) ; lines
608
Added:
(alpha . (90 . 50))))
609
Added:
(setq default-frame-alist
610
Added:
'(
611
Added:
(tool-bar-lines . 1)
612
Added:
(width . 100)
613
Added:
(height . 48)
614
Added:
(alpha . (90 . 50))))))
615
Added:
#+END_SRC
616
Added:
617
Added:
** Theme
618
Added:
619
Added:
#+BEGIN_SRC emacs-lisp
620
Added:
;; (use-package zenburn-theme
621
Added:
;; :config
622
Added:
;; (load-theme 'zenburn))
623
Added:
624
Added:
(load-theme 'blendoit-light)
625
Added:
#+END_SRC
626
Added:
627
Added:
** All the icons
628
Added:
629
Added:
#+BEGIN_SRC emacs-lisp
630
Added:
(use-package all-the-icons)
631
Added:
#+END_SRC
632
Added:
633
Added:
* Editing preferences
634
Added:
635
Added:
These customizations enhance editor usability.
636
Added:
637
Added:
#+BEGIN_SRC emacs-lisp
638
Added:
(setq-default fill-column 79)
639
Added:
(defalias 'yes-or-no-p 'y-or-n-p)
640
Added:
#+END_SRC
641
Added:
642
Added:
Disable minibuffer scroll bar.
643
Added:
644
Added:
#+BEGIN_SRC emacs-lisp
645
Added:
(set-window-scroll-bars (minibuffer-window) nil nil)
646
Added:
; (set-window-scroll-bars (ibuffer-sidebar-window) nil nil)
647
Added:
#+END_SRC
648
Added:
649
Added:
** Clean up menus
650
Added:
651
Added:
We reduce the burden on the user by reducing total amount of entries in GUI
652
Added:
menus.
653
Added:
654
Added:
*** File
655
Added:
656
Added:
#+BEGIN_SRC emacs-lisp
657
Added:
(define-key menu-bar-file-menu [dired] nil)
658
Added:
(define-key menu-bar-file-menu [print-buffer] nil)
659
Added:
(define-key menu-bar-file-menu [print-region] nil)
660
Added:
(define-key menu-bar-file-menu [ps-print-buffer-faces] nil)
661
Added:
(define-key menu-bar-file-menu [ps-print-region-faces] nil)
662
Added:
(define-key menu-bar-file-menu [ps-print-buffer] nil)
663
Added:
(define-key menu-bar-file-menu [ps-print-region] nil)
664
Added:
(define-key menu-bar-file-menu [split-window-below] nil)
665
Added:
(define-key menu-bar-file-menu [split-window-right] nil)
666
Added:
(define-key menu-bar-file-menu [dired] nil)
667
Added:
#+END_SRC
668
Added:
669
Added:
*** Edit
670
Added:
671
Added:
#+BEGIN_SRC emacs-lisp
672
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
673
Added:
(define-key menu-bar-file-menu [dired] nil)
674
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
675
Added:
#+END_SRC
676
Added:
677
Added:
*** Options
678
Added:
679
Added:
#+BEGIN_SRC emacs-lisp
680
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
681
Added:
(define-key menu-bar-file-menu [dired] nil)
682
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
683
Added:
#+END_SRC
684
Added:
685
Added:
*** Buffers
686
Added:
687
Added:
#+BEGIN_SRC emacs-lisp
688
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
689
Added:
(define-key menu-bar-file-menu [dired] nil)
690
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
691
Added:
#+END_SRC
692
Added:
693
Added:
*** Tools
694
Added:
695
Added:
#+BEGIN_SRC emacs-lisp
696
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
697
Added:
(define-key menu-bar-file-menu [dired] nil)
698
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
699
Added:
#+END_SRC
700
Added:
701
Added:
*** Org
702
Added:
703
Added:
#+BEGIN_SRC emacs-lisp
704
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
705
Added:
(define-key menu-bar-file-menu [dired] nil)
706
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
707
Added:
#+END_SRC
708
Added:
709
Added:
*** Tbl
710
Added:
711
Added:
#+BEGIN_SRC emacs-lisp
712
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
713
Added:
(define-key menu-bar-file-menu [dired] nil)
714
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
715
Added:
#+END_SRC
716
Added:
717
Added:
*** Text
718
Added:
719
Added:
#+BEGIN_SRC emacs-lisp
720
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
721
Added:
(define-key menu-bar-file-menu [dired] nil)
722
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
723
Added:
#+END_SRC
724
Added:
725
Added:
*** Projectile
726
Added:
727
Added:
#+BEGIN_SRC emacs-lisp
728
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
729
Added:
(define-key menu-bar-file-menu [dired] nil)
730
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
731
Added:
#+END_SRC
732
Added:
733
Added:
*** Help
734
Added:
735
Added:
#+BEGIN_SRC emacs-lisp
736
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
737
Added:
(define-key menu-bar-file-menu [dired] nil)
738
Added:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
739
Added:
#+END_SRC
740
Added:
741
Added:
** Coding standards
742
Added:
743
Added:
This is just a better default.
744
Added:
745
Added:
#+BEGIN_SRC emacs-lisp
746
Added:
(setq c-default-style "linux"
747
Added:
c-basic-offset 4)
748
Added:
#+END_SRC
749
Added:
750
Added:
** Tabs
751
Added:
752
Added:
#+BEGIN_SRC emacs-lisp
753
Added:
(use-package tabbar)
754
Added:
#+END_SRC
755
Added:
756
Added:
Thank you
757
Added:
https://andreyorst.gitlab.io/posts/2020-05-10-making-emacs-tabs-look-like-in-atom/
758
Added:
759
Added:
#+BEGIN_SRC emacs-lisp
760
Added:
(when (and window-system
761
Added:
(not (version< emacs-version "27")))
762
Added:
(use-package tab-line
763
Added:
:hook (after-init . global-tab-line-mode)
764
Added:
:config
765
Added:
(defun tab-line-close-tab (&optional e)
766
Added:
"Close the selected tab.
767
Added:
768
Added:
If tab is presented in another window, close the tab by using
769
Added:
`bury-buffer` function. If tab is unique to all existing
770
Added:
windows, kill the buffer with `kill-buffer` function. Lastly, if
771
Added:
no tabs left in the window, it is deleted with `delete-window`
772
Added:
function."
773
Added:
(interactive "e")
774
Added:
(let* ((posnp (event-start e))
775
Added:
(window (posn-window posnp))
776
Added:
(buffer (get-pos-property 1 'tab (car (posn-string posnp)))))
777
Added:
(with-selected-window window
778
Added:
(let ((tab-list (tab-line-tabs-window-buffers))
779
Added:
(buffer-list (flatten-list
780
Added:
(seq-reduce (lambda (list window)
781
Added:
(select-window window t)
782
Added:
(cons (tab-line-tabs-window-buffers) list))
783
Added:
(window-list) nil))))
784
Added:
(select-window window)
785
Added:
(if (> (seq-count (lambda (b) (eq b buffer)) buffer-list) 1)
786
Added:
(progn
787
Added:
(if (eq buffer (current-buffer))
788
Added:
(bury-buffer)
789
Added:
(set-window-prev-buffers window (assq-delete-all buffer (window-prev-buffers)))
790
Added:
(set-window-next-buffers window (delq buffer (window-next-buffers))))
791
Added:
(unless (cdr tab-list)
792
Added:
(ignore-errors (delete-window window))))
793
Added:
(and (kill-buffer buffer)
794
Added:
(unless (cdr tab-list)
795
Added:
(ignore-errors (delete-window window)))))))))
796
Added:
797
Added:
798
Added:
(defcustom tab-line-tab-min-width 10
799
Added:
"Minimum width of a tab in characters."
800
Added:
:type 'integer
801
Added:
:group 'tab-line)
802
Added:
803
Added:
804
Added:
(defcustom tab-line-tab-max-width 30
805
Added:
"Maximum width of a tab in characters."
806
Added:
:type 'integer
807
Added:
:group 'tab-line)
808
Added:
809
Added:
(defcustom tab-line-ellipsis-string "…"
810
Added:
"String for indicating truncated names"
811
Added:
:type 'string
812
Added:
:group 'tab-line)
813
Added:
814
Added:
(defun aorst/tab-line--tab-width (window-width tab-amount)
815
Added:
"Calculate width of single tab dividing WINDOW-WIDTH by TAB-AMOUNT."
816
Added:
(let* ((close-button-size
817
Added:
(if tab-line-close-button-show
818
Added:
(length (substring-no-properties tab-line-close-button)) 0))
819
Added:
(tab-width (/ window-width tab-amount)))
820
Added:
(- (cond ((< window-width 0)
821
Added:
tab-line-tab-min-width)
822
Added:
((>= tab-width tab-line-tab-max-width)
823
Added:
tab-line-tab-max-width)
824
Added:
((< tab-width tab-line-tab-min-width)
825
Added:
tab-line-tab-min-width)
826
Added:
(t tab-width))
827
Added:
close-button-size)))
828
Added:
829
Added:
(defun aorst/tab-line--max-width (window)
830
Added:
"Calculate free width of the WINDOW.
831
Added:
832
Added:
Free width means amount of space we can use to display tabs
833
Added:
without truncation."
834
Added:
(- (window-width window)
835
Added:
(length (substring-no-properties tab-line-left-button))
836
Added:
(length (substring-no-properties tab-line-right-button))
837
Added:
(if tab-line-new-button-show
838
Added:
(length (substring-no-properties tab-line-new-button))
839
Added:
0)))
840
Added:
841
Added:
842
Added:
(defun aorst/tab-line--make-pad (tab-width name-width)
843
Added:
"Generate padding string based on TAB-WIDTH and NAME-WIDTH."
844
Added:
(let* ((width (- tab-width name-width))
845
Added:
(padding (/ (if (oddp width) (+ width 1) width) 2)))
846
Added:
(make-string padding ?\s)))
847
Added:
848
Added:
849
Added:
(defun aorst/tab-line-name-buffer (buffer &rest _buffers)
850
Added:
"Create name for tab with padding and truncation.
851
Added:
852
Added:
If buffer name is shorter than `tab-line-tab-max-width' it gets
853
Added:
centered with spaces, otherwise it is truncated, to preserve
854
Added:
equal width for all tabs. This function also tries to fit as
855
Added:
many tabs in window as possible, so if there are no room for tabs
856
Added:
with maximum width, it calculates new width for each tab and
857
Added:
truncates text if needed. Minimal width can be set with
858
Added:
`tab-line-tab-min-width' variable."
859
Added:
(with-current-buffer buffer
860
Added:
(let* ((amount (length (tab-line-tabs-window-buffers)))
861
Added:
(width (aorst/tab-line--tab-width
862
Added:
(aorst/tab-line--max-width (get-buffer-window buffer))
863
Added:
amount))
864
Added:
(buffer (string-trim (buffer-name)))
865
Added:
(name-width (length buffer))
866
Added:
(right-pad (if tab-line-close-button-show "" " "))
867
Added:
(truncate-width (- width
868
Added:
(length tab-line-ellipsis-string)
869
Added:
(length right-pad))))
870
Added:
(if (>= name-width truncate-width)
871
Added:
(concat " " (truncate-string-to-width buffer truncate-width) tab-line-ellipsis-string right-pad)
872
Added:
(let* ((padding (aorst/tab-line--make-pad width name-width))
873
Added:
(tab-text (concat padding buffer))
874
Added:
(text-width (length tab-text)))
875
Added:
(concat tab-text (make-string (- width text-width) ?\s)))))))
876
Added:
877
Added:
878
Added:
(setq tab-line-close-button-show t
879
Added:
tab-line-new-button-show nil
880
Added:
tab-line-separator ""
881
Added:
tab-line-tab-name-function #'aorst/tab-line-name-buffer
882
Added:
tab-line-right-button (propertize (if (char-displayable-p ?▶) " ▶ " " > ")
883
Added:
'keymap tab-line-right-map
884
Added:
'mouse-face 'tab-line-highlight
885
Added:
'help-echo "Click to scroll right")
886
Added:
tab-line-left-button (propertize (if (char-displayable-p ?◀) " ◀ " " < ")
887
Added:
'keymap tab-line-left-map
888
Added:
'mouse-face 'tab-line-highlight
889
Added:
'help-echo "Click to scroll left")
890
Added:
tab-line-close-button (propertize (if (char-displayable-p ?×) " × " " x ")
891
Added:
'keymap tab-line-tab-close-map
892
Added:
'mouse-face 'tab-line-close-highlight
893
Added:
'help-echo "Click to close tab"))
894
Added:
895
Added:
896
Added:
(let ((bg (if (facep 'solaire-default-face)
897
Added:
(face-attribute 'solaire-default-face :background)
898
Added:
(face-attribute 'default :background)))
899
Added:
(fg (face-attribute 'default :foreground))
900
Added:
(base (if (facep 'solaire-default-face)
901
Added:
(face-attribute 'default :background)
902
Added:
(face-attribute 'mode-line :background)))
903
Added:
(box-width (/ (line-pixel-height) 2)))
904
Added:
(when (and (color-defined-p bg)
905
Added:
(color-defined-p fg)
906
Added:
(color-defined-p base)
907
Added:
(numberp box-width))
908
Added:
(set-face-attribute 'tab-line nil
909
Added:
:background base
910
Added:
:foreground fg
911
Added:
:height 1.0
912
Added:
:inherit nil
913
Added:
:box (list :line-width -1 :color base))
914
Added:
(set-face-attribute 'tab-line-tab nil
915
Added:
:foreground fg
916
Added:
:background bg
917
Added:
:weight 'normal
918
Added:
:inherit nil
919
Added:
:box (list :line-width box-width :color bg))
920
Added:
(set-face-attribute 'tab-line-tab-inactive nil
921
Added:
:foreground fg
922
Added:
:background base
923
Added:
:weight 'normal
924
Added:
:inherit nil
925
Added:
:box (list :line-width box-width :color base))
926
Added:
(set-face-attribute 'tab-line-tab-current nil
927
Added:
:foreground fg
928
Added:
:background bg
929
Added:
:weight 'normal
930
Added:
:inherit nil
931
Added:
:box (list :line-width box-width :color bg))))
932
Added:
(setq tab-line-exclude-modes '())
933
Added:
(dolist (mode '(ediff-mode
934
Added:
process-menu-mode
935
Added:
term-mode
936
Added:
vterm-mode))
937
Added:
(add-to-list 'tab-line-exclude-modes mode))
938
Added:
939
Added:
(defun aorst/tab-line-drop-caches ()
940
Added:
"Drops `tab-line' cache in every window."
941
Added:
(dolist (window (window-list))
942
Added:
(set-window-parameter window 'tab-line-cache nil)))
943
Added:
944
Added:
(add-hook 'window-configuration-change-hook #'aorst/tab-line-drop-caches)))
945
Added:
#+END_SRC
946
Added:
947
Added:
** auto fill
948
Added:
949
Added:
Automatically break lines longer than =fill-column=.
950
Added:
951
Added:
#+BEGIN_SRC emacs-lisp
952
Added:
(add-hook 'org-mode-hook 'turn-on-auto-fill)
953
Added:
#+END_SRC
954
Added:
955
Added:
** Recent files
956
Added:
957
Added:
#+BEGIN_SRC emacs-lisp
958
Added:
(recentf-mode 1)
959
Added:
(setq recentf-max-menu-items 25)
960
Added:
(setq recentf-max-saved-items 25)
961
Added:
(run-at-time nil (* 5 60) 'recentf-save-list)
962
Added:
#+END_SRC
963
Added:
964
Added:
* Profiling --- stop
965
Added:
966
Added:
#+BEGIN_SRC emacs-lisp
967
Added:
;; (profiler-stop)
968
Added:
#+END_SRC
969
Added:
970
Added:
* Profiling --- report
971
Added:
972
Added:
#+BEGIN_SRC emacs-lisp
973
Added:
;; (profiler-report)
974
Added:
#+END_SRC
blendoit/init-blendoit.org
@@ -1,974 +0,0 @@
1
Removed:
#+TITLE: Blendoit's literate GNU Emacs config
2
Removed:
#+AUTHOR: Marius Peter
3
Removed:
#+DATE: <2020-07-23 Thu>
4
Removed:
5
Removed:
#+STARTUP: customtime showall
6
Removed:
#+SETUPFILE: ~/org/templates/documents/personal.org
7
Removed:
8
Removed:
#+INCLUDE: ~/org/templates/documents/personal-title.org
9
Removed:
10
Removed:
\begin{abstract}
11
Removed:
GNU Emacs is most often used as a text editor. The utmost level of
12
Removed:
customisation is afforded by enabling the user to rewrite /any/ part of the
13
Removed:
source code and observe the editor's modified behaviour in real time. Since its
14
Removed:
inception in 1984, GNU Emacs has grown to be much more than a full-featured,
15
Removed:
high-productivity text editor---new /modes/ have been written to interact with
16
Removed:
hundreds of file formats, including =.txt=, =.pdf=, =.jpg=, =.csv=, and =.zip= just to
17
Removed:
name a few. This configuration file itself was written in /Org mode/, a
18
Removed:
collection of functions enabling the harmonious mixing of code and comments in
19
Removed:
view of publication: this is the endgame of /literate programming/.
20
Removed:
\end{abstract}
21
Removed:
22
Removed:
# ** Test
23
Removed:
24
Removed:
# #+BEGIN_SRC emacs-lisp
25
Removed:
# (org-babel-load-file "~/.emacs.d/blendoit/test.org")
26
Removed:
# #+END_SRC
27
Removed:
28
Removed:
* Preliminary setup
29
Removed:
30
Removed:
** Garbage collection
31
Removed:
32
Removed:
First, we increase the RAM threshold beyond which the garbage collector is
33
Removed:
activated.
34
Removed:
35
Removed:
#+NAME: garbage-collection
36
Removed:
#+BEGIN_SRC emacs-lisp
37
Removed:
(setq gc-cons-threshold 100000000)
38
Removed:
#+END_SRC
39
Removed:
40
Removed:
** Emacs client
41
Removed:
42
Removed:
Makes opening emacs faster for following instances.
43
Removed:
44
Removed:
#+NAME: emacs-client
45
Removed:
#+BEGIN_SRC emacs-lisp
46
Removed:
47
Removed:
; (setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
48
Removed:
#+END_SRC
49
Removed:
50
Removed:
** Profiling --- start
51
Removed:
52
Removed:
We start the profiler now , and will interrupt it in section [[Profiling ---
53
Removed:
stop]]. We will then present profiling report in [[Profiling --- report]].
54
Removed:
55
Removed:
#+NAME: profiler-start
56
Removed:
#+BEGIN_SRC emacs-lisp
57
Removed:
; (profiler-start)
58
Removed:
#+END_SRC
59
Removed:
60
Removed:
** Custom file
61
Removed:
62
Removed:
Load settings created automatically by GNU Emacs Custom. (For example, any
63
Removed:
clickable option/toggle is saved here.) Useful for fooling around with M-x
64
Removed:
customize-group <package>.
65
Removed:
66
Removed:
#+NAME: custom-file
67
Removed:
#+BEGIN_SRC emacs-lisp
68
Removed:
(setq custom-file "~/.emacs.d/init-custom.el")
69
Removed:
(load custom-file)
70
Removed:
#+END_SRC
71
Removed:
72
Removed:
** Customization shortcuts
73
Removed:
74
Removed:
We begin by defining a user shortcut to this very file:
75
Removed:
76
Removed:
#+NAME: shortcut-config
77
Removed:
#+BEGIN_SRC emacs-lisp
78
Removed:
(defun find-init-blendoit ()
79
Removed:
"Jump to this very file."
80
Removed:
(interactive)
81
Removed:
(find-file "~/.emacs.d/blendoit/init-blendoit.org"))
82
Removed:
83
Removed:
(global-set-key (kbd "C-c c") 'find-init-blendoit)
84
Removed:
#+END_SRC
85
Removed:
86
Removed:
Now, different shortcuts for other customization actions:
87
Removed:
88
Removed:
#+NAME: shortcuts-customization
89
Removed:
#+BEGIN_SRC emacs-lisp
90
Removed:
(global-set-key (kbd "C-c v") 'customize-variable)
91
Removed:
(global-set-key (kbd "C-c f") 'customize-face)
92
Removed:
#+END_SRC
93
Removed:
94
Removed:
** Backups
95
Removed:
96
Removed:
Backups are so important that they should be described right after the shortcut
97
Removed:
to this file.
98
Removed:
99
Removed:
#+BEGIN_SRC emacs-lisp
100
Removed:
(setq backup-directory-alist `((".*" . ,temporary-file-directory))
101
Removed:
auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
102
Removed:
backup-by-copying t ; Don't delink hardlinks
103
Removed:
version-control t ; Use version numbers on backups
104
Removed:
delete-old-versions t ; Automatically delete excess backups
105
Removed:
kept-new-versions 20 ; how many of the newest versions to keep
106
Removed:
kept-old-versions 5 ; and how many of the old
107
Removed:
)
108
Removed:
#+END_SRC
109
Removed:
110
Removed:
** Secrets
111
Removed:
112
Removed:
#+INCLUDE: ./secrets.org
113
Removed:
114
Removed:
#+BEGIN_SRC emacs-lisp
115
Removed:
(setq user-full-name "Marius Peter"
116
Removed:
user-mail-address "blendoit@gmail.com")
117
Removed:
#+END_SRC
118
Removed:
119
Removed:
* Global key bindings
120
Removed:
121
Removed:
The following bindings strive to further enhance CUA[fn::Common User Access.]
122
Removed:
mode.
123
Removed:
124
Removed:
** Navigation
125
Removed:
126
Removed:
#+BEGIN_SRC emacs-lisp
127
Removed:
(global-set-key (kbd "C-`") 'delete-other-windows)
128
Removed:
(global-set-key (kbd "C-s") 'save-buffer)
129
Removed:
(global-set-key (kbd "C-b") 'ibuffer-sidebar-toggle-sidebar)
130
Removed:
(global-set-key (kbd "C-o") 'menu-find-file-existing)
131
Removed:
(global-set-key (kbd "C-r") 'counsel-recentf)
132
Removed:
; (global-set-key (kbd "C-n") 'make-frame) ; 7aram!
133
Removed:
#+END_SRC
134
Removed:
135
Removed:
The following bindings lead to more natural exit behaviors.
136
Removed:
137
Removed:
#+BEGIN_SRC emacs-lisp
138
Removed:
(defun delete-window-or-previous-buffer ()
139
Removed:
"Delete window; if sole window, previous buffer."
140
Removed:
(interactive)
141
Removed:
(if (> (length (window-list)) 2)
142
Removed:
(delete-window)
143
Removed:
(previous-buffer)))
144
Removed:
145
Removed:
(global-set-key (kbd "C-w") 'delete-window-or-previous-buffer)
146
Removed:
(global-set-key (kbd "C-q") 'save-buffers-kill-terminal)
147
Removed:
#+END_SRC
148
Removed:
149
Removed:
** Mouse zoom
150
Removed:
151
Removed:
Zoom in/out of selected buffer using Alt + mouse wheel.
152
Removed:
153
Removed:
#+BEGIN_SRC emacs-lisp
154
Removed:
(global-set-key [M-mouse-4] 'text-scale-increase)
155
Removed:
(global-set-key [M-mouse-5] 'text-scale-decrease)
156
Removed:
#+END_SRC
157
Removed:
158
Removed:
* Packages
159
Removed:
160
Removed:
** Package archives
161
Removed:
162
Removed:
List of package archives.
163
Removed:
164
Removed:
#+NAME: packages
165
Removed:
#+BEGIN_SRC emacs-lisp
166
Removed:
(require 'package)
167
Removed:
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
168
Removed:
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
169
Removed:
(package-initialize)
170
Removed:
#+END_SRC
171
Removed:
172
Removed:
** use-package
173
Removed:
174
Removed:
Ensure =use-package= is installed, as well as all packages described in this
175
Removed:
configuration file.
176
Removed:
177
Removed:
#+BEGIN_SRC emacs-lisp
178
Removed:
(unless (package-installed-p 'use-package)
179
Removed:
(package-refresh-contents)
180
Removed:
(package-install 'use-package)
181
Removed:
(eval-when-compile (require 'use-package)))
182
Removed:
(setq use-package-always-ensure t)
183
Removed:
#+END_SRC
184
Removed:
185
Removed:
** Convenient package update
186
Removed:
187
Removed:
One-function rollup of upgradeable package tagging, download and lazy install.
188
Removed:
189
Removed:
** Ivy
190
Removed:
191
Removed:
Auto completion.
192
Removed:
193
Removed:
#+BEGIN_SRC emacs-lisp
194
Removed:
(use-package ivy
195
Removed:
:config
196
Removed:
(setq ivy-use-virtual-buffers t
197
Removed:
ivy-count-format "%d/%d "
198
Removed:
enable-recursive-minibuffers t))
199
Removed:
(ivy-mode t)
200
Removed:
#+END_SRC
201
Removed:
202
Removed:
** Evil
203
Removed:
204
Removed:
Forgive me, for I have sinned.
205
Removed:
206
Removed:
#+BEGIN_SRC emacs-lisp
207
Removed:
(use-package evil)
208
Removed:
;; (evil-mode 1)
209
Removed:
#+END_SRC
210
Removed:
211
Removed:
*** Counsel
212
Removed:
213
Removed:
Wonderful counsellor!
214
Removed:
215
Removed:
#+BEGIN_SRC emacs-lisp
216
Removed:
(use-package counsel
217
Removed:
:bind ("M-x" . counsel-M-x)
218
Removed:
:config (counsel-mode t))
219
Removed:
220
Removed:
(global-set-key (kbd "C-f") 'counsel-grep-or-swiper)
221
Removed:
#+END_SRC
222
Removed:
223
Removed:
*** Swiper
224
Removed:
225
Removed:
#+BEGIN_SRC emacs-lisp
226
Removed:
(use-package swiper
227
Removed:
:bind (("C-f" . counsel-grep-or-swiper)))
228
Removed:
#+END_SRC
229
Removed:
230
Removed:
** Org
231
Removed:
232
Removed:
Phew, I can finally introduce Org mode! I am so *excited*.
233
Removed:
234
Removed:
Org mode replaces aword processor, a presentation creator, and a spreadsheet
235
Removed:
editor. IMHO, the spreadsheet ability captures more than 80% use cases wherein
236
Removed:
one wishes to include a table in a text document destined for physical
237
Removed:
publication. (It is clear that Excel spreadsheets are /not/ destined for physical
238
Removed:
publication---simply attempt to print an Excel spreadsheet with the default
239
Removed:
settings.) In my opinion, Org mode matches all /useful/ features of the
240
Removed:
Microsoft Office suite 1-to-1.
241
Removed:
242
Removed:
What follows are customizations designed to make Org mode behave more like
243
Removed:
Microsoft Word. The end goal is, once again, to draw as many new users to Emacs
244
Removed:
as possible!
245
Removed:
246
Removed:
*** Basic customization
247
Removed:
248
Removed:
First, we hide markup symbols for *bold*, /italic/, _underlined_ and +strikethrough+
249
Removed:
text, and ensure our document appears indented upon loading:[fn::It /appears/
250
Removed:
indented, but the underlying plaintext file does not contain tab characters!]
251
Removed:
252
Removed:
#+NAME: org-basic
253
Removed:
#+BEGIN_SRC emacs-lisp
254
Removed:
(setq org-hide-emphasis-markers t)
255
Removed:
(setq org-startup-indented t)
256
Removed:
#+END_SRC
257
Removed:
258
Removed:
Then, we customize Org headings to emulate WYSIWYG[fn::What You See Is What You
259
Removed:
Get (input and output are identical), as opposed to What You See Is What You
260
Removed:
Mean (the input contains instructions that can modify the output).] behavior
261
Removed:
normally found in Word:
262
Removed:
263
Removed:
#+NAME: org-list-bullets
264
Removed:
#+BEGIN_SRC emacs-lisp
265
Removed:
(setq org-directory "~/org")
266
Removed:
(font-lock-add-keywords
267
Removed:
'org-mode
268
Removed:
'(("^ *\\([-]\\) "
269
Removed:
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
270
Removed:
#+END_SRC
271
Removed:
272
Removed:
- Look at
273
Removed:
- This beautifully indented
274
Removed:
- List...
275
Removed:
- Of lists!
276
Removed:
- (Rendered with pretty bullets in Emacs)
277
Removed:
278
Removed:
The following prettifies Org mode heading bullets:
279
Removed:
280
Removed:
#+NAME: org-headings-bullets
281
Removed:
#+BEGIN_SRC emacs-lisp
282
Removed:
(use-package org-bullets
283
Removed:
:hook
284
Removed:
(org-mode . org-bullets-mode)
285
Removed:
)
286
Removed:
#+END_SRC
287
Removed:
288
Removed:
Thank you Diego
289
Removed:
Zamboni![fn::https://zzamboni.org/post/beautifying-org-mode-in-emacs/]
290
Removed:
291
Removed:
#+NAME: org-cosmetics
292
Removed:
#+BEGIN_SRC emacs-lisp
293
Removed:
;; (let* ((variable-tuple
294
Removed:
;; (cond ((x-list-fonts "Dejavu Sans") '(:font "Dejavu Sans"))
295
Removed:
;; ((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
296
Removed:
;; (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
297
Removed:
;; (base-font-color (face-foreground 'default nil 'default))
298
Removed:
;; (headline `(:inherit default :weight bold)))
299
Removed:
300
Removed:
;; (custom-theme-set-faces
301
Removed:
;; 'user
302
Removed:
;; `(org-level-8 ((t (,@headline ,@variable-tuple))))
303
Removed:
;; `(org-level-7 ((t (,@headline ,@variable-tuple))))
304
Removed:
;; `(org-level-6 ((t (,@headline ,@variable-tuple))))
305
Removed:
;; `(org-level-5 ((t (,@headline ,@variable-tuple))))
306
Removed:
;; `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
307
Removed:
;; `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
308
Removed:
;; `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.5))))
309
Removed:
;; `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
310
Removed:
;; `(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
311
Removed:
312
Removed:
;(custom-theme-set-faces
313
Removed:
; 'user
314
Removed:
; '(variable-pitch ((t (:family "Liberation Sans"))))
315
Removed:
; '(fixed-pitch ((t ( :family "Hack")))))
316
Removed:
317
Removed:
#+END_SRC
318
Removed:
319
Removed:
*** Invisible edits
320
Removed:
321
Removed:
#+BEGIN_SRC emacs-lisp
322
Removed:
(setq org-catch-invisible-edits t)
323
Removed:
#+END_SRC
324
Removed:
325
Removed:
*** Agenda
326
Removed:
327
Removed:
The agenda displays a chronological list of headings across all agenda files
328
Removed:
for which the heading or body contain a matching =org-time-stamp=.[fn::An
329
Removed:
=org-time-stamp= can be inserted with =C-c .= (period)]
330
Removed:
331
Removed:
#+BEGIN_SRC emacs-lisp
332
Removed:
(global-set-key (kbd "C-c a") 'org-agenda)
333
Removed:
#+END_SRC
334
Removed:
335
Removed:
*** Publish
336
Removed:
337
Removed:
In the following /alist/ (association list), we describe the projects publishable
338
Removed:
via =org-publish=. We separate the publishing of =.org= files and attachments,
339
Removed:
because an online tutorial recommended we do so.
340
Removed:
341
Removed:
#+BEGIN_SRC emacs-lisp
342
Removed:
(require 'ox-publish)
343
Removed:
(setq org-publish-project-alist
344
Removed:
'(
345
Removed:
("Safran-VIP-html"
346
Removed:
:base-directory "~/org/WORK/Safran/programs/B787/VIP/doc/org/"
347
Removed:
:base-extension "org"
348
Removed:
:publishing-directory "~/org/WORK/Safran/programs/B787/VIP/doc/wiki/"
349
Removed:
:recursive t
350
Removed:
:publishing-function org-html-publish-to-html
351
Removed:
:auto-preamble t
352
Removed:
:auto-sitemap t
353
Removed:
:sitemap-title "" )
354
Removed:
355
Removed:
("Safran-VIP-static"
356
Removed:
:base-directory "~/org/WORK/Safran/programs/B787/VIP/doc/org/"
357
Removed:
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|mp4\\|ogg\\|swf"
358
Removed:
:publishing-directory "~/org/WORK/Safran/programs/B787/VIP/doc/wiki/"
359
Removed:
:recursive t
360
Removed:
:publishing-function org-publish-attachment )
361
Removed:
362
Removed:
("Safran-VIP-all"
363
Removed:
:components ("Safran-VIP-html" "Safran-VIP-static"))
364
Removed:
365
Removed:
("Safran-MA700-html"
366
Removed:
:base-directory "~/org/WORK/Safran/programs/MA700/doc/org/"
367
Removed:
:base-extension "org"
368
Removed:
:publishing-directory "~/org/WORK/Safran/programs/MA700/doc/wiki/"
369
Removed:
:recursive t
370
Removed:
:publishing-function org-html-publish-to-html
371
Removed:
:auto-preamble t
372
Removed:
:auto-sitemap t
373
Removed:
:sitemap-title "" )
374
Removed:
375
Removed:
("Safran-MA700-static"
376
Removed:
:base-directory "~/org/WORK/Safran/programs/MA700/doc/org/"
377
Removed:
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|mp4\\|ogg\\|swf"
378
Removed:
:publishing-directory "~/org/WORK/Safran/programs/MA700/doc/wiki/"
379
Removed:
:recursive t
380
Removed:
:publishing-function org-publish-attachment )
381
Removed:
382
Removed:
("Safran-MA700-all"
383
Removed:
:components ("Safran-MA700-html" "Safran-MA700-static"))))
384
Removed:
385
Removed:
(add-to-list 'org-latex-packages-alist '("table" "xcolor"
386
Removed:
t ("pdflatex")))
387
Removed:
(add-to-list 'org-latex-packages-alist '("AUTO" "babel"
388
Removed:
t ("pdflatex")))
389
Removed:
(add-to-list 'org-latex-packages-alist '("AUTO" "polyglossia"
390
Removed:
t ("xelatex" "lualatex")))
391
Removed:
#+END_SRC
392
Removed:
393
Removed:
*** Export
394
Removed:
395
Removed:
This creates a shorter binding for the most common Org export: Org \rightarrow
396
Removed:
LaTeX \rightarrow PDF.
397
Removed:
398
Removed:
#+BEGIN_SRC emacs-lisp
399
Removed:
(defun blendoit-org-quick-export ()
400
Removed:
"Org export to PDF and open.
401
Removed:
This basically reimplements `C-c C-e l o'."
402
Removed:
(interactive)
403
Removed:
(org-latex-export-to-pdf)
404
Removed:
(org-open-file
405
Removed:
(concat (substring buffer-file-truename 0 -3) "pdf")))
406
Removed:
407
Removed:
(global-set-key (kbd "C-c e") 'blendoit-org-quick-export)
408
Removed:
#+END_SRC
409
Removed:
410
Removed:
** undo tree
411
Removed:
412
Removed:
#+BEGIN_SRC emacs-lisp
413
Removed:
(global-undo-tree-mode)
414
Removed:
#+END_SRC
415
Removed:
416
Removed:
** dumb jump
417
Removed:
418
Removed:
#+BEGIN_SRC emacs-lisp
419
Removed:
(use-package dumb-jump)
420
Removed:
#+END_SRC
421
Removed:
422
Removed:
** gnuplot
423
Removed:
424
Removed:
#+BEGIN_SRC emacs-lisp
425
Removed:
(use-package gnuplot)
426
Removed:
#+END_SRC
427
Removed:
428
Removed:
** Ledger
429
Removed:
430
Removed:
#+BEGIN_SRC emacs-lisp
431
Removed:
(use-package ledger-mode
432
Removed:
:bind
433
Removed:
("C-c r" . ledger-report)
434
Removed:
("C-c C" . ledger-mode-clean-buffer))
435
Removed:
#+END_SRC
436
Removed:
437
Removed:
** ibuffer-sidebar
438
Removed:
439
Removed:
#+BEGIN_SRC emacs-lisp
440
Removed:
(use-package ibuffer-sidebar)
441
Removed:
(ibuffer-sidebar-show-sidebar)
442
Removed:
443
Removed:
; :bind ("mouse-1" . ibuffer-mouse-visit-buffer)
444
Removed:
; :bind ("mouse-3" . ibuffer-mouse-toggle-mark))
445
Removed:
446
Removed:
; (add-hook 'ibuffer-sidebar-mode-hook
447
Removed:
; (lambda ()
448
Removed:
; (local-unset-key (quote mouse-1))
449
Removed:
; (local-unset-key (quote mouse-2))
450
Removed:
; (local-set-key (quote mouse-1) (quote ibuffer-mouse-visit-buffer))
451
Removed:
; (local-set-key (quote mouse-2) (quote ibuffer-mouse-toggle-mark))))
452
Removed:
#+END_SRC
453
Removed:
454
Removed:
** Which-key
455
Removed:
456
Removed:
#+BEGIN_SRC emacs-lisp
457
Removed:
(use-package which-key
458
Removed:
:init
459
Removed:
(which-key-mode)
460
Removed:
;; :config
461
Removed:
;; (setq which-key-idle-delay 1000)
462
Removed:
;; (setq which-key-idle-secondary-delay 0.05)
463
Removed:
;; (setq which-key-show-early-on-C-h t)
464
Removed:
)
465
Removed:
#+END_SRC
466
Removed:
467
Removed:
** Company
468
Removed:
469
Removed:
#+NAME: company
470
Removed:
#+BEGIN_SRC emacs-lisp
471
Removed:
(add-hook 'after-init-hook 'global-company-mode)
472
Removed:
#+END_SRC
473
Removed:
474
Removed:
** Flycheck
475
Removed:
476
Removed:
#+NAME: flycheck
477
Removed:
#+BEGIN_SRC emacs-lisp
478
Removed:
(use-package flycheck
479
Removed:
:init (global-flycheck-mode))
480
Removed:
#+END_SRC
481
Removed:
482
Removed:
** CSV
483
Removed:
484
Removed:
#+BEGIN_SRC emacs-lisp
485
Removed:
(use-package csv-mode)
486
Removed:
#+END_SRC
487
Removed:
488
Removed:
* JSON
489
Removed:
490
Removed:
Oí, Jason!
491
Removed:
492
Removed:
#+BEGIN_SRC emacs-lisp
493
Removed:
(use-package json-mode)
494
Removed:
#+END_SRC
495
Removed:
496
Removed:
** Magit
497
Removed:
498
Removed:
#+BEGIN_SRC emacs-lisp
499
Removed:
(use-package magit
500
Removed:
:bind ("C-c g" . magit-status))
501
Removed:
#+END_SRC
502
Removed:
503
Removed:
** PDF-tools
504
Removed:
505
Removed:
#+BEGIN_SRC emacs-lisp
506
Removed:
(use-package pdf-tools
507
Removed:
:config (pdf-loader-install))
508
Removed:
#+END_SRC
509
Removed:
510
Removed:
** Dashboard
511
Removed:
512
Removed:
We replace the standard welcome screen with our own.
513
Removed:
514
Removed:
#+BEGIN_SRC emacs-lisp
515
Removed:
(setq inhibit-startup-message t)
516
Removed:
(use-package dashboard
517
Removed:
:config
518
Removed:
(dashboard-setup-startup-hook)
519
Removed:
(setq dashboard-startup-banner "~/.emacs.d/blendoit/img/Safran_logo.svg")
520
Removed:
(setq dashboard-items '((recents . 5)
521
Removed:
(projects . 5)))
522
Removed:
(setq dashboard-banner-logo-title "The editor for the 2nd millenium."))
523
Removed:
#+END_SRC
524
Removed:
525
Removed:
** rainbow
526
Removed:
527
Removed:
This highlights hexadecimal numbers which look like colors, in that same color.
528
Removed:
529
Removed:
#+BEGIN_SRC emacs-lisp
530
Removed:
(use-package rainbow-mode
531
Removed:
:ensure t
532
Removed:
:init
533
Removed:
(add-hook 'prog-mode-hook 'rainbow-mode))
534
Removed:
#+END_SRC
535
Removed:
536
Removed:
** Projectile
537
Removed:
538
Removed:
This enables us to better manage our =.git= projects.
539
Removed:
540
Removed:
#+BEGIN_SRC emacs-lisp
541
Removed:
(use-package projectile
542
Removed:
:bind ("C-c p" . 'projectile-command-map)
543
Removed:
:init (projectile-mode 1)
544
Removed:
(setq projectile-completion-system 'ivy))
545
Removed:
#+END_SRC
546
Removed:
547
Removed:
** Better parentheses
548
Removed:
549
Removed:
#+BEGIN_SRC emacs-lisp
550
Removed:
(show-paren-mode 1)
551
Removed:
552
Removed:
(use-package smartparens
553
Removed:
:config
554
Removed:
(add-hook 'prog-mode-hook #'smartparens-mode))
555
Removed:
556
Removed:
(use-package rainbow-delimiters
557
Removed:
:config
558
Removed:
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
559
Removed:
#+END_SRC
560
Removed:
561
Removed:
* Cosmetics
562
Removed:
563
Removed:
** Faces & cursors
564
Removed:
565
Removed:
In order to imitate other modern text editors, we'll resort to a blinking bar
566
Removed:
cursor. We choose red, the most captivating color, because the cursor is
567
Removed:
arguably the region on our screen:
568
Removed:
569
Removed:
1. most often looked at;
570
Removed:
2. most often searched when lost.
571
Removed:
572
Removed:
The default cursor already blinks.
573
Removed:
574
Removed:
*** Default cursor
575
Removed:
576
Removed:
In files containing only fixed-pitch fonts (i.e. files containing only code),
577
Removed:
the cursor becomes a high-visibility box.
578
Removed:
579
Removed:
#+BEGIN_SRC emacs-lisp
580
Removed:
(setq-default cursor-type (quote box))
581
Removed:
#+END_SRC
582
Removed:
583
Removed:
*** Mixed pitch in Org mode
584
Removed:
585
Removed:
Fixed-pitch and variable-pitch fonts will be used intelligently in all hooked
586
Removed:
modes.
587
Removed:
588
Removed:
#+BEGIN_SRC emacs-lisp
589
Removed:
(use-package mixed-pitch
590
Removed:
:hook ((org-mode . mixed-pitch-mode)
591
Removed:
(Info-mode . mixed-pitch-mode)))
592
Removed:
#+END_SRC
593
Removed:
594
Removed:
** Initial frame
595
Removed:
596
Removed:
These settings affect the first and subsequent frames spawned by Emacs.
597
Removed:
598
Removed:
Thank you Xah Lee![fn::http://ergoemacs.org/emacs/emacs_customize_default_window_size.html]
599
Removed:
600
Removed:
#+BEGIN_SRC emacs-lisp
601
Removed:
(if (display-graphic-p)
602
Removed:
(progn
603
Removed:
(setq initial-frame-alist
604
Removed:
'(
605
Removed:
(tool-bar-lines . 1)
606
Removed:
(width . 100) ; chars
607
Removed:
(height . 48) ; lines
608
Removed:
(alpha . (90 . 50))))
609
Removed:
(setq default-frame-alist
610
Removed:
'(
611
Removed:
(tool-bar-lines . 1)
612
Removed:
(width . 100)
613
Removed:
(height . 48)
614
Removed:
(alpha . (90 . 50))))))
615
Removed:
#+END_SRC
616
Removed:
617
Removed:
** Theme
618
Removed:
619
Removed:
#+BEGIN_SRC emacs-lisp
620
Removed:
;; (use-package zenburn-theme
621
Removed:
;; :config
622
Removed:
;; (load-theme 'zenburn))
623
Removed:
624
Removed:
(load-theme 'blendoit)
625
Removed:
#+END_SRC
626
Removed:
627
Removed:
** All the icons
628
Removed:
629
Removed:
#+BEGIN_SRC emacs-lisp
630
Removed:
(use-package all-the-icons)
631
Removed:
#+END_SRC
632
Removed:
633
Removed:
* Editing preferences
634
Removed:
635
Removed:
These customizations enhance editor usability.
636
Removed:
637
Removed:
#+BEGIN_SRC emacs-lisp
638
Removed:
(setq-default fill-column 79)
639
Removed:
(defalias 'yes-or-no-p 'y-or-n-p)
640
Removed:
#+END_SRC
641
Removed:
642
Removed:
Disable minibuffer scroll bar.
643
Removed:
644
Removed:
#+BEGIN_SRC emacs-lisp
645
Removed:
(set-window-scroll-bars (minibuffer-window) nil nil)
646
Removed:
; (set-window-scroll-bars (ibuffer-sidebar-window) nil nil)
647
Removed:
#+END_SRC
648
Removed:
649
Removed:
** Clean up menus
650
Removed:
651
Removed:
We reduce the burden on the user by reducing total amount of entries in GUI
652
Removed:
menus.
653
Removed:
654
Removed:
*** File
655
Removed:
656
Removed:
#+BEGIN_SRC emacs-lisp
657
Removed:
(define-key menu-bar-file-menu [dired] nil)
658
Removed:
(define-key menu-bar-file-menu [print-buffer] nil)
659
Removed:
(define-key menu-bar-file-menu [print-region] nil)
660
Removed:
(define-key menu-bar-file-menu [ps-print-buffer-faces] nil)
661
Removed:
(define-key menu-bar-file-menu [ps-print-region-faces] nil)
662
Removed:
(define-key menu-bar-file-menu [ps-print-buffer] nil)
663
Removed:
(define-key menu-bar-file-menu [ps-print-region] nil)
664
Removed:
(define-key menu-bar-file-menu [split-window-below] nil)
665
Removed:
(define-key menu-bar-file-menu [split-window-right] nil)
666
Removed:
(define-key menu-bar-file-menu [dired] nil)
667
Removed:
#+END_SRC
668
Removed:
669
Removed:
*** Edit
670
Removed:
671
Removed:
#+BEGIN_SRC emacs-lisp
672
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
673
Removed:
(define-key menu-bar-file-menu [dired] nil)
674
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
675
Removed:
#+END_SRC
676
Removed:
677
Removed:
*** Options
678
Removed:
679
Removed:
#+BEGIN_SRC emacs-lisp
680
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
681
Removed:
(define-key menu-bar-file-menu [dired] nil)
682
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
683
Removed:
#+END_SRC
684
Removed:
685
Removed:
*** Buffers
686
Removed:
687
Removed:
#+BEGIN_SRC emacs-lisp
688
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
689
Removed:
(define-key menu-bar-file-menu [dired] nil)
690
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
691
Removed:
#+END_SRC
692
Removed:
693
Removed:
*** Tools
694
Removed:
695
Removed:
#+BEGIN_SRC emacs-lisp
696
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
697
Removed:
(define-key menu-bar-file-menu [dired] nil)
698
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
699
Removed:
#+END_SRC
700
Removed:
701
Removed:
*** Org
702
Removed:
703
Removed:
#+BEGIN_SRC emacs-lisp
704
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
705
Removed:
(define-key menu-bar-file-menu [dired] nil)
706
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
707
Removed:
#+END_SRC
708
Removed:
709
Removed:
*** Tbl
710
Removed:
711
Removed:
#+BEGIN_SRC emacs-lisp
712
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
713
Removed:
(define-key menu-bar-file-menu [dired] nil)
714
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
715
Removed:
#+END_SRC
716
Removed:
717
Removed:
*** Text
718
Removed:
719
Removed:
#+BEGIN_SRC emacs-lisp
720
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
721
Removed:
(define-key menu-bar-file-menu [dired] nil)
722
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
723
Removed:
#+END_SRC
724
Removed:
725
Removed:
*** Projectile
726
Removed:
727
Removed:
#+BEGIN_SRC emacs-lisp
728
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
729
Removed:
(define-key menu-bar-file-menu [dired] nil)
730
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
731
Removed:
#+END_SRC
732
Removed:
733
Removed:
*** Help
734
Removed:
735
Removed:
#+BEGIN_SRC emacs-lisp
736
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
737
Removed:
(define-key menu-bar-file-menu [dired] nil)
738
Removed:
(define-key menu-bar-help-menu [emacs-psychotherapist] nil)
739
Removed:
#+END_SRC
740
Removed:
741
Removed:
** Coding standards
742
Removed:
743
Removed:
This is just a better default.
744
Removed:
745
Removed:
#+BEGIN_SRC emacs-lisp
746
Removed:
(setq c-default-style "linux"
747
Removed:
c-basic-offset 4)
748
Removed:
#+END_SRC
749
Removed:
750
Removed:
** Tabs
751
Removed:
752
Removed:
#+BEGIN_SRC emacs-lisp
753
Removed:
(use-package tabbar)
754
Removed:
#+END_SRC
755
Removed:
756
Removed:
Thank you
757
Removed:
https://andreyorst.gitlab.io/posts/2020-05-10-making-emacs-tabs-look-like-in-atom/
758
Removed:
759
Removed:
#+BEGIN_SRC emacs-lisp
760
Removed:
(when (and window-system
761
Removed:
(not (version< emacs-version "27")))
762
Removed:
(use-package tab-line
763
Removed:
:hook (after-init . global-tab-line-mode)
764
Removed:
:config
765
Removed:
(defun tab-line-close-tab (&optional e)
766
Removed:
"Close the selected tab.
767
Removed:
768
Removed:
If tab is presented in another window, close the tab by using
769
Removed:
`bury-buffer` function. If tab is unique to all existing
770
Removed:
windows, kill the buffer with `kill-buffer` function. Lastly, if
771
Removed:
no tabs left in the window, it is deleted with `delete-window`
772
Removed:
function."
773
Removed:
(interactive "e")
774
Removed:
(let* ((posnp (event-start e))
775
Removed:
(window (posn-window posnp))
776
Removed:
(buffer (get-pos-property 1 'tab (car (posn-string posnp)))))
777
Removed:
(with-selected-window window
778
Removed:
(let ((tab-list (tab-line-tabs-window-buffers))
779
Removed:
(buffer-list (flatten-list
780
Removed:
(seq-reduce (lambda (list window)
781
Removed:
(select-window window t)
782
Removed:
(cons (tab-line-tabs-window-buffers) list))
783
Removed:
(window-list) nil))))
784
Removed:
(select-window window)
785
Removed:
(if (> (seq-count (lambda (b) (eq b buffer)) buffer-list) 1)
786
Removed:
(progn
787
Removed:
(if (eq buffer (current-buffer))
788
Removed:
(bury-buffer)
789
Removed:
(set-window-prev-buffers window (assq-delete-all buffer (window-prev-buffers)))
790
Removed:
(set-window-next-buffers window (delq buffer (window-next-buffers))))
791
Removed:
(unless (cdr tab-list)
792
Removed:
(ignore-errors (delete-window window))))
793
Removed:
(and (kill-buffer buffer)
794
Removed:
(unless (cdr tab-list)
795
Removed:
(ignore-errors (delete-window window)))))))))
796
Removed:
797
Removed:
798
Removed:
(defcustom tab-line-tab-min-width 10
799
Removed:
"Minimum width of a tab in characters."
800
Removed:
:type 'integer
801
Removed:
:group 'tab-line)
802
Removed:
803
Removed:
804
Removed:
(defcustom tab-line-tab-max-width 30
805
Removed:
"Maximum width of a tab in characters."
806
Removed:
:type 'integer
807
Removed:
:group 'tab-line)
808
Removed:
809
Removed:
(defcustom tab-line-ellipsis-string "…"
810
Removed:
"String for indicating truncated names"
811
Removed:
:type 'string
812
Removed:
:group 'tab-line)
813
Removed:
814
Removed:
(defun aorst/tab-line--tab-width (window-width tab-amount)
815
Removed:
"Calculate width of single tab dividing WINDOW-WIDTH by TAB-AMOUNT."
816
Removed:
(let* ((close-button-size
817
Removed:
(if tab-line-close-button-show
818
Removed:
(length (substring-no-properties tab-line-close-button)) 0))
819
Removed:
(tab-width (/ window-width tab-amount)))
820
Removed:
(- (cond ((< window-width 0)
821
Removed:
tab-line-tab-min-width)
822
Removed:
((>= tab-width tab-line-tab-max-width)
823
Removed:
tab-line-tab-max-width)
824
Removed:
((< tab-width tab-line-tab-min-width)
825
Removed:
tab-line-tab-min-width)
826
Removed:
(t tab-width))
827
Removed:
close-button-size)))
828
Removed:
829
Removed:
(defun aorst/tab-line--max-width (window)
830
Removed:
"Calculate free width of the WINDOW.
831
Removed:
832
Removed:
Free width means amount of space we can use to display tabs
833
Removed:
without truncation."
834
Removed:
(- (window-width window)
835
Removed:
(length (substring-no-properties tab-line-left-button))
836
Removed:
(length (substring-no-properties tab-line-right-button))
837
Removed:
(if tab-line-new-button-show
838
Removed:
(length (substring-no-properties tab-line-new-button))
839
Removed:
0)))
840
Removed:
841
Removed:
842
Removed:
(defun aorst/tab-line--make-pad (tab-width name-width)
843
Removed:
"Generate padding string based on TAB-WIDTH and NAME-WIDTH."
844
Removed:
(let* ((width (- tab-width name-width))
845
Removed:
(padding (/ (if (oddp width) (+ width 1) width) 2)))
846
Removed:
(make-string padding ?\s)))
847
Removed:
848
Removed:
849
Removed:
(defun aorst/tab-line-name-buffer (buffer &rest _buffers)
850
Removed:
"Create name for tab with padding and truncation.
851
Removed:
852
Removed:
If buffer name is shorter than `tab-line-tab-max-width' it gets
853
Removed:
centered with spaces, otherwise it is truncated, to preserve
854
Removed:
equal width for all tabs. This function also tries to fit as
855
Removed:
many tabs in window as possible, so if there are no room for tabs
856
Removed:
with maximum width, it calculates new width for each tab and
857
Removed:
truncates text if needed. Minimal width can be set with
858
Removed:
`tab-line-tab-min-width' variable."
859
Removed:
(with-current-buffer buffer
860
Removed:
(let* ((amount (length (tab-line-tabs-window-buffers)))
861
Removed:
(width (aorst/tab-line--tab-width
862
Removed:
(aorst/tab-line--max-width (get-buffer-window buffer))
863
Removed:
amount))
864
Removed:
(buffer (string-trim (buffer-name)))
865
Removed:
(name-width (length buffer))
866
Removed:
(right-pad (if tab-line-close-button-show "" " "))
867
Removed:
(truncate-width (- width
868
Removed:
(length tab-line-ellipsis-string)
869
Removed:
(length right-pad))))
870
Removed:
(if (>= name-width truncate-width)
871
Removed:
(concat " " (truncate-string-to-width buffer truncate-width) tab-line-ellipsis-string right-pad)
872
Removed:
(let* ((padding (aorst/tab-line--make-pad width name-width))
873
Removed:
(tab-text (concat padding buffer))
874
Removed:
(text-width (length tab-text)))
875
Removed:
(concat tab-text (make-string (- width text-width) ?\s)))))))
876
Removed:
877
Removed:
878
Removed:
(setq tab-line-close-button-show t
879
Removed:
tab-line-new-button-show nil
880
Removed:
tab-line-separator ""
881
Removed:
tab-line-tab-name-function #'aorst/tab-line-name-buffer
882
Removed:
tab-line-right-button (propertize (if (char-displayable-p ?▶) " ▶ " " > ")
883
Removed:
'keymap tab-line-right-map
884
Removed:
'mouse-face 'tab-line-highlight
885
Removed:
'help-echo "Click to scroll right")
886
Removed:
tab-line-left-button (propertize (if (char-displayable-p ?◀) " ◀ " " < ")
887
Removed:
'keymap tab-line-left-map
888
Removed:
'mouse-face 'tab-line-highlight
889
Removed:
'help-echo "Click to scroll left")
890
Removed:
tab-line-close-button (propertize (if (char-displayable-p ?×) " × " " x ")
891
Removed:
'keymap tab-line-tab-close-map
892
Removed:
'mouse-face 'tab-line-close-highlight
893
Removed:
'help-echo "Click to close tab"))
894
Removed:
895
Removed:
896
Removed:
(let ((bg (if (facep 'solaire-default-face)
897
Removed:
(face-attribute 'solaire-default-face :background)
898
Removed:
(face-attribute 'default :background)))
899
Removed:
(fg (face-attribute 'default :foreground))
900
Removed:
(base (if (facep 'solaire-default-face)
901
Removed:
(face-attribute 'default :background)
902
Removed:
(face-attribute 'mode-line :background)))
903
Removed:
(box-width (/ (line-pixel-height) 2)))
904
Removed:
(when (and (color-defined-p bg)
905
Removed:
(color-defined-p fg)
906
Removed:
(color-defined-p base)
907
Removed:
(numberp box-width))
908
Removed:
(set-face-attribute 'tab-line nil
909
Removed:
:background base
910
Removed:
:foreground fg
911
Removed:
:height 1.0
912
Removed:
:inherit nil
913
Removed:
:box (list :line-width -1 :color base))
914
Removed:
(set-face-attribute 'tab-line-tab nil
915
Removed:
:foreground fg
916
Removed:
:background bg
917
Removed:
:weight 'normal
918
Removed:
:inherit nil
919
Removed:
:box (list :line-width box-width :color bg))
920
Removed:
(set-face-attribute 'tab-line-tab-inactive nil
921
Removed:
:foreground fg
922
Removed:
:background base
923
Removed:
:weight 'normal
924
Removed:
:inherit nil
925
Removed:
:box (list :line-width box-width :color base))
926
Removed:
(set-face-attribute 'tab-line-tab-current nil
927
Removed:
:foreground fg
928
Removed:
:background bg
929
Removed:
:weight 'normal
930
Removed:
:inherit nil
931
Removed:
:box (list :line-width box-width :color bg))))
932
Removed:
(setq tab-line-exclude-modes '())
933
Removed:
(dolist (mode '(ediff-mode
934
Removed:
process-menu-mode
935
Removed:
term-mode
936
Removed:
vterm-mode))
937
Removed:
(add-to-list 'tab-line-exclude-modes mode))
938
Removed:
939
Removed:
(defun aorst/tab-line-drop-caches ()
940
Removed:
"Drops `tab-line' cache in every window."
941
Removed:
(dolist (window (window-list))
942
Removed:
(set-window-parameter window 'tab-line-cache nil)))
943
Removed:
944
Removed:
(add-hook 'window-configuration-change-hook #'aorst/tab-line-drop-caches)))
945
Removed:
#+END_SRC
946
Removed:
947
Removed:
** auto fill
948
Removed:
949
Removed:
Automatically break lines longer than =fill-column=.
950
Removed:
951
Removed:
#+BEGIN_SRC emacs-lisp
952
Removed:
(add-hook 'org-mode-hook 'turn-on-auto-fill)
953
Removed:
#+END_SRC
954
Removed:
955
Removed:
** Recent files
956
Removed:
957
Removed:
#+BEGIN_SRC emacs-lisp
958
Removed:
(recentf-mode 1)
959
Removed:
(setq recentf-max-menu-items 25)
960
Removed:
(setq recentf-max-saved-items 25)
961
Removed:
(run-at-time nil (* 5 60) 'recentf-save-list)
962
Removed:
#+END_SRC
963
Removed:
964
Removed:
* Profiling --- stop
965
Removed:
966
Removed:
#+BEGIN_SRC emacs-lisp
967
Removed:
;; (profiler-stop)
968
Removed:
#+END_SRC
969
Removed:
970
Removed:
* Profiling --- report
971
Removed:
972
Removed:
#+BEGIN_SRC emacs-lisp
973
Removed:
;; (profiler-report)
974
Removed:
#+END_SRC
blendoit/init-blendoit.pdf
Binary files differ
blendoit/themes/blendoit-light-theme.el
@@ -0,0 +1,64 @@
1
Added:
(deftheme blendoit-light
2
Added:
"Created 2020-08-03.")
3
Added:
4
Added:
(custom-theme-set-faces
5
Added:
'blendoit-light
6
Added:
'(fixed-pitch ((t (:inherit default :family "Dejavu Sans Mono"))))
7
Added:
'(variable-pitch ((t (:family "Liberation Sans"))))
8
Added:
'(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
9
Added:
'(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
10
Added:
'(minibuffer-prompt ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "medium blue"))))
11
Added:
'(highlight ((t (:underline nil :foreground "#ffffff" :background "#454545"))))
12
Added:
'(region ((t (:background "light gray"))))
13
Added:
'(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) (((class color) (min-colors 8) (background light)) (:foreground "green")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))))
14
Added:
'(secondary-selection ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:background "yellow")) (((class color) (min-colors 16) (background dark)) (:background "SkyBlue4")) (((class color) (min-colors 8)) (:foreground "black" :background "cyan")) (t (:inverse-video t))))
15
Added:
'(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
16
Added:
'(font-lock-builtin-face ((((class grayscale) (background light)) (:weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:weight bold :foreground "DimGray")) (((class color) (min-colors 88) (background light)) (:foreground "dark slate blue")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Orchid")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold))))
17
Added:
'(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face :foreground "dim gray"))))
18
Added:
'(font-lock-comment-face ((t (:foreground "dark gray" :slant italic))))
19
Added:
'(font-lock-constant-face ((((class grayscale) (background light)) (:underline (:color foreground-color :style line) :weight bold :foreground "LightGray")) (((class grayscale) (background dark)) (:underline (:color foreground-color :style line) :weight bold :foreground "Gray50")) (((class color) (min-colors 88) (background light)) (:foreground "dark cyan")) (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 8)) (:foreground "magenta")) (t (:underline (:color foreground-color :style line) :weight bold))))
20
Added:
'(font-lock-doc-face ((t (:inherit font-lock-string-face))))
21
Added:
'(font-lock-function-name-face ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:weight bold :foreground "blue")) (t (:weight bold :inverse-video t))))
22
Added:
'(font-lock-keyword-face ((t (:foreground "DodgerBlue4"))))
23
Added:
'(font-lock-negation-char-face ((t nil)))
24
Added:
'(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
25
Added:
'(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
26
Added:
'(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
27
Added:
'(font-lock-string-face ((t (:foreground "dark cyan"))))
28
Added:
'(font-lock-type-face ((t (:foreground "ForestGreen"))))
29
Added:
'(font-lock-variable-name-face ((t (:foreground "sienna"))))
30
Added:
'(font-lock-warning-face ((t (:inherit (error)))))
31
Added:
'(link-visited ((t (:foreground "magenta4" :inherit (link)))))
32
Added:
'(fringe ((t (:background "grey95"))))
33
Added:
'(header-line ((t (:box nil :foreground "grey20" :background "grey90" :inherit (mode-line)))))
34
Added:
'(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch)))))
35
Added:
'(mode-line ((t (:box (:line-width -1 :color nil :style released-button) :foreground "black" :background "grey75"))))
36
Added:
'(mode-line-buffer-id ((t (:weight bold))))
37
Added:
'(mode-line-emphasis ((t (:weight bold))))
38
Added:
'(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))) (t (:inherit (highlight)))))
39
Added:
'(mode-line-inactive ((t (:weight light :box (:line-width -1 :color "grey75" :style nil) :foreground "grey20" :background "grey90" :inherit (mode-line)))))
40
Added:
'(isearch ((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3")) (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2")) (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4")) (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4")) (t (:inverse-video t))))
41
Added:
'(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t))))
42
Added:
'(lazy-highlight ((t (:background "paleturquoise"))))
43
Added:
'(match ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray"))))
44
Added:
'(next-error ((t (:inherit (region)))))
45
Added:
'(query-replace ((t (:inherit (isearch)))))
46
Added:
'(org-table ((t (:box (:line-width 2 :color "gainsboro" :style released-button)))))
47
Added:
'(org-formula ((t (:inherit org-table))))
48
Added:
'(org-meta-line ((t (:foreground "DodgerBlue3" :family "Hermit"))))
49
Added:
'(org-document-title ((t (:width normal :height 2.0 :weight bold :slant normal :underline nil :inherit default))))
50
Added:
'(org-level-1 ((t (:height 1.75 :weight bold :inherit fixed-pitch))))
51
Added:
'(org-level-2 ((t (:height 1.5 :weight bold :inherit fixed-pitch))))
52
Added:
'(org-level-3 ((t (:inherit fixed-pitch :weight bold :height 1.25))))
53
Added:
'(org-level-4 ((t (:inherit fixed-pitch :weight bold :height 1.1))))
54
Added:
'(org-date ((t (:inherit link :foreground "DodgerBlue3" :slant italic :family "Liberation Serif"))))
55
Added:
'(org-footnote ((t (:foreground "DodgerBlue3" :inherit link))))
56
Added:
'(org-block ((t (:inherit nil :family "Hermit"))))
57
Added:
'(org-tag ((t (:inherit link :weight bold :foreground "DodgerBlue3"))))
58
Added:
'(org-document-info ((t (:inherit org-meta-line))))
59
Added:
'(link ((t (:foreground "blue" :underline t))))
60
Added:
'(org-document-info-keyword ((t (:inherit org-meta-line))))
61
Added:
'(dashboard-heading ((t (:inherit font-lock-keyword-face))))
62
Added:
'(default ((t (:background "white" :foreground "black" :height 142 :family "Liberation Mono")))))
63
Added:
64
Added:
(provide-theme 'blendoit-light)
diary
@@ -0,0 +1,1 @@
1
Added:
x
fonts/DejaVuSansMono.ttf
Binary files differ
init-custom.aux
@@ -0,0 +1,20 @@
1
Added:
\relax
2
Added:
\providecommand\hyper@newdestlabel[2]{}
3
Added:
\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument}
4
Added:
\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined
5
Added:
\global\let\oldcontentsline\contentsline
6
Added:
\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}}
7
Added:
\global\let\oldnewlabel\newlabel
8
Added:
\gdef\newlabel#1#2{\newlabelxx{#1}#2}
9
Added:
\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}}
10
Added:
\AtEndDocument{\ifx\hyper@anchor\@undefined
11
Added:
\let\contentsline\oldcontentsline
12
Added:
\let\newlabel\oldnewlabel
13
Added:
\fi}
14
Added:
\fi}
15
Added:
\global\let\hyper@last\relax
16
Added:
\gdef\HyperFirstAtBeginDocument#1{#1}
17
Added:
\providecommand\HyField@AuxAddToFields[1]{}
18
Added:
\providecommand\HyField@AuxAddToCoFields[2]{}
19
Added:
\@nameuse{bbl@beforestart}
20
Added:
\babel@aux{english}{}
init-custom.el
@@ -14,10 +14,12 @@
14
14
'(company-quickhelp-color-background "#4F4F4F")
15
15
'(company-quickhelp-color-foreground "#DCDCCC")
16
16
'(cua-mode t nil (cua-base))
17
Added:
'(cursor-type (quote bar))
17
18
'(custom-enabled-themes nil)
18
19
'(custom-safe-themes
19
20
(quote
20
Removed:
("00087223a3ba61a42feb4bb898e8eb6cbc301e96e8e8d46c50f202b6bb435bc8" "b77b4effef346442f97b12b3b17056e60e7d8122fba4b7d692c7e633b00fef2a" "413627ea61e7aee5429a37a07d893436fa50d90db1c9cad63c3fe880d16ea366" "9de2e8914e2d8bdadad1eb0ca9ba5a1c5bbbfb71b91eaca7996691cd97f0e863" "fe4a68cae5bf268eb4da12eb78d06e40265e46c0e63eb5bf6e3545c4d0fe4cf9" "35ae89ec94b266fe007ec56be07b30aabaf6565d9a59c2e21e5943a9fec58069" "5c2bac01062bc2496baf2fde79cc4ede470b9395af5014991132034dcbfda677" "2df61c2e91799bf9d31fbe5ca4d407ef03669dbc8efd84f8acab83b0bbb63a56" "4d966fc76684e7f95122c877a95e8f6e4fa9d784225a4111cf1ce80969a4498f" "935b7766c7b74d2801be8a0cbd14967d090769e7353fcdf72b1a4d695393fd04" "503683e60ca9efa6d138cccae401269d13aef9e0101fbda20341edc2294c950b" "e55352d8828ed4e056652fa7fd5db47603ee48368fbae500837630a7345fb6b2" "f81e8249778eeeed1dc71c69cc37aab6f68d111b6e770496b2e6c87f4d1d9a05" "1ec13d23f091b5e6fb8621b85fad1ebbc3fb132daf505fd953d27f97ec573d67" "923a4e39d4da77bc40ddc2ba2fceec2c5613392bf32cc06a59e10db55ddd4ebd" "57d6156b7ae19dee1c627bcfcf298f52d271e4ca805b5c37d59906c87e281ce3" "aa4e08348cd327190a188a450d55a0abaf8780cf8d04743d632937b593bba5c9" "50fa2844d84cecfa718f92122e095ecc1243fdf004bb1348e9cee856707c6f3d" "429c077679e0586d1b6a9f22586129bb4e0793e70b414ff93f023fcfa654b08a" "9893c7f1274df4d4df0573da1ee4dfe32f73f71cdf45bba7596a09e6c637d990" "e274c4d17ef47311855ce93dcc34c512bb285e3a01e9b3b1b735e059a865e48d" "59b58e2d0b77f0e8dc305bba18dc0913ae11ebc1ea91165911f5f3bd46910470" "2946f0682172ff16ffe531ce59ea26044f949e8a51b2d4ab14d74e21fa8f2b67" "de4fe3532d51a731d313e588531e32a26f9824e216fff1306ca270487f833045" "096bb91c8fd17ff6f2f51ddaf51897c9710da5486fbbb2d370e3ff3b209ff446" "700f0a38b888fb3fe656b9d8647d71fa99b3684641cf9e02106a3e3a1ca1d87a" "5cbf5345c2af35887f1518c35c9a62409304b20006f2455ef1313507e0552b1f" default)))
21
Added:
("291ca32d7cab5f302361ccb42762976004e7fae2edbc34e11152f43a6e5c9c16" "b0c79fa277592cee7dbbfea3170e1f3269b719b54b33d603acdaee5b738b08d6" "a8c710c7efb883b06accec971ed17c18e09f3d05807069a009d93ec7ade38627" "593c0435c789f28bcddd9159d9fa80a45eda69691c67caa4ecba97a5e9f6ac09" "d0c72c22aa52049e1118bc2d98b4037b5203709820525d4f6e9af75cbeb3ae51" "1a212a5389f8a1038252d279a8d7352e548e8d3c8eb20bc4f07870e9812f9392" "c243ddcbe8b454b88b639719082c1a1e82cf4ee67238e5c89346c808542793ac" "df18c6ae25e56a4a079b568e033a65387abd8546c88d10c8f71fd53da6bfaf83" "6f553b32594f38496d6e1a1537f43c7bb01be6e1dd23b71d6eab0dbabec89fea" "a71707f476a82a62b095be6c6dccb0da91d4f6ea08ca6884698442917e916c34" "52beb7a2aaec5d3b886f0a6bb1b3857a2bc231968323528bfcc38cf001f11049" "578cfaf5c4401cee53c3995369c350494fc269f600143335ec1262ffcba4d2f9" "ba6064e2177b67fdc02d3f03a9113d4ec9b74aa59a9c4c113941e2df3c66e300" "bf34b0175ef0ec31b21a711a727c42c8d7ea365687a4112a9673df8533d1d963" "dbe7226f44551ec85af99674282fce8340ee8109cff62fe251f3979125472796" "ec66048d6ed6a5d65a74fd4fd0ba1ce034fd58bc75624539dbed2b85046ee5b7" "b1a729f6d62b537e06abd2913978fc8203136f978bcdd4d0704f232fb59f6d07" "7bc04e8d1cbfa63ac7bfa685909f48cf7b05b772f7fe1de166dc72788c4ae10c" "037c17db2dda3e0a7b367ec22f80933ad61ee2de7b1abbf670172a5e165b9d7f" "dfe4340343a7f5e80441ae544378943db147a1eb6fa5e074fb8955a36b0f182f" "e1ed7dc1cdf09ba9c589c3b829a95723a1b962eaa90668486367f6500d6e464f" "a8b3c62c9b9221c19993f58bb6eaf532e55363d8d2368fde50eb0eef86929ddf" "dc3a12a73fd52959e3c8eebff0911f8a3f764def026e557660590b5fd1248f4b" "b13d696132ccaf45c6f5119439b6664abd2d871197a92f53fedb4e041db5e578" "a5ffe59afbe822411636369fd2f0f7a37dac10f3932ee67be02cc4d5f2f34a62" "05c1eb6742e96a622772413711d1f7b8cc4b7b7ac0a5bb9da3cd0f5a03a94d63" "d400bc776687ac7d8a04f3de3bd12b5714316ce9571805fe43b7b9a3207398e9" "254b7a1f3b6ae1e26a7981a904374909e6094d1959766c8a56e0a72c1bc73988" "c704a1e52c8393bab1edf20333c00f0a1f4e9d68f81dac2231ff8ac7fa594270" "0d33946ed3756f7af05220d584e16e87e94cea39e1a6eef8203762404436c971" "4ea5fc77916d724956ba8668959c87517e25e4df75cc23bbb9709d2c417e420b" "f4992270fc1f04c92a35dc92ff7ae108fcea48d00aed59cd2e2074228f13d206" "4baddb255d9d85b2de41ed80db2304f258e5ab4d9dd86e3d7b645b3fe5d4af47" "77856f1616f0a4befe693cc89718e4e81ca02186ccd423a70f741f2e3974d10f" "9ce3f9dc04a4a50169c8bc58202bd4107bd3bec3dee04ca0d2747f563fdbf37c" "2383aad6d7a2ab84816102a614217ae2f71346febf758a35c38f540cf5a4f870" "4f3256a77d296e0f96ca6071c61f9de658e8e5e8fbb33a3fb0a25bd3cac1ba95" "05f98c3f10b215b37151685fb42bc108481a59145fd557edf5c4b140902af69b" "e6e3f9539236fc2b9f4c1ca06e47289e3e84011d194edc2fe8db1326f27162e2" "91ae05962e013e0925e56e4b98d87090f48de36876ba9fa939ae760e16aee566" "00087223a3ba61a42feb4bb898e8eb6cbc301e96e8e8d46c50f202b6bb435bc8" "b77b4effef346442f97b12b3b17056e60e7d8122fba4b7d692c7e633b00fef2a" "413627ea61e7aee5429a37a07d893436fa50d90db1c9cad63c3fe880d16ea366" "9de2e8914e2d8bdadad1eb0ca9ba5a1c5bbbfb71b91eaca7996691cd97f0e863" "fe4a68cae5bf268eb4da12eb78d06e40265e46c0e63eb5bf6e3545c4d0fe4cf9" "35ae89ec94b266fe007ec56be07b30aabaf6565d9a59c2e21e5943a9fec58069" "5c2bac01062bc2496baf2fde79cc4ede470b9395af5014991132034dcbfda677" "2df61c2e91799bf9d31fbe5ca4d407ef03669dbc8efd84f8acab83b0bbb63a56" "4d966fc76684e7f95122c877a95e8f6e4fa9d784225a4111cf1ce80969a4498f" "935b7766c7b74d2801be8a0cbd14967d090769e7353fcdf72b1a4d695393fd04" "503683e60ca9efa6d138cccae401269d13aef9e0101fbda20341edc2294c950b" "e55352d8828ed4e056652fa7fd5db47603ee48368fbae500837630a7345fb6b2" "f81e8249778eeeed1dc71c69cc37aab6f68d111b6e770496b2e6c87f4d1d9a05" "1ec13d23f091b5e6fb8621b85fad1ebbc3fb132daf505fd953d27f97ec573d67" "923a4e39d4da77bc40ddc2ba2fceec2c5613392bf32cc06a59e10db55ddd4ebd" "57d6156b7ae19dee1c627bcfcf298f52d271e4ca805b5c37d59906c87e281ce3" "aa4e08348cd327190a188a450d55a0abaf8780cf8d04743d632937b593bba5c9" "50fa2844d84cecfa718f92122e095ecc1243fdf004bb1348e9cee856707c6f3d" "429c077679e0586d1b6a9f22586129bb4e0793e70b414ff93f023fcfa654b08a" "9893c7f1274df4d4df0573da1ee4dfe32f73f71cdf45bba7596a09e6c637d990" "e274c4d17ef47311855ce93dcc34c512bb285e3a01e9b3b1b735e059a865e48d" "59b58e2d0b77f0e8dc305bba18dc0913ae11ebc1ea91165911f5f3bd46910470" "2946f0682172ff16ffe531ce59ea26044f949e8a51b2d4ab14d74e21fa8f2b67" "de4fe3532d51a731d313e588531e32a26f9824e216fff1306ca270487f833045" "096bb91c8fd17ff6f2f51ddaf51897c9710da5486fbbb2d370e3ff3b209ff446" "700f0a38b888fb3fe656b9d8647d71fa99b3684641cf9e02106a3e3a1ca1d87a" "5cbf5345c2af35887f1518c35c9a62409304b20006f2455ef1313507e0552b1f" default)))
22
Added:
'(custom-theme-directory "~/.emacs.d/blendoit/themes/")
21
23
'(fci-rule-color "#383838")
22
24
'(fill-column 79)
23
25
'(ibuffer-sidebar-display-column-titles t)
@@ -42,7 +44,7 @@
42
44
'(org-agenda-diary-file "~/org/PERSONAL/diary/diary.org")
43
45
'(org-agenda-files
44
46
(quote
45
Removed:
("~/.emacs.d/blendoit/init-blendoit.org" "~/org/PERSONAL/workout/workout.org" "~/org/WORK/Safran/programs/MA700/notes/MA700-notes.org_archive" "~/org/WORK/Safran/programs/MA700/notes/MA700-notes.org" "~/org/PERSONAL/diary/log.org" "~/org/WORK/Safran/programs/B787/VIP/timeline.org" "~/org/PERSONAL/diary/diary.org" "~/org/WORK/Safran/programs/WFH/WFH-notes.org_archive" "~/org/WORK/Safran/programs/WFH/WFH-notes.org" "~/org/WORK/Safran/programs/PHM/PHM-notes.org_archive" "~/org/WORK/Safran/programs/MRJ/test-fixture-status.org" "~/org/WORK/Safran/programs/MRJ/MRJ-notes.org" "~/org/WORK/Safran/programs/A220/A220-notes.org" "~/org/PERSONAL/projects/projects.org" "~/org/PERSONAL/schedule-personal.org" "~/org/WORK/Safran/schedule-Safran.org" "~/org/people.org")))
47
Added:
("~/org/PERSONAL/workout/workout.org" "~/org/WORK/Safran/programs/MA700/notes/MA700-notes.org_archive" "~/org/WORK/Safran/programs/MA700/notes/MA700-notes.org" "~/org/PERSONAL/diary/log.org" "~/org/WORK/Safran/programs/B787/VIP/timeline.org" "~/org/PERSONAL/diary/diary.org" "~/org/WORK/Safran/programs/WFH/WFH-notes.org_archive" "~/org/WORK/Safran/programs/WFH/WFH-notes.org" "~/org/WORK/Safran/programs/PHM/PHM-notes.org_archive" "~/org/WORK/Safran/programs/MRJ/test-fixture-status.org" "~/org/WORK/Safran/programs/MRJ/MRJ-notes.org" "~/org/WORK/Safran/programs/A220/A220-notes.org" "~/org/PERSONAL/projects/projects.org" "~/org/PERSONAL/schedule-personal.org" "~/org/WORK/Safran/schedule-Safran.org" "~/org/people.org")))
46
48
'(org-agenda-include-diary t)
47
49
'(org-agenda-insert-diary-strategy (quote date-tree-last))
48
50
'(org-agenda-skip-scheduled-if-deadline-is-shown (quote not-today))
@@ -107,6 +109,7 @@
107
109
'(pdf-view-midnight-colors (quote ("#DCDCCC" . "#383838")))
108
110
'(save-place-mode t)
109
111
'(send-mail-function (quote smtpmail-send-it))
112
Added:
'(show-paren-mode t)
110
113
'(smtpmail-smtp-server "smtp.gmail.com")
111
114
'(smtpmail-smtp-service 587)
112
115
'(vc-annotate-background "#2B2B2B")
@@ -137,11 +140,7 @@
137
140
;; If you edit it by hand, you could mess it up, so be careful.
138
141
;; Your init file should contain only one such instance.
139
142
;; If there is more than one, they won't work right.
143
Added:
'(default ((t (:family "Liberation Mono" :foundry "1ASC" :slant normal :weight normal :height 142 :width normal))))
140
144
'(cursor ((t (:background "red"))))
141
Removed:
'(fixed-pitch ((t (:family "Hermit"))))
142
Removed:
'(highlight ((t (:background "#454545" :foreground "#ffffff" :underline nil))))
143
Removed:
'(org-document-title ((t (:inherit default :weight bold :font "Liberation Sans" :height 2.0 :underline nil))))
144
Removed:
'(org-level-1 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.75))))
145
Removed:
'(org-level-2 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.5))))
146
Removed:
'(org-level-3 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.25))))
147
Removed:
'(org-level-4 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.1)))))
145
Added:
'(fixed-pitch ((t (:family "Liberation Mono"))))
146
Added:
'(highlight ((t (:background "#454545" :foreground "#ffffff" :underline nil)))))
init.el
@@ -8,4 +8,4 @@
8
8
9
9
;;; Code:
10
10
11
Removed:
(org-babel-load-file "~/.emacs.d/blendoit/init-blendoit.org")
11
Added:
(org-babel-load-file "~/.emacs.d/blendoit/blendoit-init.org")