[emacs] A few misc. updates.

1 files changed, 18 insertions, 27 deletions

diff --git a/configs/rcs/emacs.d/init.el b/configs/rcs/emacs.d/init.el
index 61dbd80..8ae9d7e 100644
--- a/configs/rcs/emacs.d/init.el
+++ b/configs/rcs/emacs.d/init.el
@@ -85,8 +85,11 @@
 (setq-default cursor-type 'hbar)                 ;; cursor is a horizontal bar
 (setq bookmark-default-file fcuny-bookmarks-dir) ;; where to save bookmarks
 (setq bookmark-save-flag 1)                      ;; save bookmarks when emacs qui
+(setq vc-handled-backends nil)                   ;; don't use the VC backend, it's too slow with source
+(setq-default frame-title-format "%b (%f)")      ;; set full path in the frame title
+(setq-default delete-by-moving-to-trash t)       ;; delete files by moving them to the trash
 
-(fringe-mode '(8 . 8))                           ;; size of the fringe
+(fringe-mode '(10 . 10))                         ;; size of the fringe
 
 (custom-set-variables
  '(tool-bar-mode nil)
@@ -120,13 +123,6 @@
   :hook
   (after-init . auto-package-update-maybe))
 
-(use-package beacon
-  :ensure t
-  :diminish
-  :commands beacon-mode
-  :config
-  (beacon-mode t))
-
 (use-package midnight
   :config
   (midnight-mode t))
@@ -208,7 +204,6 @@
           (exec-path-from-shell-copy-env var)))))
 
 (use-package counsel
-  :ensure t
   :after (projectile ivy)
   :bind
   (("M-x"     . counsel-M-x)
@@ -221,14 +216,12 @@
   :custom
   (counsel-find-file-at-point t)
   :config
-  (use-package swiper :ensure t)
+  (use-package swiper)
   (use-package counsel-projectile
-    :ensure t
     :config
     (counsel-projectile-mode)))
 
 (use-package projectile
-  :ensure t
   :diminish projectile-mode
   :bind-keymap ("C-c p" . projectile-command-map)
   :init
@@ -244,18 +237,16 @@
         projectile-globally-ignored-files (append projectile-globally-ignored-files)))
 
 (use-package lisp-mode
-  :ensure f
+  :ensure nil
   :bind
   (("C-c C-e" . eval-buffer)
    ("C-c C-r" . eval-region)))
 
 (use-package make-mode
-  :ensure t
   :config
   (add-hook 'makefile-mode-hook (lambda () (setq-local tab-width 2))))
 
 (use-package go-mode
-  :ensure t
   :preface
   (defun fcuny/go-mode-setup ()
     (setq-default)
@@ -265,11 +256,10 @@
 
 (use-package python
   :mode (("\\.py$" . python-mode))
-  :ensure t
   :commands python-mode
   :custom (python-indent-offset 2))
 
-(use-package scala-mode :ensure t)
+(use-package scala-mode)
 
 (use-package sh-script
   :mode ("bashrc" . sh-mode)
@@ -297,13 +287,11 @@
 (use-package gitconfig-mode
   :defer 5)
 
-(use-package puppet-mode :ensure t)
+(use-package puppet-mode)
 
-(use-package yaml-mode
-  :ensure t)
+(use-package yaml-mode)
 
 (use-package json-mode
-  :ensure t
   :after (flyspell)
   :custom
   (json-reformat:indent-width 2)
@@ -314,7 +302,6 @@
     (add-to-list 'auto-mode-alist '("\\.workflow$" . json-mode))))
 
 (use-package protobuf-mode
-  :ensure t
   :after (flyspell)
   :hook ((protobuf-mode . flyspell-prog-mode)))
 
@@ -342,25 +329,29 @@
 
 (defconst display-name
   (pcase (display-pixel-width)
-    (`1440 'macbook-pro)))
+    (`1440 'macbook-pro)
+    (_ 'default)))
 
 (defconst emacs-min-top 23)
 
 (defconst emacs-min-left
   (pcase display-name
-    (`macbook-pro 200)))
+    (`macbook-pro 140)
+    (`default 200)))
 
 (defconst emacs-min-height
   (pcase display-name
-    (`macbook-pro 47)))
+    (`macbook-pro 60)
+    (`default 47)))
 
 (defconst emacs-min-width
   (pcase display-name
-    (`macbook-pro 100)))
+    (`macbook-pro 130)
+    (`default 110)))
 
 (defconst emacs-min-font
   (pcase display-name
-    (_ "-*-DejaVu Sans Mono-normal-normal-normal-*-18-*-*-*-m-0-iso10646-1")))
+    (_ "-*-DejaVu Sans Mono-normal-normal-normal-*-13-*-*-*-m-0-iso10646-1")))
 
 (defun emacs-min ()
   (interactive)