[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Sidebar revamp.
smart-documents.org
@@ -450,18 +450,30 @@
450
450
#+NAME: delete-frame-or-kill-emacs
451
451
#+BEGIN_SRC emacs-lisp :tangle yes
452
452
(global-set-key (kbd "C-q")
453
Removed:
'(lambda ()
454
Removed:
(interactive)
455
Removed:
"delete frame; if sole frame, kill Emacs."
456
Removed:
(if (> (length (frame-list)) 1)
457
Removed:
(delete-frame)
458
Removed:
(kill-emacs))))
453
Added:
(lambda ()
454
Added:
(interactive)
455
Added:
"delete frame; if sole frame, kill Emacs."
456
Added:
(if (> (length (frame-list)) 1)
457
Added:
(delete-frame)
458
Added:
(kill-emacs))))
459
459
#+END_SRC
460
460
461
Removed:
*** Open sidebar
461
Added:
*** Open LHS & RHS sidebar
462
462
463
Added:
We define bindings to open both the left-hand & right-hand
464
Added:
sidebar.
465
Added:
463
466
#+BEGIN_SRC emacs-lisp :tangle yes
464
Removed:
(global-set-key (kbd "<left-fringe> <mouse-1>") 'sd-sidebar)
467
Added:
(global-set-key (kbd "<left-fringe> <mouse-1>")
468
Added:
(lambda ()
469
Added:
"Open the sidebar on the left side."
470
Added:
(interactive)
471
Added:
(sd-sidebar "left")))
472
Added:
(global-set-key (kbd "<right-fringe> <mouse-1>")
473
Added:
(lambda ()
474
Added:
"Open the sidebar on the right side."
475
Added:
(interactive)
476
Added:
(sd-sidebar "right")))
465
477
#+END_SRC
466
478
467
479
** Text display
@@ -937,16 +949,25 @@
937
949
#+BEGIN_SRC emacs-lisp :tangle yes
938
950
(defvar sd-sidebar nil "Becomes true if sd-sidebar is visible.")
939
951
940
Removed:
(defun sd-sidebar ()
952
Added:
(defun sd-sidebar (side)
953
Added:
"Open the sidebar on the chosen SIDE of the buffer."
941
954
(interactive)
942
Removed:
(if (eq sd-sidebar t)
943
Removed:
(progn
944
Removed:
(delete-window)
945
Removed:
(setq sd-sidebar nil))
946
Removed:
(split-window-right)
947
Removed:
(dired ".")
948
Removed:
(dired-hide-details-mode)
949
Removed:
(setq sd-sidebar t)))
955
Added:
(cond ((eq sd-sidebar t) ; If sidebar is open
956
Added:
; anywhere, close it.
957
Added:
(unless (one-window-p)
958
Added:
(delete-window))
959
Added:
(setq sd-sidebar nil))
960
Added:
((string-equal side "left")
961
Added:
(split-window-right)
962
Added:
(dired ".")
963
Added:
(dired-hide-details-mode)
964
Added:
(setq sd-sidebar t))
965
Added:
((string-equal side "right")
966
Added:
(split-window-right)
967
Added:
(windmove-right)
968
Added:
(dired ".")
969
Added:
(dired-hide-details-mode)
970
Added:
(setq sd-sidebar t))))
950
971
#+END_SRC
951
972
952
973
*** Better parentheses