125 lines
4.5 KiB
EmacsLisp
125 lines
4.5 KiB
EmacsLisp
|
;;; base.el --- Configuración base de emacs
|
||
|
|
|
||
|
|
;; Author: kj <webmaster@outcontrol.net>
|
||
|
|
;; URL: https://git.kj2.me/kj/confi-emacs-actual
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
|
||
|
|
;; Configuración base de Emacs, no incluye extensiones,
|
||
|
|
;; pero si el theme y los fonts.
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
;; The default is 800 kilobytes. Measured in bytes.
|
||
|
|
(setq gc-cons-threshold (* 50 1000 1000))
|
||
|
|
|
||
|
|
;; Initialize package sources
|
||
|
|
(require 'package)
|
||
|
|
|
||
|
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
||
|
|
("org" . "https://orgmode.org/elpa/")
|
||
|
|
("elpa" . "https://elpa.gnu.org/packages/")))
|
||
|
|
|
||
|
|
(package-initialize)
|
||
|
|
|
||
|
|
;; Actualizar repositorios si aún no esta actualizados
|
||
|
|
(unless package-archive-contents
|
||
|
|
(package-refresh-contents))
|
||
|
|
|
||
|
|
;; Instalar use-package si no está instalado
|
||
|
|
(unless (package-installed-p 'use-package)
|
||
|
|
(package-install 'use-package))
|
||
|
|
|
||
|
|
;; Theme
|
||
|
|
(use-package dracula-theme
|
||
|
|
:config
|
||
|
|
(load-theme 'dracula t)
|
||
|
|
(set-face-attribute 'default nil :font "Fira Code Retina") ; Font
|
||
|
|
)
|
||
|
|
|
||
|
|
;; Instalar use-package en caso de no tenerlo
|
||
|
|
(unless (package-installed-p 'use-package)
|
||
|
|
(package-install 'use-package))
|
||
|
|
|
||
|
|
(defconst private-dir (expand-file-name "private" user-emacs-directory))
|
||
|
|
(defconst temp-dir (format "%s/cache" private-dir)
|
||
|
|
"Hostname-based elisp temp directories.")
|
||
|
|
|
||
|
|
;; UTF-8 please
|
||
|
|
(set-charset-priority 'unicode)
|
||
|
|
(setq locale-coding-system 'utf-8) ; pretty
|
||
|
|
(set-terminal-coding-system 'utf-8) ; pretty
|
||
|
|
(set-keyboard-coding-system 'utf-8) ; pretty
|
||
|
|
(set-selection-coding-system 'utf-8) ; please
|
||
|
|
(prefer-coding-system 'utf-8) ; with sugar on top
|
||
|
|
(setq default-process-coding-system '(utf-8-unix . utf-8-unix))
|
||
|
|
|
||
|
|
;; Emacs customizations
|
||
|
|
(menu-bar-mode 0) ; Quitar menús.
|
||
|
|
(tool-bar-mode 0) ; Quitar toolbar.
|
||
|
|
(scroll-bar-mode -1) ; Quitar scrollbar.
|
||
|
|
(tooltip-mode -1) ; Disable tooltips.
|
||
|
|
(global-display-line-numbers-mode) ; Mostar número de línea.
|
||
|
|
(show-paren-mode 1) ; Habilitar resaltado de brackets.
|
||
|
|
;;(cua-mode t) ; Usar CTRL+X, CTRL+C, CTRL+V y CTRL+Z para cortar, copiar, pegar y deshacer.
|
||
|
|
|
||
|
|
(setq-default
|
||
|
|
cursor-type 'bar ; Usar la barrita como cursor
|
||
|
|
cursor-in-non-selected-windows nil ; Desaparecer el cursor en frames no activos.
|
||
|
|
indent-tabs-mode nil ; Cambiar tabs por espacios.
|
||
|
|
)
|
||
|
|
(setq
|
||
|
|
custom-file (concat private-dir "/.custom.el") ; Cabiar la ruta del código que se genera al isntalar un theme o package
|
||
|
|
ac-ignore-case nil ; Desactivar el autocapitalizado.
|
||
|
|
ac-disable-faces nil ; Auto-complete hablitado incluso entre comillas (fuente: https://bit.ly/3a9wCB4).
|
||
|
|
global-hl-line-mode 1 ; Resaltar línea actual por defecto.
|
||
|
|
tags-revert-without-query 1 ; Recargar tags (ctags) sin pedir confirmación.
|
||
|
|
)
|
||
|
|
|
||
|
|
;; Backups enabled, use nil to disable
|
||
|
|
(setq
|
||
|
|
history-length 1000
|
||
|
|
backup-inhibited nil
|
||
|
|
make-backup-files nil
|
||
|
|
auto-save-default nil
|
||
|
|
auto-save-list-file-name (concat temp-dir "/autosave")
|
||
|
|
create-lockfiles nil
|
||
|
|
backup-directory-alist `((".*" . ,(concat temp-dir "/backup/")))
|
||
|
|
auto-save-file-name-transforms `((".*" ,(concat temp-dir "/auto-save-list/") t)))
|
||
|
|
|
||
|
|
;; Configuración cuando es un server
|
||
|
|
(defun setup-daemon ()
|
||
|
|
(message "Corriendo en modo daemon.")
|
||
|
|
(set-face-attribute 'default nil :font "Fira Code Retina")
|
||
|
|
|
||
|
|
;; Set the fixed pitch face
|
||
|
|
;;(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina")
|
||
|
|
|
||
|
|
;; Set the variable pitch face
|
||
|
|
;;(set-face-attribute 'variable-pitch nil :font "Cantarell" :weight 'regular)
|
||
|
|
|
||
|
|
;; Abrir primero el dashboard
|
||
|
|
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
|
||
|
|
|
||
|
|
;; Cerrar buffers al cerrar emacsclient
|
||
|
|
(add-hook 'delete-frame-functions
|
||
|
|
(lambda (frame)
|
||
|
|
(let* ((window (frame-selected-window frame))
|
||
|
|
(buffer (and window (window-buffer window))))
|
||
|
|
(when (and buffer (buffer-file-name buffer))
|
||
|
|
(kill-buffer buffer)))))
|
||
|
|
)
|
||
|
|
|
||
|
|
(if (daemonp)
|
||
|
|
(add-hook 'after-make-frame-functions
|
||
|
|
(lambda (frame)
|
||
|
|
(with-selected-frame frame
|
||
|
|
(setup-daemon))))
|
||
|
|
(message "Corriendo en modo normal."))
|
||
|
|
|
||
|
|
|
||
|
|
(load custom-file)
|
||
|
|
|
||
|
|
(provide 'base)
|
||
|
|
;;; base.el ends here
|