diff --git a/init.el b/init.el index 7083e89f..57bf7cb8 100755 --- a/init.el +++ b/init.el @@ -1,9 +1,24 @@ +(setq package-quickstart t) + +;; (add-hook 'emacs-startup-hook +;; (lambda () +;; (message "Emacs loaded in %s with %d garbage collections." +;; (format "%.2f seconds" +;; (float-time +;; (time-subtract after-init-time before-init-time))) +;; gcs-done))) + +;; (setq gc-cons-threshold 100000000) +;; (add-hook 'after-init-hook (lambda () (setq gc-cons-threshold 800000))) + ;; (require 'server) ;; (or (eq (server-running-p) t) ;; (server-start)) ;; (load "bundle--general") +(tool-bar-mode -1) +(menu-bar-mode -1) (global-hl-line-mode 1) (display-time-mode 1) (global-prettify-symbols-mode -1) @@ -131,7 +146,7 @@ (package-refresh-contents)) (unless (package-installed-p 'use-package) (package-install 'use-package)) -(require 'use-package) +(eval-when-compile (require 'use-package)) (setq use-package-always-ensure t) (use-package doom-themes @@ -141,9 +156,6 @@ (setq doom-themes-enable-bold t doom-themes-enable-italic t)) -(tool-bar-mode -1) -(menu-bar-mode -1) - ;; (load "bundle--gui") (setq-default mode-line-format @@ -1456,6 +1468,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory." (setq message-send-mail-function 'smtpmail-send-it) (use-package gnus + :defer t :custom (gnus-use-full-window nil) (gnus-summary-line-format "%O%U%R%z%d %B%(%[%4L: %-22,22f%]%) %s\n") @@ -1512,6 +1525,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory." (use-package org :ensure nil + :defer t :hook ((org-mode . turn-on-auto-fill)) :init (org-clock-persistence-insinuate) :bind @@ -1520,7 +1534,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory." ("C-c c" . org-capture) ("C-c b" . org-switchb)) :init - ;;(org-babel-lob-ingest "~/.emacs.d/library-of-babel.org") + ;; (org-babel-lob-ingest "~/.emacs.d/library-of-babel.org") (setq org-capture-templates '()) :custom (abbrev-suggest t) @@ -1663,7 +1677,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory." (plantuml . t) (C . t) (js . t) - (scheme . t))) + (scheme . t) + (dot . t))) ;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks. :custom-face (org-tag ((t (:weight normal :height 0.8))))