Deleted commented-out code.
smooth-scrolling, tabbar-ruler, fci-mode.
This commit is contained in:
parent
51fbdd3082
commit
6309e54011
109
init.el
109
init.el
|
@ -1,5 +1,5 @@
|
|||
;;; init.el --- tastytea's Emacs init file.
|
||||
;; Time-stamp: <2019-05-14T22:28:02+00:00>
|
||||
;; Time-stamp: <2019-05-15T00:38:30+00:00>
|
||||
|
||||
;;; Commentary:
|
||||
;; I am using this file with Emacs 26, but most of it will probably work with
|
||||
|
@ -141,15 +141,6 @@
|
|||
:config
|
||||
(save-place-mode t))
|
||||
|
||||
;; Scroll before cursor has reached top/bottom.
|
||||
;; Way too slow with fci-mode, highlight-indent-guides, or whitespace-mode.
|
||||
;; (use-package smooth-scrolling
|
||||
;; :config
|
||||
;; (smooth-scrolling-mode 1))
|
||||
|
||||
;; ;; Never recenter cursor while scrolling.
|
||||
;; (setq scroll-conservatively 101)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;; Keybindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
(use-package bind-key
|
||||
:init
|
||||
|
@ -244,11 +235,9 @@ With argument, do this that many times."
|
|||
(use-package projectile
|
||||
:after neotree
|
||||
:init
|
||||
(defun my/projectile-kill-buffers-and-change-tabbar-grouping ()
|
||||
"Kill project buffers and change tabbar-ruler grouping to user-buffers."
|
||||
(interactive)
|
||||
(defun my/projectile-kill-buffers ()
|
||||
"Kill project buffers and hide neotree."
|
||||
(projectile-kill-buffers)
|
||||
(tabbar-ruler-group-user-buffers)
|
||||
(neotree-hide))
|
||||
(defvar my/cmake-compile-command ; cmake command for compiling with 1
|
||||
(concat "cmake --build . -- -j" ; core less than available.
|
||||
|
@ -269,7 +258,7 @@ With argument, do this that many times."
|
|||
:bind
|
||||
("C-c p" . 'projectile-command-map)
|
||||
(:map projectile-command-map
|
||||
("k" . 'my/projectile-kill-buffers-and-change-tabbar-grouping))))
|
||||
("k" . 'my/projectile-kill-buffers))))
|
||||
|
||||
;; Highlight TODO, FIXME, NOTE and so on.
|
||||
(use-package hl-todo
|
||||
|
@ -490,39 +479,6 @@ With argument, do this that many times."
|
|||
;; (magit-bury-buffer-function 'my/magit-kill-buffers)
|
||||
))
|
||||
|
||||
;; ;; Draw line in column 80
|
||||
;; (use-package fill-column-indicator
|
||||
;; :after company
|
||||
;; :config
|
||||
;; ;; Fix bug with fci + popup menus.
|
||||
;; (defun my/fci-mode-enabled-p ()
|
||||
;; (symbol-value 'fci-mode))
|
||||
;; (defvar-local my/fci-enabled nil)
|
||||
;; ;; company:
|
||||
;; (defun my/on-off-fci-before-company(command)
|
||||
;; "Turn fci-mode off while displaying popups in company."
|
||||
;; (when (string= "show" command)
|
||||
;; (setq-local my/fci-enabled (my/fci-mode-enabled-p))
|
||||
;; (if my/fci-enabled
|
||||
;; (turn-off-fci-mode)))
|
||||
;; (when (string= "hide" command)
|
||||
;; (if my/fci-enabled
|
||||
;; (turn-on-fci-mode))))
|
||||
;; (advice-add 'company-call-frontends :before #'my/on-off-fci-before-company)
|
||||
;; ;; popup:
|
||||
;; (defadvice popup-create (before my/popup-suppress-fci-mode activate)
|
||||
;; "Suspend fci-mode while popups are visible."
|
||||
;; (setq-local my/fci-enabled (my/fci-mode-enabled-p))
|
||||
;; (if my/fci-enabled
|
||||
;; (turn-off-fci-mode)))
|
||||
;; (defadvice popup-delete (after my/popup-restore-fci-mode activate)
|
||||
;; "Restore fci-mode when all popups have closed."
|
||||
;; (if my/fci-enabled
|
||||
;; (turn-on-fci-mode)))
|
||||
;; :hook
|
||||
;; (prog-mode . fci-mode)
|
||||
;; (conf-mode . fci-mode))
|
||||
|
||||
;; Interactive substring matching.
|
||||
(use-package ido
|
||||
:defer 5
|
||||
|
@ -548,63 +504,6 @@ With argument, do this that many times."
|
|||
:config
|
||||
(ido-ubiquitous-mode t)))
|
||||
|
||||
;; ;; Advanced tab bar.
|
||||
;; (unless slow-computer
|
||||
;; (use-package mode-icons)
|
||||
;; (use-package tabbar-ruler
|
||||
;; :pin melpa ; Faces are not correctly applied,
|
||||
;; :after (projectile mode-icons) ; version from >=2016-08-02 is needed.
|
||||
;; :custom
|
||||
;; (tabbar-ruler-global-tabbar t)
|
||||
;; (tabbar-ruler-global-ruler t)
|
||||
;; :config
|
||||
;; ;; (tabbar-ruler-group-by-projectile-project) ; Group by projectile.
|
||||
;; ;; (tabbar-ruler-group-buffer-groups) ; Group by file type.
|
||||
;; (tabbar-ruler-group-user-buffers) ; Group by frame.
|
||||
;; (mode-icons-mode 0) ; Disable modeline symbols.
|
||||
|
||||
;; (add-hook 'projectile-after-switch-project-hook ; Does not work under :hook.
|
||||
;; 'tabbar-ruler-group-by-projectile-project)
|
||||
|
||||
;; ;; (defun my/show-tabbar ()
|
||||
;; ;; "Show tabbar if it is hidden."
|
||||
;; ;; (when tabbar-ruler-tabbar-off
|
||||
;; ;; (tabbar-mode 1)
|
||||
;; ;; (setq tabbar-ruler-tabbar-off nil)
|
||||
;; ;; (ruler-mode -1)
|
||||
;; ;; (setq tabbar-ruler-ruler-off 't)
|
||||
;; ;; ))
|
||||
|
||||
;; ;; ;; Show tabbar after 2 seconds idle.
|
||||
;; ;; (run-with-idle-timer 2 t (lambda () (my/show-tabbar)))
|
||||
;; :bind
|
||||
;; ("C-<prior>" . 'tabbar-ruler-tabbar-backward-tab)
|
||||
;; ("C-<next>" . 'tabbar-ruler-tabbar-forward-tab)
|
||||
;; :custom-face
|
||||
;; (tabbar-selected ((t
|
||||
;; (:background "gray5"
|
||||
;; :foreground "light gray"
|
||||
;; :family "Sans Serif"
|
||||
;; :bold t))))
|
||||
;; (tabbar-unselected ((t
|
||||
;; (:background "gray18"
|
||||
;; :foreground "dark gray"
|
||||
;; :family "Sans Serif"
|
||||
;; :italic t))))
|
||||
;; (tabbar-modified ((t
|
||||
;; (:foreground "brown2"
|
||||
;; :italic t
|
||||
;; :bold nil))))
|
||||
;; (ruler-mode-default ((t
|
||||
;; (:inherit default
|
||||
;; :background "gray18"
|
||||
;; :foreground "dim gray"
|
||||
;; :box nil))))
|
||||
;; (ruler-mode-column-number ((t
|
||||
;; (:inherit ruler-mode-default
|
||||
;; :foreground "dark gray"))))
|
||||
;; ))
|
||||
|
||||
;; Ruler with fill-column marker.
|
||||
(use-package ruler-mode
|
||||
:custom-face
|
||||
|
|
|
@ -1,2 +1,2 @@
|
|||
127.0.0.1:51313 23413
|
||||
127.0.0.1:51313 28139
|
||||
phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh
|
Loading…
Reference in New Issue