66 lines
1.9 KiB
EmacsLisp
66 lines
1.9 KiB
EmacsLisp
;; --- Speed benchmarking
|
||
(setq init-start-time (current-time))
|
||
|
||
;; --- Straight.el bootstrap
|
||
|
||
(defvar bootstrap-version)
|
||
(let ((bootstrap-file
|
||
(expand-file-name
|
||
"straight/repos/straight.el/bootstrap.el"
|
||
(or (bound-and-true-p straight-base-dir)
|
||
user-emacs-directory)))
|
||
(bootstrap-version 7))
|
||
(unless (file-exists-p bootstrap-file)
|
||
(with-current-buffer
|
||
(url-retrieve-synchronously
|
||
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
|
||
'silent 'inhibit-cookies)
|
||
(goto-char (point-max))
|
||
(eval-print-last-sexp)))
|
||
(load bootstrap-file nil 'nomessage))
|
||
|
||
;; --- Evil
|
||
|
||
(straight-use-package 'evil)
|
||
|
||
(require 'evil)
|
||
(evil-mode 1)
|
||
|
||
;; Use ctrl-h/j/k/l to switch between windows (like in vim-tmux-nav)
|
||
(with-eval-after-load 'evil
|
||
(global-set-key (kbd "C-h") 'windmove-left)
|
||
(global-set-key (kbd "C-j") 'windmove-down)
|
||
(global-set-key (kbd "C-k") 'windmove-up)
|
||
(global-set-key (kbd "C-l") 'windmove-right))
|
||
|
||
;; --- NANO
|
||
|
||
(load-file "~/.emacs.d/nano.el")
|
||
|
||
;; --- Typography
|
||
|
||
(set-face-attribute 'default nil
|
||
:height 100 :weight 'light :family "CommitMono")
|
||
(set-face-attribute 'bold nil :weight 'regular)
|
||
(set-face-attribute 'bold-italic nil :weight 'regular)
|
||
(set-display-table-slot standard-display-table 'truncation (make-glyph-code ?…))
|
||
(set-display-table-slot standard-display-table 'wrap (make-glyph-code ?–))
|
||
|
||
;; --- Scrolling
|
||
|
||
(setq scroll-step 1
|
||
scroll-conservatively 10000)
|
||
|
||
;; --- Line numbers
|
||
|
||
(global-display-line-numbers-mode 1)
|
||
|
||
;; --- Speed benchmarking
|
||
|
||
(let ((init-time (float-time (time-subtract (current-time) init-start-time)))
|
||
(total-time (string-to-number (emacs-init-time "%f"))))
|
||
(message (concat
|
||
(propertize "Startup time: " 'face 'bold)
|
||
(format "%.2fs " init-time)
|
||
(propertize (format "(+ %.2fs system time)"
|
||
(- total-time init-time))))))
|