From 5860445da55ac3abc3935c6ffd5e9bb4539225c9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Thu, 20 Jul 2023 07:53:35 -0700 Subject: emacs: move everything to ~/.emacs.d --- .emacs.local.d/general.el | 180 ---------------------------------------------- 1 file changed, 180 deletions(-) (limited to '.emacs.local.d/general.el') diff --git a/.emacs.local.d/general.el b/.emacs.local.d/general.el index 4e1ad01..e69de29 100644 --- a/.emacs.local.d/general.el +++ b/.emacs.local.d/general.el @@ -1,180 +0,0 @@ -;; Debian packages: elpa-use-package elpa-fill-column-indicator fonts-hack - -(require 'package) - -;; This is only needed once, near the top of the file -(eval-when-compile - (require 'use-package)) - -(add-to-list 'package-archives - '("melpa-stable" . "https://stable.melpa.org/packages/") t) - -(add-to-list 'package-archives - '("melpa" . "https://melpa.org/packages/") t) - -;; ------ -;; Require misc stuff -;; ------ -(require 'fill-column-indicator) - -;; Place backups in ~/.backups/ directory, like a civilized program. -;; ------ -(if (file-directory-p "~/.backup") - (setq backup-directory-alist '(("." . "~/.backup"))) - (message "Directory does not exist: ~/.backup")) - -(filesets-init) - -(setq backup-by-copying t ; Don't delink hardlinks - delete-old-versions t ; Clean up the backups - version-control t ; Use version numbers on backups, - kept-new-versions 3 ; keep some new versions - kept-old-versions 2) ; and some old ones, too - -;;; backup/autosave - old studd, just in case -;; (defvar backup-dir (expand-file-name "~/.emacs.d/backup/")) -;; (defvar autosave-dir (expand-file-name "~/.emacs.d/autosave/")) -;; (setq backup-directory-alist (list (cons ".*" backup-dir))) -;; (setq auto-save-list-file-prefix autosave-dir) -;; (setq auto-save-file-name-transforms `((".*" ,autosave-dir t))) - - -;; --------- -;; Generic keybindings -;; --------- -(global-set-key (kbd "C-c d") 'diff-buffer-with-file) -(global-set-key (kbd "C-c R") 'revert-buffer) - -;; compile -(global-set-key [f12] 'compile) - -(defun help/insert-em-dash () - "Inserts an EM-DASH (not a HYPEN, not an N-DASH)" - (interactive) - (insert "—")) - -(global-set-key (kbd "C--") #'help/insert-em-dash) - -;; ------ -;; General config BS -;; ------ - -(setq fill-column 79) - -;; Make sure that pressing middle mouse button pastes right at point, -;; not where the mouse cursor is. -(setq mouse-yank-at-point t) -(setq column-number-mode 1) -(setq line-number-mode 1) -(setq-default indent-tabs-mode nil) -(setq-default tab-width 4) - -(setq-default c-basic-offset 4) - -;; ------ -;; Initialize some things -;; ------ - - -(setenv "TMPDIR" (concat (getenv "HOME") "/tmp")) -(server-start) - -;; ------ -;; Terminal / window specific stuff -;; ------ - -;; Don't minimize my emacs! Honestly wtf -(when window-system - (progn - (global-unset-key (kbd "C-z")) - (setq scroll-bar-mode nil) - (tool-bar-mode nil) - (menu-bar-mode nil))) - -;; ------ -;; Helper for compilation. -;; ------ -;; Close the compilation window if there was no error at all. -(defun compilation-exit-autoclose (status code msg) - ;; If M-x compile exists with a 0 - (when (and (eq status 'exit) (zerop code)) - ;; then bury the *compilation* buffer, so that C-x b doesn't go there - (bury-buffer) - ;; and delete the *compilation* window - (delete-window (get-buffer-window (get-buffer "*compilation*")))) - ;; Always return the anticipated result of compilation-exit-message-function - (cons msg code)) -;; Specify my function (maybe I should have done a lambda function) -(setq compilation-exit-message-function 'compilation-exit-autoclose) -(setq compilation-read-command nil) - -;; Themes -(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") - -;; Remove scratch message -(setq initial-scratch-message "") - -;; Turn of scroll bar -(when (featurep 'scroll-bar) (scroll-bar-mode -1)) - -;; Ask y or n instead of yes or no -(defalias 'yes-or-no-p 'y-or-n-p) - -;; Fancier buffer selection -(global-set-key (kbd "C-x C-b") 'bs-show) - -;;; Stefan Monnier . It is the opposite of fill-paragraph -(defun unfill-paragraph (&optional region) - "Takes a multi-line paragraph and makes it into a single line of text." - (interactive (progn (barf-if-buffer-read-only) '(t))) - (let ((fill-column (point-max)) - ;; This would override `fill-column' if it's an integer. - (emacs-lisp-docstring-fill-column t)) - (fill-paragraph nil region))) - -;; Handy key definition -(define-key global-map "\M-Q" 'unfill-paragraph) - -;; Do not persist customizations -(setq custom-file (make-temp-file "emacs-custom-")) - -(menu-bar-mode -1) -(tool-bar-mode -1) - -;; Truly maximize screen -(setq frame-resize-pixelwise t) - -;; Start maximized -(add-to-list 'default-frame-alist '(fullscreen . maximized)) - -;; Only flash the mode line -(setq ring-bell-function - (lambda () - (let ((orig-fg (face-foreground 'mode-line))) - (set-face-foreground 'mode-line "#F2804F") - (run-with-idle-timer 0.1 nil - (lambda (fg) (set-face-foreground 'mode-line fg)) - orig-fg)))) - -;; Highlight parens -(setq show-paren-delay 0) -(show-paren-mode 1) - -;; Use default brwoser -;;(setq browse-url-browser-function 'browse-url-generic browse-url-generic-program "chromium") - -;; Save what you enter into minibuffer prompts -(setq history-length 25) -(savehist-mode 1) - -;; Remember and restore cursor information -(save-place-mode 1) - -;; No need for titlebar -(modify-frame-parameters nil '((undecorated . t))) - -;; Do not pop-up warnings in every buffer -(setq native-comp-async-report-warnings-errors 'silent) - -;; Set this to t if you don't understand what it means -(setq vc-follow-symlinks nil) -- cgit v1.2.3