From fb4c82920f67a44bef31f30d9707d9fd2d5a4986 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 6 May 2022 19:31:15 +0200 Subject: [PATCH] Reduce init load time to 2.6 sec --- bundle/bundle--all-the-icons.el | 9 -- bundle/bundle--customfile.el | 10 +-- bundle/bundle--defaults.el | 1 + bundle/bundle--doom.el | 4 - bundle/bundle--gui.el | 80 ++++++++--------- bundle/bundle--helpful.el | 5 -- bundle/bundle--irc.el | 1 + bundle/bundle--magit.el | 20 ----- bundle/bundle--news.el | 2 + bundle/bundle--olivetti.el | 4 - bundle/bundle--org.el | 143 ++++++++++++------------------ bundle/bundle--package.el | 148 ++++++++++++-------------------- bundle/bundle--scheme.el | 4 - bundle/bundle--shrface.el | 2 - bundle/bundle--webjump.el | 8 -- bundle/custom_gnu.el | 1 - init.el | 7 +- 17 files changed, 157 insertions(+), 292 deletions(-) delete mode 100644 bundle/bundle--all-the-icons.el delete mode 100644 bundle/bundle--doom.el delete mode 100644 bundle/bundle--helpful.el delete mode 100644 bundle/bundle--magit.el delete mode 100644 bundle/bundle--olivetti.el delete mode 100644 bundle/bundle--scheme.el delete mode 100644 bundle/bundle--webjump.el diff --git a/bundle/bundle--all-the-icons.el b/bundle/bundle--all-the-icons.el deleted file mode 100644 index 02880c4a..00000000 --- a/bundle/bundle--all-the-icons.el +++ /dev/null @@ -1,9 +0,0 @@ -(use-package all-the-icons - :if (display-graphic-p) - :commands all-the-icons-install-fonts - :init - (unless (find-font (font-spec :name "all-the-icons")) - (all-the-icons-install-fonts t))) -(use-package all-the-icons-dired - :if (display-graphic-p) - :hook (dired-mode . all-the-icons-dired-mode)) diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el index dd6bcb90..639a8943 100644 --- a/bundle/bundle--customfile.el +++ b/bundle/bundle--customfile.el @@ -9,16 +9,10 @@ ;; (add-to-list 'exec-path "C:/msys64/usr/bin") ;; (setenv "PATH" (concat "C:\\msys64\\mingw64\\bin;" (getenv "PATH"))) - (setq sql-sqlite-program "c:/msys64/mingw64/bin/sqlite3.exe" + (setq ispell-program-name "c:/msys64/mingw64/bin/aspell.exe" - nov-unzip-program "c:/msys64/usr/bin/unzip.exe" custom-file "~/.emacs.d/bundle/custom_win32.el" - org-babel-python-command "python" - geiser-racket-binary "c:/Program Files/Racket/Racket.exe" - sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe") - sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core") - inferior-lisp-program "sbcl" - slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))) + org-babel-python-command "python") (use-package powershell) diff --git a/bundle/bundle--defaults.el b/bundle/bundle--defaults.el index 7c72a754..634f588c 100644 --- a/bundle/bundle--defaults.el +++ b/bundle/bundle--defaults.el @@ -102,5 +102,6 @@ (width . 92) (height . 62) (alpha . 100) + (fullscreen . maximized) (horizontal-scroll-bars) (vertical-scroll-bars))) diff --git a/bundle/bundle--doom.el b/bundle/bundle--doom.el deleted file mode 100644 index 5b2073ee..00000000 --- a/bundle/bundle--doom.el +++ /dev/null @@ -1,4 +0,0 @@ -(use-package doom-themes - :init (load-theme 'doom-nord t)) -(use-package doom-modeline - :init (doom-modeline-mode 1)) diff --git a/bundle/bundle--gui.el b/bundle/bundle--gui.el index c307f09d..29fe988d 100644 --- a/bundle/bundle--gui.el +++ b/bundle/bundle--gui.el @@ -1,51 +1,43 @@ -;; (use-package counsel -;; :bind (("C-M-j" . 'counsel-switch-buffer) -;; :map minibuffer-local-map -;; ("C-r" . 'counsel-minibuffer-history)) -;; :custom -;; (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only) -;; :config -;; (counsel-mode 1)) - -;; (use-package ivy -;; :bind (("C-s" . swiper)) -;; :init -;; (ivy-mode 1)) - -;; (use-package unicode-fonts -;; :config -;; (unicode-fonts-setup)) - -(load "bundle--all-the-icons") -(load "bundle--olivetti") -(load "bundle--shrface") -(load "bundle--doom") -(load "bundle--helpful") -(load "bundle--webjump") - -(use-package ace-window) - +(use-package all-the-icons + :if (display-graphic-p) + :commands all-the-icons-install-fonts + :init + (unless (find-font (font-spec :name "all-the-icons")) + (all-the-icons-install-fonts t))) +(use-package all-the-icons-dired + :if (display-graphic-p) + :hook (dired-mode . all-the-icons-dired-mode)) +(use-package doom-themes + :if (display-graphic-p) + :init (load-theme 'doom-nord t)) +(use-package doom-modeline + :if (display-graphic-p) + :init (doom-modeline-mode 1) + :custom (doom-modeline-height 33)) +(use-package helpful + :commands (helpful-callable helpful-variable helpful-command helpful-key) + :bind + ([remap describe-command] . helpful-command) + ([remap describe-key] . helpful-key)) (use-package rainbow-delimiters :hook (prog-mode . rainbow-delimiters-mode)) - +(use-package olivetti + :init (add-hook 'Info-mode-hook (lambda () (olivetti-mode) (setq olivetti-body-width 89))) + :custom (olivetti-body-width 84) + :bind ("" . olivetti-mode)) +(use-package ace-window + :init (global-set-key (kbd "M-o") 'ace-window)) (use-package emojify :commands emojify-mode) - (use-package smartparens) - (use-package vertico :init - (vertico-mode) - - ;; Different scroll margin - ;; (setq vertico-scroll-margin 0) - - ;; Show more candidates - ;; (setq vertico-count 20) - - ;; Grow and shrink the Vertico minibuffer - ;; (setq vertico-resize t) - - ;; Optionally enable cycling for `vertico-next' and `vertico-previous'. - ;; (setq vertico-cycle t) - ) + (vertico-mode)) +(use-package webjump + :bind ("C-c j" . webjump) + :custom + (webjump-sites + (append '(("Wikipedia_de" . [simple-query + "de.wikipedia.org" + "https://de.wikipedia.org/wiki/" ""])) + webjump-sample-sites))) diff --git a/bundle/bundle--helpful.el b/bundle/bundle--helpful.el deleted file mode 100644 index 2465ccd8..00000000 --- a/bundle/bundle--helpful.el +++ /dev/null @@ -1,5 +0,0 @@ -(use-package helpful - :commands (helpful-callable helpful-variable helpful-command helpful-key) - :bind - ([remap describe-command] . helpful-command) - ([remap describe-key] . helpful-key)) diff --git a/bundle/bundle--irc.el b/bundle/bundle--irc.el index 1bb90d42..95bb042b 100644 --- a/bundle/bundle--irc.el +++ b/bundle/bundle--irc.el @@ -1,4 +1,5 @@ (use-package erc + :defer t :hook (erc-mode . emojify-mode) :custom (erc-track-shorten-start 8) diff --git a/bundle/bundle--magit.el b/bundle/bundle--magit.el deleted file mode 100644 index e4451689..00000000 --- a/bundle/bundle--magit.el +++ /dev/null @@ -1,20 +0,0 @@ -(use-package magit) -(global-set-key (kbd "C-x g") 'magit-status) -(global-set-key (kbd "C-x M-g") 'magit-dispatch) -(defun jnf/magit-browse-pull-request () - "In `magit-log-mode', open the associated pull request at point." - (interactive) - (let* ((remote-url - (car - (git-link--exec "remote" "get-url" - (format "%s" (magit-get-current-remote))))) - (beg (line-beginning-position)) - (end (line-end-position)) - (region (buffer-substring-no-properties beg end))) - (save-match-data - (and (string-match "(\\#\\([0-9]+\\))$" region) - (browse-url-default-macosx-browser - (concat - (s-replace ".git" "" remote-url) - "/pull/" - (match-string 1 region))))))) diff --git a/bundle/bundle--news.el b/bundle/bundle--news.el index 80e8e777..fd3ff441 100644 --- a/bundle/bundle--news.el +++ b/bundle/bundle--news.el @@ -1,4 +1,5 @@ (use-package eww + :defer t :init (add-hook 'eww-after-render-hook #'shrface-mode) :config @@ -69,6 +70,7 @@ (use-package gnus :ensure nil + :defer t :hook (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date) :custom (user-full-name "Marcus Kammer") diff --git a/bundle/bundle--olivetti.el b/bundle/bundle--olivetti.el deleted file mode 100644 index 73f5a8e8..00000000 --- a/bundle/bundle--olivetti.el +++ /dev/null @@ -1,4 +0,0 @@ -(use-package olivetti - :init (add-hook 'Info-mode-hook (lambda () (olivetti-mode) (setq olivetti-body-width 89))) - :custom (olivetti-body-width 84) - :bind ("" . olivetti-mode)) diff --git a/bundle/bundle--org.el b/bundle/bundle--org.el index 0107d644..48957ab6 100644 --- a/bundle/bundle--org.el +++ b/bundle/bundle--org.el @@ -1,10 +1,3 @@ -(use-package ob-go) -(use-package ob-http) -(use-package ob-rust) -(use-package ob-typescript) - -(use-package ox-reveal) - (use-package org :ensure nil :hook (org-mode . turn-on-auto-fill) @@ -95,18 +88,6 @@ (org-src-fontify-natively t) (org-src-tab-acts-natively t) (org-src-window-setup 'other-window) - (org-src-lang-modes - '(("bash" . sh) - ("elisp" . emacs-lisp) - ("beamer" . latex) - ("calc" . fundamental) - ("dot" . fundamental) - ("screen" . shell-script) - ("shell" . sh) - ("C" . c) - ("sqlite" . sql) - ("scheme" . racket) - ("plantuml" . plantuml))) (org-time-stamp-rounding-minutes '(30 30)) (org-todo-keywords '((sequence "TODO" "DOING(!)" "DONE(!)") @@ -126,27 +107,50 @@ (sqlite . t) (shell . t) (plantuml . t) - (typescript . t) - (scheme . t) - (http . t)))) + (scheme . t))) + ;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks. + (defun org-agenda-log-mode-colorize-block () + "Set different line spacing based on clock time duration." + (save-excursion + (let* ((colors (cl-case (alist-get 'background-mode (frame-parameters)) + ('light (list "#d8dee9" "#e5e9f0" "#eceff4")) + ('dark (list "#bf616a" "#d08770" "#ebcb8b" "#a3be8c" "#b48ead")))) + pos + duration) + (nconc colors colors) + (goto-char (point-min)) + (while (setq pos (next-single-property-change (point) 'duration)) + (goto-char pos) + (when (and (not (equal pos (point-at-eol))) + (setq duration (org-get-at-bol 'duration))) + ;; larger duration bar height + (let ((line-height (if (< duration 15) 1.0 (+ 0.5 (/ duration 30)))) + (ov (make-overlay (point-at-bol) (1+ (point-at-eol))))) + (overlay-put ov 'face `(:background ,(car colors) :foreground "black")) + (setq colors (cdr colors)) + (overlay-put ov 'line-height line-height) + (overlay-put ov 'line-spacing (1- line-height)))))))) + (add-hook 'org-agenda-finalize-hook #'org-agenda-log-mode-colorize-block)) -;; (use-package org-roam -;; :init -;; (setq org-roam-v2-ack t) -;; (setq org-roam-db-location "~/org-roam.db") -;; (require 'org-roam-dailies) -;; :bind (("C-c r l" . org-roam-buffer-toggle) -;; ("C-c r f" . org-roam-node-find) -;; ("C-c r g" . org-roam-graph) -;; ("C-c r i" . org-roam-node-insert) -;; ("C-c r c" . org-roam-capture) -;; ("C-c r j" . org-roam-dailies-map) -;; :map org-roam-dailies-map -;; ("t" . org-roam-dailies-capture-today) -;; ("y" . org-roam-dailies-capture-yesterday) -;; ("T" . org-roam-dailies-capture-tomorrow) -;; :map org-mode-map -;; ("C-M-i" . completion-at-point))) +(use-package org-roam + :defer t + :after org + :init + (setq org-roam-v2-ack t) + (setq org-roam-db-location "~/org-roam.db") + (require 'org-roam-dailies) + :bind (("C-c r l" . org-roam-buffer-toggle) + ("C-c r f" . org-roam-node-find) + ("C-c r g" . org-roam-graph) + ("C-c r i" . org-roam-node-insert) + ("C-c r c" . org-roam-capture) + ("C-c r j" . org-roam-dailies-map) + :map org-roam-dailies-map + ("t" . org-roam-dailies-capture-today) + ("y" . org-roam-dailies-capture-yesterday) + ("T" . org-roam-dailies-capture-tomorrow) + :map org-mode-map + ("C-M-i" . completion-at-point))) (use-package org-tree-slide :bind ("" . org-tree-slide-mode) @@ -154,55 +158,22 @@ (org-image-actual-width nil)) (use-package org-web-tools + :defer t :custom (org-web-tools-pandoc-sleep-time 0.4)) -;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks. -(defun org-agenda-log-mode-colorize-block () - "Set different line spacing based on clock time duration." - (save-excursion - (let* ((colors (cl-case (alist-get 'background-mode (frame-parameters)) - ('light (list "#d8dee9" "#e5e9f0" "#eceff4")) - ('dark (list "#bf616a" "#d08770" "#ebcb8b" "#a3be8c" "#b48ead")))) - pos - duration) - (nconc colors colors) - (goto-char (point-min)) - (while (setq pos (next-single-property-change (point) 'duration)) - (goto-char pos) - (when (and (not (equal pos (point-at-eol))) - (setq duration (org-get-at-bol 'duration))) - ;; larger duration bar height - (let ((line-height (if (< duration 15) 1.0 (+ 0.5 (/ duration 30)))) - (ov (make-overlay (point-at-bol) (1+ (point-at-eol))))) - (overlay-put ov 'face `(:background ,(car colors) :foreground "black")) - (setq colors (cdr colors)) - (overlay-put ov 'line-height line-height) - (overlay-put ov 'line-spacing (1- line-height)))))))) +(use-package ob-go + :defer t + :after org) -(add-hook 'org-agenda-finalize-hook #'org-agenda-log-mode-colorize-block) +(use-package ox-reveal + :defer t + :after org) -(defun me/org-copy-subtree-contents () - "Get the content text of the subtree at point and add it to the `kill-ring'. -Excludes the heading and any child subtrees." - (interactive) - (if (org-before-first-heading-p) - (message "Not in or on an org heading") - (save-excursion - ;; If inside heading contents, move the point back to the heading - ;; otherwise `org-agenda-get-some-entry-text' won't work. - (unless (org-on-heading-p) (org-previous-visible-heading 1)) - (let ((contents (substring-no-properties - (org-agenda-get-some-entry-text - (point-marker) - most-positive-fixnum)))) - (message "Copied: %s" contents) - (kill-new contents))))) - -(defun me/write-readme-md-on-save () - ;; when README.org, also write README.md on save - (when (string-match "README" (buffer-file-name)) - (make-local-variable 'after-save-hook) - (add-hook 'after-save-hook - (lambda () (let ((outfile (org-export-output-file-name ".md"))) - (org-export-to-file 'md outfile)))))) +;; (defun me/write-readme-md-on-save () +;; ;; when README.org, also write README.md on save +;; (when (string-match "README" (buffer-file-name)) +;; (make-local-variable 'after-save-hook) +;; (add-hook 'after-save-hook +;; (lambda () (let ((outfile (org-export-output-file-name ".md"))) +;; (org-export-to-file 'md outfile)))))) ;; (add-hook 'org-mode-hook 'me/write-readme-md-on-save) diff --git a/bundle/bundle--package.el b/bundle/bundle--package.el index eaccb5d5..06859092 100644 --- a/bundle/bundle--package.el +++ b/bundle/bundle--package.el @@ -16,17 +16,7 @@ (require 'use-package) (setq use-package-always-ensure t) -;; ADDTIONAL MODES -(use-package flyspell - :config - ;;(add-hook 'text-mode-hook #'flyspell-mode) - ;;(add-hook 'prog-mode-hook #'flyspell-prog-mode) - (setq ispell-dictionary "en_US")) -;; :hook (text-mode . flyspell-mode)) - -;; (use-package company -;; :init -;; (global-company-mode)) +(load "bundle--gui") (use-package nov :hook (nov-mode . olivetti-mode) @@ -38,31 +28,12 @@ (setq nov-shr-rendering-functions '((img . nov-render-img) (title . nov-render-title))) (setq nov-shr-rendering-functions (append nov-shr-rendering-functions shr-external-rendering-functions)) (setq nov-text-width nil - nov-variable-pitch nil)) + nov-variable-pitch nil) + (when (eq system-type 'windows-nt) + (setq nov-unzip-program "c:/msys64/usr/bin/unzip.exe"))) -;; (use-package projectile -;; :init -;; (projectile-mode +1) -;; :config -;; (setq projectile-completion-system (quote ivy))) - -;; (define-key projectile-mode-map (kbd "s-p") 'projectile-command-map) -;; (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map) - -;; (use-package elpy -;; :config (setq elpy-modules -;; '(elpy-module-autodoc -;; elpy-module-company -;; elpy-module-eldoc -;; elpy-module-pyvenv -;; elpy-module-yasnippet) -;; elpy-test-pytest-runner-command '("pytest"))) - -;; (use-package pyvenv -;; :init (pyvenv-mode 1)) - -;; LANGUAGE MODES (use-package eglot + :defer t :config (add-to-list 'eglot-server-programs '((c++-mode c-mode) "ccls"))) @@ -88,9 +59,7 @@ (string-match "/usr/src/linux" (buffer-file-name))) "linux" "gnu"))) - (add-hook 'c-mode-common-hook 'me/c-mode-style-hook) - (defun me/c-mode-compile-command-hook () ;; if no makefile use gcc for compile command (unless (or (file-exists-p "makefile") @@ -98,49 +67,36 @@ (set (make-local-variable 'compile-command) (concat "gcc " "-Wall " "-g " buffer-file-name " -o " (file-name-sans-extension buffer-file-name))))) - (add-hook 'c-mode-common-hook 'me/c-mode-compile-command-hook) - (defun me/c-mode-compile-on-save () ;; compile on save hook (make-local-variable 'after-save-hook) (add-hook 'after-save-hook (lambda () (compile compile-command)))) - (add-hook 'c-mode-common-hook 'me/c-mode-compile-on-save)) (use-package js-mode :ensure nil :hook (js-mode . eglot-ensure) - :mode ("\\.webmanifest\\'" . js-mode)) + :mode "\\.webmanifest\\'") (use-package go-mode + :mode ("\\.go\\'" . go-mode) :config (add-hook 'before-save-hook #'gofmt-before-save) (add-hook 'go-mode-hook 'eglot-ensure) - (defun me/go-mode-compile-command-hook () ;; if no makefile use go build for compile command (unless (or (file-exists-p "makefile") (file-exists-p "Makefile")) (set (make-local-variable 'compile-command) (concat "go " "vet " buffer-file-name)))) - (add-hook 'go-mode-hook 'me/go-mode-compile-command-hook) - (defun me/go-mode-compile-on-save () ;; compile on save hook (make-local-variable 'after-save-hook) (add-hook 'after-save-hook (lambda () (compile compile-command)))) - (add-hook 'go-mode-hook 'me/go-mode-compile-on-save)) -(use-package rust-mode - :hook (rust . eglot-ensure)) - -(use-package typescript-mode - :config - (add-hook 'typescript-mode-hook 'eglot-ensure)) - (use-package web-mode ;; :hook html-mode :mode (("\\.html?\\'" . web-mode) @@ -154,34 +110,27 @@ (web-mode-enable-current-element-highlight t) (web-mode-enable-current-column-highlight t)) -(use-package yaml) - -(use-package yaml-mode) - -(use-package racket-mode) - -(use-package markdown-mode) +(use-package racket-mode + :init (require 'smartparens-config) + :mode ("\\.rkt\\'" . racket-mode) + :config + (when (eq system-type 'windows-nt) + (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe"))) (use-package python :mode (("\\.py\\'" . python-mode) ("\\.wsgi$" . python-mode) ("\\.j2" . python-mode)) - :init - (setq python-indent-offset 4) - (setq-default indent-tabs-mode nil) - :custom - (fill-column 79) - :config - (add-hook 'python-mode-hook 'eglot-ensure)) + :init + (setq python-indent-offset 4) + (setq-default indent-tabs-mode nil) + :custom + (fill-column 79) + :config + (add-hook 'python-mode-hook 'eglot-ensure)) -(use-package csv-mode - :mode ("\\.[Cc][Ss][Vv]\\'" . csv-mode)) - -(use-package plantuml-mode - :mode "\\.puml?\\'") - -;; TOOLS MODE (use-package slime + :defer t :custom (slime-autodoc-use-multiline-p 1) :config @@ -191,31 +140,18 @@ slime-asdf slime-indentation slime-editing-commands - slime-sbcl-exts))) + slime-sbcl-exts)) + (when (eq system-type 'windows-nt) + (setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe") + sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core") + inferior-lisp-program "sbcl" + slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))))) -(use-package webpaste) - -;; (use-package slime-company -;; :after (slime company) -;; :custom (slime-company-after-completion 'slime-company-just-one-space)) - -;; (use-package pyvenv) - -(use-package simple-httpd) - -(use-package elpher) - -(load "bundle--gui") -(load "bundle--org") -(load "bundle--magit") -(load "bundle--irc") -(load "bundle--news") -(load "bundle--scheme") - -;; (use-package clojure-mode) -;; (use-package cider) +(use-package simple-httpd + :defer t) (use-package go-translate + :defer t :config (setq gts-translate-list '(("en" "de"))) (setq gts-default-translator @@ -223,3 +159,27 @@ :picker (gts-prompt-picker) :engines (list (gts-google-engine) (gts-google-rpc-engine)) :render (gts-buffer-render)))) + +(use-package sql + :ensure nil + :defer t + :config + (when (eq system-type 'windows-nt) + (setq sql-sqlite-program "c:/msys64/mingw64/bin/sqlite3.exe"))) + +(use-package magit + :bind ("C-x g" . magit-status) + :config + (global-set-key (kbd "C-x M-g") 'magit-dispatch)) + +(use-package geiser + :defer t + :config + (setq geiser-active-implementations '(racket))) + +(use-package geiser-racket + :defer t + :after geiser) + +(load "bundle--irc") +(load "bundle--news") diff --git a/bundle/bundle--scheme.el b/bundle/bundle--scheme.el deleted file mode 100644 index 804337f0..00000000 --- a/bundle/bundle--scheme.el +++ /dev/null @@ -1,4 +0,0 @@ -(use-package geiser - :config - (setq geiser-active-implementations '(racket))) -(use-package geiser-racket) diff --git a/bundle/bundle--shrface.el b/bundle/bundle--shrface.el index c04a958d..2c0b76e4 100644 --- a/bundle/bundle--shrface.el +++ b/bundle/bundle--shrface.el @@ -1,6 +1,4 @@ (use-package shrface - :init - (global-set-key (kbd "M-o") 'ace-window) :config (shrface-basic) (shrface-trial) diff --git a/bundle/bundle--webjump.el b/bundle/bundle--webjump.el deleted file mode 100644 index ce41c5a9..00000000 --- a/bundle/bundle--webjump.el +++ /dev/null @@ -1,8 +0,0 @@ -(use-package webjump - :bind ("C-c j" . webjump) - :custom - (webjump-sites - (append '(("Wikipedia_de" . [simple-query - "de.wikipedia.org" - "https://de.wikipedia.org/wiki/" ""])) - webjump-sample-sites))) diff --git a/bundle/custom_gnu.el b/bundle/custom_gnu.el index d6f5e912..8c55356b 100644 --- a/bundle/custom_gnu.el +++ b/bundle/custom_gnu.el @@ -20,7 +20,6 @@ (fullscreen . fullscreen))) '(delete-selection-mode nil) '(diary-file "~/Documents/diary/diary") - '(doom-modeline-height 33) '(gnus-init-file "~/.emacs.d/.gnus.el") '(hl-paren-colors '("#B9F" "#B8D" "#B7B" "#B69" "#B57" "#B45" "#B33" "#B11")) '(hl-todo-keyword-faces diff --git a/init.el b/init.el index ada2207c..0b97bbbe 100755 --- a/init.el +++ b/init.el @@ -1,9 +1,10 @@ (add-to-list 'load-path (expand-file-name "~/.emacs.d/bundle/")) (load "bundle--defaults") -(load "bundle--server") -(load "bundle--package") -(load "bundle--customfile") (load "bundle--encoding") (load "bundle--holidays") +(load "bundle--server") +(load "bundle--package") +(load "bundle--org") +(load "bundle--customfile") (load "bundle--latex") (load "bundle--mk")