[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Logic
smart-documents.org
@@ -1,4 +1,5 @@
1
1
# -*- mode: org; -*-
2
Added:
2
3
#+TITLE: Smart Documents
3
4
#+AUTHOR: Marius Peter
4
5
#+DATE: <2020-12-19 Sat>
@@ -6,6 +7,7 @@
6
7
#+STARTUP: showall
7
8
#+SETUPFILE: ~/.emacs.d/templates/documents/gnu-default.org
8
9
#+INCLUDE: ~/.emacs.d/templates/documents/default-title.org
10
Added:
9
11
#+LATEX_HEADER_EXTRA: \newfontfamily\garamond{EB Garamond}
10
12
#+LATEX_HEADER_EXTRA: \newfontfamily\publicsans{Public Sans}
11
13
@@ -371,13 +373,7 @@
371
373
372
374
#+NAME: close-window-or-previous-buffer
373
375
#+BEGIN_SRC emacs-lisp :tangle yes
374
Removed:
(global-set-key (kbd "C-w")
375
Removed:
(lambda ()
376
Removed:
"Delete window; if sole window, previous buffer."
377
Removed:
(interactive)
378
Removed:
(if (> (length (window-list)) 1)
379
Removed:
(delete-window)
380
Removed:
(previous-buffer))))
376
Added:
(global-set-key (kbd "C-w") 'sd-delete-window-or-previous-buffer)
381
377
#+END_SRC
382
378
383
379
** Frame
@@ -398,13 +394,8 @@
398
394
399
395
#+NAME: delete-frame-or-kill-emacs
400
396
#+BEGIN_SRC emacs-lisp :tangle yes
401
Removed:
(global-set-key (kbd "C-q")
402
Removed:
(lambda ()
403
Removed:
(interactive)
404
Removed:
"delete frame; if sole frame, kill Emacs."
405
Removed:
(if (> (length (frame-list)) 1)
406
Removed:
(delete-frame)
407
Removed:
(kill-emacs))))
397
Added:
(global-set-key (kbd "C-q") 'sd-delete-frame-or-kill-emacs)
398
Added:
(setq confirm-kill-emacs 'y-or-n-p)
408
399
#+END_SRC
409
400
410
401
*** Open sidebar
@@ -1358,6 +1349,29 @@
1358
1349
(when (eq major-mode 'org-mode)
1359
1350
(sd-indent-buffer)))
1360
1351
#+END_SRC
1352
Added:
1353
Added:
** Smart window quitting
1354
Added:
1355
Added:
#+BEGIN_SRC emacs-lisp :tangle yes
1356
Added:
(defun sd-delete-window-or-previous-buffer ()
1357
Added:
"Delete window; if sole window, previous buffer."
1358
Added:
(interactive)
1359
Added:
(if (> (length (window-list)) 1)
1360
Added:
(delete-window)
1361
Added:
(previous-buffer)))
1362
Added:
#+END_SRC
1363
Added:
1364
Added:
** Smart frame quitting
1365
Added:
1366
Added:
#+BEGIN_SRC emacs-lisp :tangle yes
1367
Added:
(defun sd-delete-frame-or-kill-emacs ()
1368
Added:
(interactive)
1369
Added:
"delete frame; if sole frame, kill Emacs."
1370
Added:
(if (> (length (frame-list)) 1)
1371
Added:
(delete-frame)
1372
Added:
(kill-emacs)))
1373
Added:
#+END_SRC
1374
Added:
1361
1375
1362
1376
* Editing preferences
1363
1377