Commit 61d489a8 authored by Guilherme Semente's avatar Guilherme Semente 🌱

General tweaks

parent cd0efcf2
......@@ -85,6 +85,7 @@ the current buffer."
You may find other key bindings inside use-package statements."
(bind-key "C-x k" 'kill-this-buffer)
(bind-key [f1] 'semente-describe-personal-keybindings)
(bind-key "M-/" 'hippie-expand)
(bind-key "M-\\" 'cycle-spacing)
......@@ -156,18 +157,18 @@ You may find other key bindings inside use-package statements."
;; Special windows
;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Frame-Layouts-with-Side-Windows.html
(progn
(setq display-buffer-alist
`(("\\*\\(?:shell\\)\\*"
display-buffer-in-side-window
(side . bottom)
(slot . 0)
(window-height . 12)
(preserve-size . (nil . t))
(window-parameters . ((no-delete-other-windows . t)
(no-other-window . t))))))
(setq fit-window-to-buffer-horizontally t
window-resize-pixelwise t))
;; (progn
;; (setq display-buffer-alist
;; `(("\\*\\(?:shell\\)\\*"
;; display-buffer-in-side-window
;; (side . bottom)
;; (slot . 0)
;; (window-height . 12)
;; (preserve-size . (nil . t))
;; (window-parameters . ((no-delete-other-windows . t)
;; (no-other-window . t))))))
;; (setq fit-window-to-buffer-horizontally t
;; window-resize-pixelwise nil))
(setq kill-whole-line t)
......@@ -198,16 +199,17 @@ You may find other key bindings inside use-package statements."
(setq enable-recursive-minibuffers t)
(minibuffer-depth-indicate-mode 1)
;; bury certain buffers instead of killing them
(progn
(defvar semente-maybe-bury-buffer-list '("*scratch*" "*Messages*"))
(defun semente-maybe-bury-kill-buffer-query-function ()
"Bury buffers instead of killing them."
(if (member (buffer-name (current-buffer)) semente-maybe-bury-buffer-list)
(defvar maybe-bury-buffer-list '("*scratch*" "*Messages*" "*notmuch-hello*"))
(defun maybe-bury-kill-buffer-query-function ()
"Bury buffers listed in `maybe-bury-buffer-list' instead of
killing them."
(if (member (buffer-name (current-buffer)) maybe-bury-buffer-list)
(bury-buffer)
t))
(add-hook 'kill-buffer-query-functions 'semente-maybe-bury-kill-buffer-query-function))
(add-hook 'kill-buffer-query-functions
'maybe-bury-kill-buffer-query-function))
(use-package time
:defer
......@@ -399,8 +401,8 @@ You may find other key bindings inside use-package statements."
(use-package shell
:bind ("C-z" . semente-shell)
;; :bind (:map shell-mode-map ("C-z" . semente-jump-to-register-S))
:bind (:map shell-mode-map ("C-z" . other-window))
:bind (:map shell-mode-map ("C-z" . semente-jump-to-register-S))
;; :bind (:map shell-mode-map ("C-z" . other-window))
:bind (:map shell-mode-map ("C-l" . semente-comint-clear-buffer))
:bind (:map shell-mode-map ("TAB" . company-manual-begin))
:preface
......@@ -459,6 +461,8 @@ You may find other key bindings inside use-package statements."
(setq ivy-count-format ""
ivy-height 7
ivy-use-virtual-buffers t
ivy-use-selectable-prompt t
ivy-virtual-abbreviate 'full
ivy-re-builders-alist '((t . ivy--regex-fuzzy))))
(use-package swiper
......@@ -1055,17 +1059,8 @@ You may find other key bindings inside use-package statements."
"E-mail"
(use-package notmuch
:bind ("C-c r" . 'semente-notmuch)
:bind ("C-c r" . 'notmuch)
:bind ("C-x m" . 'notmuch-mua-mail)
:preface
(defun semente-notmuch ()
(interactive)
(semente-call-or-switch-to-buffer 'semente-notmuch-and-poll "*notmuch-hello*"))
(defun semente-notmuch-and-poll ()
(interactive)
(notmuch-poll)
(notmuch)
(notmuch-refresh-all-buffers))
:config
(setq notmuch-show-logo nil
notmuch-hello-thousands-separator ""
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment