Commit 8b5a80de authored by Guilherme Semente's avatar Guilherme Semente 🌱

Small improvements

parent 5cf4708a
......@@ -88,22 +88,7 @@ the current buffer."
(interactive)
(if (active-minibuffer-window)
(select-window (active-minibuffer-window))
(error "Minibuffer is not active")))
(defun startup--get-buffer-create-scratch ()
(or (get-buffer "*scratch*")
(with-current-buffer (get-buffer-create "*scratch*")
(set-buffer-major-mode (current-buffer))
(setq-local lexical-binding t)
(current-buffer))))
(defun semente-switch-to-scratch-buffer (&optional arg)
(interactive)
(if (get-buffer "*scratch*")
(switch-to-buffer "*scratch*")
(find-file "~/scratch")
(funcall initial-major-mode)
(rename-buffer "*scratch*"))))
(error "Minibuffer is not active"))))
......@@ -145,16 +130,7 @@ You may find other key bindings inside use-package statements."
auto-save-timeout 20
auto-save-interval 100)
(setq inhibit-startup-screen t
initial-major-mode 'lisp-interaction-mode)
(setq initial-buffer-choice
(lambda ()
(switch-to-buffer "*scratch*")
;; see also semente-maybe-bury-kill-buffer-query-function
(kill-buffer (rename-buffer "*scratch*<bypass-maybe-bury>" t))
(semente-switch-to-scratch-buffer)
(get-buffer "*scratch*")))
(setq inhibit-startup-screen t)
(setq visible-bell t ; no beep!
completion-show-help nil
......@@ -170,7 +146,7 @@ You may find other key bindings inside use-package statements."
'((:eval (if buffer-file-name "%f" "%b")) " - " "Emacs")
icon-title-format frame-title-format)
(add-to-list 'default-frame-alist '(height . 30))
(add-to-list 'default-frame-alist '(height . 25))
(add-to-list 'default-frame-alist '(width . 90))
;; If you are using emacs under X you might like the following
......@@ -837,7 +813,7 @@ You may find other key bindings inside use-package statements."
(:weight bold)
(:weight bold)
(:weight bold)))
(global-highlight-parentheses-mode))
(add-hook 'emacs-lisp-mode-hook 'highlight-parentheses-mode))
(use-package lisp-extra-font-lock
:ensure t
......@@ -1137,13 +1113,10 @@ You may find other key bindings inside use-package statements."
'((:name "inbox" :key "i" :query "tag:inbox" )
(:name "unread" :key "u" :query "tag:unread" )
(:name "flagged" :key "f" :query "tag:flagged")
(:name "last-7d" :key "7" :search-type tree
:query "date:7-days.. OR (date:7-days.. AND (tag:deleted OR tag:spam))")
(:name "blitz" :key "b" :query "tag:blitz")
(:name "list" :key "l" :query "tag:list and tag:unread")
(:name "news" :key "n" :query "tag:news and tag:unread")
(:name "junk" :key "j" :query "tag:junk and tag:unread")
(:name "spam" :key "s" :query "tag:spam" )
(:name "sent" :key "t" :query "tag:sent" )
......
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