marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'main' of git.sr.ht:~marcuskammer/emacs.d

Browse source
This commit is contained in:
Marcus Kammer 2024-09-22 11:48:30 +02:00
commit deea71abf9
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 21 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
init.el
View file

@ -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) ;; (require 'server)
;; (or (eq (server-running-p) t) ;; (or (eq (server-running-p) t)
;; (server-start)) ;; (server-start))
;; (load "bundle--general") ;; (load "bundle--general")
(tool-bar-mode -1)
(menu-bar-mode -1)
(global-hl-line-mode 1) (global-hl-line-mode 1)
(display-time-mode 1) (display-time-mode 1)
(global-prettify-symbols-mode -1) (global-prettify-symbols-mode -1)
@ -131,7 +146,7 @@
(package-refresh-contents)) (package-refresh-contents))
(unless (package-installed-p 'use-package) (unless (package-installed-p 'use-package)
(package-install 'use-package)) (package-install 'use-package))
(require 'use-package) (eval-when-compile (require 'use-package))
(setq use-package-always-ensure t) (setq use-package-always-ensure t)
(use-package doom-themes (use-package doom-themes
@ -141,9 +156,6 @@
(setq doom-themes-enable-bold t (setq doom-themes-enable-bold t
doom-themes-enable-italic t)) doom-themes-enable-italic t))
(tool-bar-mode -1)
(menu-bar-mode -1)
;; (load "bundle--gui") ;; (load "bundle--gui")
(setq-default mode-line-format (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) (setq message-send-mail-function 'smtpmail-send-it)
(use-package gnus (use-package gnus
:defer t
:custom :custom
(gnus-use-full-window nil) (gnus-use-full-window nil)
(gnus-summary-line-format "%O%U%R%z%d %B%(%[%4L: %-22,22f%]%) %s\n") (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 (use-package org
:ensure nil :ensure nil
:defer t
:hook ((org-mode . turn-on-auto-fill)) :hook ((org-mode . turn-on-auto-fill))
:init (org-clock-persistence-insinuate) :init (org-clock-persistence-insinuate)
:bind :bind
@ -1520,7 +1534,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
("C-c c" . org-capture) ("C-c c" . org-capture)
("C-c b" . org-switchb)) ("C-c b" . org-switchb))
:init :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 '()) (setq org-capture-templates '())
:custom :custom
(abbrev-suggest t) (abbrev-suggest t)
@ -1663,7 +1677,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(plantuml . t) (plantuml . t)
(C . t) (C . t)
(js . t) (js . t)
(scheme . t))) (scheme . t)
(dot . t)))
;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks. ;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks.
:custom-face :custom-face
(org-tag ((t (:weight normal :height 0.8)))) (org-tag ((t (:weight normal :height 0.8))))