diff options
| -rw-r--r-- | smart-documents.org | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/smart-documents.org b/smart-documents.org index 1587c78..e7df055 100644 --- a/smart-documents.org +++ b/smart-documents.org @@ -389,23 +389,6 @@ The following bindings lead to more natural window & frame exit behaviors. (global-set-key (kbd "C-q") 'sd-delete-frame-or-kill-emacs) #+END_SRC -*** Open sidebar - -We define bindings to open a sidebar at the left of the frame. - -#+BEGIN_SRC emacs-lisp :tangle yes - (global-set-key (kbd "<left-fringe> <mouse-1>") - (lambda () - "Open the sidebar on the left side." - (interactive) - (sd-sidebar "left"))) - (global-set-key (kbd "<right-fringe> <mouse-1>") - (lambda () - "Open the sidebar on the right side." - (interactive) - (sd-sidebar "right"))) -#+END_SRC - ** Text display *** Zoom @@ -884,36 +867,6 @@ We replace the standard welcome screen with our own. (setq dashboard-banner-logo-title "A modern professional text editor.")) #+END_SRC -*** TODO Sidebar -:PROPERTIES: -:sd-unpack-path: sd-sidebar.el -:END: - -Get inspiration from ~ibuffer-sidebar~ and create a better sidebar. - -#+BEGIN_SRC emacs-lisp :tangle yes - (defvar sd-sidebar nil "Becomes true if sd-sidebar is visible.") - - (defun sd-sidebar (side) - "Open the sidebar on the chosen SIDE of the buffer." - (interactive) - (cond ((eq sd-sidebar t) - (unless (one-window-p) - (delete-window)) - (setq sd-sidebar nil)) - ((string-equal side "left") - (split-window-right) - (dired ".") - (dired-hide-details-mode) - (setq sd-sidebar t)) - ((string-equal side "right") - (split-window-right) - (windmove-right) - (dired ".") - (dired-hide-details-mode) - (setq sd-sidebar t)))) -#+END_SRC - *** Better parentheses #+BEGIN_SRC emacs-lisp :tangle yes |