From 6156f86dd5797de5ea4f912b70d38963c6cf4ad4 Mon Sep 17 00:00:00 2001 From: jdlugosz963 Date: Sun, 2 Jul 2023 15:07:07 +0200 Subject: New Emacs config and change location of Emacs home dir. --- .config/emacs/jd-emacs/jd-emacs-init.el | 81 --------------------------------- 1 file changed, 81 deletions(-) delete mode 100644 .config/emacs/jd-emacs/jd-emacs-init.el (limited to '.config/emacs/jd-emacs/jd-emacs-init.el') diff --git a/.config/emacs/jd-emacs/jd-emacs-init.el b/.config/emacs/jd-emacs/jd-emacs-init.el deleted file mode 100644 index 7f80cac..0000000 --- a/.config/emacs/jd-emacs/jd-emacs-init.el +++ /dev/null @@ -1,81 +0,0 @@ -;;; Dotfiles --- Jakub Dlugosz emacs config -;;; Commentary: - -;;; Code: - -(defvar jd-emacs/directory - (concat user-emacs-directory - "/jd-emacs/") - "Path to jd-emacs config directory.") - -(defun jd-emacs/load (file-name) - "Load file from jd-emacs directory. -FILE-NAME - file name to load." - (let ((file (expand-file-name (concat jd-emacs/directory - "jd-emacs-" file-name ".el")))) - (load file))) - -(setq gc-cons-threshold (* 2 1000 1000)) - - -(defun jd/display-startup-time () - (message "Emacs loaded in %s with %d garbage collections." - (format "%.2f seconds" - (float-time - (time-subtract after-init-time before-init-time))) - gcs-done)) - - -(defun jd-emacs/startup () - "This procedure will run after Emacs startup." - (electric-pair-mode 1) - (global-company-mode 1) - (jd/display-startup-time)) - -(setq gc-cons-threshold (* 50 1000 1000)) -(add-hook 'emacs-startup-hook #'jd-emacs/startup) - -(setq user-full-name "Jakub Dlugosz" - user-mail-address "jdlugosz963@gmail.com") - -(setq backup-directory-alist '(("." . "~/.cache/emacs/backup")) - backup-by-copying t - version-control t - delete-old-versions t - kept-new-versions 20 - kept-old-versions 5) - -(setq user-emacs-directory "~/.cache/emacs") - -(require 'package) -(setq package-archives '(("melpa" . "https://melpa.org/packages/") - ("org" . "https://orgmode.org/elpa/") - ("gnu-devel" . "https://elpa.gnu.org/devel/") - ("elpa" . "https://elpa.gnu.org/packages/"))) -(package-initialize) - -(unless package-archive-contents - (package-refresh-contents)) - -(unless (package-installed-p 'use-package) - (package-install 'use-package)) - -(setq use-package-always-ensure t) - -(add-to-list 'load-path (expand-file-name "~/.config/emacs/jd/")) - -(require 'use-package) - - -(jd-emacs/load "keys") -(jd-emacs/load "ui") -(jd-emacs/load "org-mode") -(jd-emacs/load "dev") -(jd-emacs/load "apps") -(jd-emacs/load "custom") - - -(setq gc-cons-threshold (* 2 1000 1000)) - - -;; jd-int.el ends here -- cgit v1.2.3