160 lines
5.1 KiB
EmacsLisp
160 lines
5.1 KiB
EmacsLisp
;;; pkg/base.el --- summary -*- lexical-binding: t; -*-
|
|
|
|
;; Author: Maciej Szlosarczyk
|
|
;; Maintainer: Maciej Szlosarczyk
|
|
;; Version: 0.1-snapshot
|
|
|
|
;;; Commentary:
|
|
|
|
;; pkg/base defines basic packages and environment.
|
|
|
|
;;; Code:
|
|
(require 'icejam-keys-mode)
|
|
|
|
;;;;;;;; Other optimizations ;;;;;;;;;;;;;;;;;
|
|
;;;;;;;; Stolen from Doom Emacs. ;;;;;;;;;;;;;
|
|
|
|
;; Update emacs less often
|
|
(setopt idle-update-delay 1.0)
|
|
|
|
;; Disable bidirectional text rendering for a modest performance boost. I've set
|
|
;; this to `nil' in the past, but the `bidi-display-reordering's docs say that
|
|
;; is an undefined state and suggest this to be just as good:
|
|
(setq-default bidi-display-reordering 'left-to-right
|
|
bidi-paragraph-direction 'left-to-right)
|
|
|
|
;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
|
|
;; in non-focused windows.
|
|
(setq-default cursor-in-non-selected-windows nil)
|
|
(setopt highlight-nonselected-windows nil)
|
|
|
|
;; More performant rapid scrolling over unfontified regions. May cause brief
|
|
;; spells of inaccurate syntax highlighting right after scrolling, which should
|
|
;; quickly self-correct.
|
|
(setopt fast-but-imprecise-scrolling t)
|
|
|
|
;;;;;;;;; TRAMP configuration ;;;;;;;;;;;;;;;;
|
|
(require 'tramp)
|
|
(setopt tramp-default-method "ssh")
|
|
|
|
;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;;
|
|
(global-set-key (kbd "RET") 'newline)
|
|
|
|
;;;;;;;;; Easy copying of data ;;;;;;;;;;;;;;;
|
|
(use-package easy-kill :ensure t
|
|
:bind ([remap kill-ring-save] . easy-kill))
|
|
|
|
;; Move buffers around with buffer keys
|
|
(use-package buffer-move :ensure t :defer t)
|
|
|
|
;; Garbage collection magic hack
|
|
(use-package gcmh :ensure t
|
|
:config
|
|
(declare-function gcmh-mode "gcmh")
|
|
(setopt gcmh-verbose nil) ;; Do not log GC messages
|
|
(setopt gcmh-idle-delay 'auto) ;; Compute GC delay based on gcmh-auto-idle-delay-factor
|
|
(setopt gcmh-auto-idle-delay-factor 10) ;; Original value was 10
|
|
(setopt gcmh-high-cons-threshold (* 128 1024 1024))
|
|
(gcmh-mode t))
|
|
|
|
;; #====================== Backup config #==============================
|
|
(setopt backup-directory-alist
|
|
`((".*" . "~/.emacs.d/backups/auto-save-list")))
|
|
(setopt auto-save-file-name-transforms
|
|
`((".*", "~/.emacs.d/backups/auto-save-list" t)))
|
|
|
|
(setopt backup-by-copying t)
|
|
(setopt delete-old-versions t
|
|
kept-new-versions 6
|
|
kept-old-versions 2
|
|
version-control t)
|
|
|
|
; Do not create .#foo.file lock files
|
|
(setopt create-lockfiles nil)
|
|
|
|
;; Enable line numbers and show cursors position
|
|
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
|
|
(add-hook 'text-mode-hook 'display-line-numbers-mode)
|
|
(add-hook 'conf-mode-hook 'display-line-numbers-mode)
|
|
;; (global-display-line-numbers-mode t)
|
|
(column-number-mode t)
|
|
|
|
;; Turn off sounds
|
|
(setopt ring-bell-function 'ignore)
|
|
|
|
;; Enable y/n answers to questions
|
|
(setopt use-short-answers t)
|
|
|
|
;; Only warn if a file is bigger than 50 MB when trying to open it
|
|
(setopt large-file-warning-threshold 50000000)
|
|
|
|
;; Numbers are arbitrary, but work on a large screen. Default is 160
|
|
(setopt split-width-threshold 200)
|
|
;;;;;;;;;;;;;;;;;;;;;; Shell stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
|
|
|
;; Disable warning related to PATH on startup
|
|
(defvar exec-path-from-shell-check-startup-files nil)
|
|
|
|
;; Allow to execute path from shell
|
|
(use-package exec-path-from-shell
|
|
;; :if (memq window-system '(x mac ns))
|
|
:ensure t
|
|
:config
|
|
(declare-function exec-path-from-shell-initialize "exec-path-from-shell")
|
|
(add-to-list 'exec-path "/usr/local/bin")
|
|
(dolist (var '("DEFT_PATH" "LANG" "LC_CTYPE"))
|
|
(add-to-list 'exec-path-from-shell-variables var))
|
|
(exec-path-from-shell-initialize))
|
|
|
|
;; (use-package envrc :ensure t :hook (elpaca-after-init . envrc-global-mode))
|
|
|
|
(use-package direnv :ensure t :config (direnv-mode t))
|
|
|
|
;; Draw underline lower
|
|
(setopt x-underline-at-descent-line t)
|
|
|
|
;;; Get rid of bad parts of the windows
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(setopt indicate-buffer-boundaries nil
|
|
indicate-empty-lines nil)
|
|
|
|
;;;;;;;;;;;;;;;;; Treemacs
|
|
(use-package treemacs :ensure t
|
|
:commands (treemacs-follow-mode treemacs-project-follow-mode treemacs)
|
|
:bind (:map icejam-keys-mode-map
|
|
([(hyper b)] . treemacs))
|
|
:config
|
|
(treemacs-follow-mode t)
|
|
(treemacs-project-follow-mode t))
|
|
|
|
(use-package treemacs-all-the-icons :ensure t :defer t
|
|
:requires (treemacs)
|
|
:commands (treemacs-load-theme)
|
|
:config (treemacs-load-theme "all-the-icons"))
|
|
|
|
;;;;;;;;;;;;;;;;; Record frequency of different commands. Review them later
|
|
(use-package keyfreq :ensure t
|
|
:config
|
|
(declare-function keyfreq-mode "keyfreq")
|
|
(declare-function keyfreq-autosave-mode "keyfreq")
|
|
(keyfreq-mode t)
|
|
(keyfreq-autosave-mode t))
|
|
|
|
;;;;;;;;;;;;;;;;; Show hints about key combinations
|
|
(use-package which-key :ensure t
|
|
:config
|
|
(declare-function which-key-mode "which-key")
|
|
(which-key-mode t)
|
|
(setopt which-key-idle-delay 0.5))
|
|
|
|
;;;;;;;;;;;;;;;;; Use C-n to create a new line
|
|
(setopt next-line-add-newlines t)
|
|
|
|
;;;;;;;;;;;;;;;;; Speed up long line display by disabling bidirectional text
|
|
(setq-default bidi-paragraph-direction 'left-to-right
|
|
bidi-inhibit-bpa t)
|
|
|
|
(provide 'icejam-base)
|
|
;;; icejam-base.el ends here
|