Migrate from .org to .el Emacs config.

1 files changed, 81 insertions, 0 deletions

diff --git a/.config/emacs/jd-emacs/jd-emacs-init.el b/.config/emacs/jd-emacs/jd-emacs-init.el
new file mode 100644
index 0000000..7f80cac
--- /dev/null
+++ b/.config/emacs/jd-emacs/jd-emacs-init.el
@@ -0,0 +1,81 @@
+;;; 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