Move speedbar
This commit is contained in:
parent
3fc06c105e
commit
44999dc9e8
@ -17,13 +17,14 @@
|
|||||||
|
|
||||||
(setq emodule/emacs-packages
|
(setq emodule/emacs-packages
|
||||||
|
|
||||||
'(info+
|
'(discover-my-major
|
||||||
discover-my-major
|
|
||||||
help+
|
help+
|
||||||
help-fns+
|
help-fns+
|
||||||
help-mode+
|
help-mode+
|
||||||
ibuffer-vc
|
ibuffer-vc
|
||||||
|
info+
|
||||||
rainbow-mode
|
rainbow-mode
|
||||||
|
sr-speedbar
|
||||||
which-key
|
which-key
|
||||||
use-package)
|
use-package)
|
||||||
|
|
||||||
@ -82,6 +83,30 @@
|
|||||||
" "
|
" "
|
||||||
filename-and-process))))
|
filename-and-process))))
|
||||||
|
|
||||||
|
;; --------------------------------------------------------------------------
|
||||||
|
;; Speedbar.
|
||||||
|
;; --------------------------------------------------------------------------
|
||||||
|
|
||||||
|
(use-package sr-speedbar
|
||||||
|
:defer t
|
||||||
|
:bind
|
||||||
|
(("C-c s" . sr-speedbar-toggle))
|
||||||
|
:config
|
||||||
|
(setq-default
|
||||||
|
sr-speedbar-skip-other-window-p t
|
||||||
|
sr-speedbar-right-side nil
|
||||||
|
speedbar-show-unknown-files t
|
||||||
|
sr-speedbar-delete-windows t)
|
||||||
|
|
||||||
|
(defun goto-speedbar ()
|
||||||
|
"Set the speedbar window as the active window."
|
||||||
|
(interactive)
|
||||||
|
(if (window-live-p sr-speedbar-window)
|
||||||
|
(set-frame-selected-window (window-frame) sr-speedbar-window)
|
||||||
|
(user-error "Speedbar window is not live")))
|
||||||
|
|
||||||
|
(global-set-key (kbd "M-m") #'goto-speedbar))
|
||||||
|
|
||||||
;; --------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------
|
||||||
;; Rainbow mode.
|
;; Rainbow mode.
|
||||||
;; --------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------
|
||||||
|
@ -31,7 +31,6 @@
|
|||||||
highlight-symbol
|
highlight-symbol
|
||||||
plantuml-mode
|
plantuml-mode
|
||||||
rust-mode
|
rust-mode
|
||||||
sr-speedbar
|
|
||||||
stickyfunc-enhance
|
stickyfunc-enhance
|
||||||
swiper
|
swiper
|
||||||
toml-mode
|
toml-mode
|
||||||
@ -213,30 +212,6 @@
|
|||||||
:defer t
|
:defer t
|
||||||
:mode "\\.lock\\'")
|
:mode "\\.lock\\'")
|
||||||
|
|
||||||
;; --------------------------------------------------------------------------
|
|
||||||
;; Speedbar.
|
|
||||||
;; --------------------------------------------------------------------------
|
|
||||||
|
|
||||||
(use-package sr-speedbar
|
|
||||||
:defer t
|
|
||||||
:bind
|
|
||||||
(("C-c s" . sr-speedbar-toggle))
|
|
||||||
:config
|
|
||||||
(setq-default
|
|
||||||
sr-speedbar-skip-other-window-p t
|
|
||||||
sr-speedbar-right-side nil
|
|
||||||
speedbar-show-unknown-files t
|
|
||||||
sr-speedbar-delete-windows t)
|
|
||||||
|
|
||||||
(defun goto-speedbar ()
|
|
||||||
"Set the speedbar window as the active window."
|
|
||||||
(interactive)
|
|
||||||
(if (window-live-p sr-speedbar-window)
|
|
||||||
(set-frame-selected-window (window-frame) sr-speedbar-window)
|
|
||||||
(user-error "Speedbar window is not live")))
|
|
||||||
|
|
||||||
(global-set-key (kbd "M-m") #'goto-speedbar))
|
|
||||||
|
|
||||||
;; --------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------
|
||||||
;; Configure `swiper'.
|
;; Configure `swiper'.
|
||||||
;; --------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------
|
||||||
|
Reference in New Issue
Block a user