From a262d0281493d3a1da4bb2ba1b0546826298bcd1 Mon Sep 17 00:00:00 2001 From: opfez Date: Wed, 30 Aug 2023 20:50:04 +0200 Subject: [PATCH] general updates --- init.el | 4 +++ packages.el | 63 ++++++++++++++++++++++++++++-------- readme | 5 +++ snippets/latex-mode/.gitkeep | 0 tweaks.el | 3 ++ 5 files changed, 61 insertions(+), 14 deletions(-) create mode 100644 snippets/latex-mode/.gitkeep diff --git a/init.el b/init.el index 3bfd3f2..931a6a4 100644 --- a/init.el +++ b/init.el @@ -1,5 +1,9 @@ ;; -*- lexical-binding: t -*- +;; Supress native-comp warnings +(when (featurep 'native-compile) + (setq native-comp-async-report-warnings-errors nil)) + ;; Load essentials. (load "~/.emacs.d/essential.el") diff --git a/packages.el b/packages.el index 0f67415..62102ab 100644 --- a/packages.el +++ b/packages.el @@ -78,6 +78,25 @@ :config (setq-default lua-indent-level 4)) +(use-package eglot + :ensure t) + +(use-package ada-mode + :ensure t + :config + (setq-default ada-diagnostics-backend 'eglot) + + (setq-default ada-face-backend 'eglot) + + (setq-default ada-indent-backend 'eglot) + + (setq-default ada-statement-backend 'eglot) + + (setq-default ada-xref-backend 'eglot)) + +(use-package rust-mode + :ensure t) + ;; Amazing s-expression editing mode. ;; (use-package lispy ;; :ensure t @@ -154,10 +173,10 @@ ;; Instead of opening windows inside of Emacs, create new frames. This is great ;; for tiling window managers. -;; (use-package frames-only-mode - ;; :ensure t - ;; :config - ;; (frames-only-mode)) +(use-package frames-only-mode + :ensure t + :config + (frames-only-mode)) ;; Mode for browsing gemini/gopher sites. (use-package elpher @@ -175,9 +194,14 @@ (use-package org :ensure t :bind + ("C-c o a" . org-agenda) ("C-c o c" . org-capture) :config -;;; org-capture + ;; Don't insert newline before every list entry + (setq org-blank-before-new-entry + '((heading . nil) + (plain-list-item . nil))) + ;; org-capture ;; Default location for org-capture is ~/org/notes.org (setq org-default-notes-file (concat org-directory "/notes.org")) (setq org-capture-templates @@ -185,11 +209,20 @@ "* TODO %?\n %i\n %a") ("j" "Journal" entry (file+datetree "~/org/journal.org") "* %?\nEntered on %U\n %i\n %a"))) - (setq org-link-frame-setup '((vm . vm-visit-folder-other-frame) - (vm-imap . vm-visit-imap-folder-other-frame) - (gnus . org-gnus-no-new-news) - (file . find-file) - (wl . wl-other-frame)))) + (setq org-link-frame-setup + '((vm . vm-visit-folder-other-frame) + (vm-imap . vm-visit-imap-folder-other-frame) + (gnus . org-gnus-no-new-news) + (file . find-file) + (wl . wl-other-frame))) + ;; org-agenda + (setq org-agenda-files '("~/doc/agenda.org")) + (setq org-agenda-prefix-format + '((dashboard-agenda . " %i %-12:c %s ") + (agenda . " %i %-12:c%?-12t% s") + (todo . " %i %-12:c") + (tags . " %i %-12:c") + (search . " %i %-12:c")))) ;; Notes ;; (use-package org-roam @@ -216,6 +249,7 @@ (yas-global-mode 1)) (use-package god-mode + :ensure t :init (global-set-key (kbd "") #'god-mode-all) (setq god-exempt-major-modes nil) @@ -236,7 +270,7 @@ (fset 'tex-font-lock-suscript 'ignore)) ;; mu4e doesn't have a (m)elpa package, apparently, so it is set up manually here -(require 'mu4e) +;; (require 'mu4e) ;; (use-package exwm ;; :init @@ -312,6 +346,7 @@ (use-package elfeed :ensure t :config + (setq elfeed-curl-extra-arguments '("--insecure")) (setq elfeed-feeds '(("http://tilde.town/~opfez/music_rss.xml" music) ("https://tilde.town/~dzwdz/blog.xml" friend) ("https://m455.casa/feed.rss" friend) @@ -320,7 +355,6 @@ ("https://tilde.town/~opfez/blog_rss.xml" friend) ;; ("https://dataswamp.org/~solene/rss.xml" blog) ("https://stevelosh.com/rss.xml" blog) - ("https://drewdevault.com/blog/index.xml" blog) ("https://ftrv.se/posts.rss" blog) ("https://ambrevar.xyz/atom.xml" blog) ("http://wingolog.org/feed/atom" blog) @@ -367,9 +401,7 @@ ("https://www.youtube.com/feeds/videos.xml?channel_id=UCk2KE7yg0BwsJfr8Dp9ivUQ" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCSdma21fnJzgmPodhC9SJ3g" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCmtyQOKKmrMVaKuRXz02jbQ" youtube) - ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCah7IyEzRnRdttwDGDdy_gw" youtube) - ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCD6VugMZKRhSyzWEWA9W2fg" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCL7DDQWP6x7wy0O6L5ZIgxg" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCqp1yi_juq5JJuzKY71Hoag" youtube) @@ -383,5 +415,8 @@ ("https://www.youtube.com/feeds/videos.xml?channel_id=UCrv269YwJzuZL3dH5PCgxUw" youtube) ("https://www.youtube.com/feeds/videos.xml?channel_id=UCt7fwAhXDy3oNFTAzF2o8Pw" youtube) ; theneedledrop ("https://www.youtube.com/feeds/videos.xml?channel_id=UCOjLfFE0TABS9bk05oH-kgw" youtube) ; patricia taxxon + ("https://www.youtube.com/feeds/videos.xml?channel_id=UC9DkCKm4_VDztRRyge4mCJQ" youtube) ; amoeba records + ("https://www.youtube.com/feeds/videos.xml?channel_id=UC2PA-AKmVpU6NKCGtZq_rKQ" youtube) ; philosophy tube + ("https://www.youtube.com/feeds/videos.xml?channel_id=UC5qqBFOKTNAzIyE4g3SvuwQ" youtube) ; sleep deprived ))) (provide 'packages) diff --git a/readme b/readme index ee08465..efc9a6f 100644 --- a/readme +++ b/readme @@ -11,3 +11,8 @@ Files: - tweaks.el: Mostly just tweaks correcting the (many) horrible defaults of GNU Emacs. Also contains some improvements I doubt I will remove. - custom.el: Contains keybinds and custom functions. + +Note: The snippets under snippets/latex-mode are retrieved from +https://github.com/madsdk/yasnippets-latex, but not included by default with the +configuration since they're GPL and AFAIK including them would require my config +to conform to the GPL as well. diff --git a/snippets/latex-mode/.gitkeep b/snippets/latex-mode/.gitkeep new file mode 100644 index 0000000..e69de29 diff --git a/tweaks.el b/tweaks.el index 1cfc36b..2a1580b 100644 --- a/tweaks.el +++ b/tweaks.el @@ -97,6 +97,9 @@ ;; Disable cursor blink (blink-cursor-mode 0) +;; Calendar should start on Monday +(setq calendar-week-start-day 1) + ;; Auto-indent pasted code. (dolist (command '(yank yank-pop)) (eval