commit dff314d447da23ba6bb8e3df72e3ef3626fad43a
parent fe7800b83f079188fdc0b95c72b43932d866376f
Author: Yuval Langer <yuval.langer@gmail.com>
Date: Sun, 2 Jul 2023 15:43:46 +0300
Add new GNU Emacs configuration.
Diffstat:
2 files changed, 206 insertions(+), 0 deletions(-)
diff --git a/config/emacs/custom-variables.el b/config/emacs/custom-variables.el
@@ -0,0 +1,30 @@
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(custom-enabled-themes '(wheatgrass))
+ '(ement-save-sessions t)
+ '(geiser-default-implementation 'guile)
+ '(geiser-repl-per-project-p t)
+ '(global-visual-line-mode t)
+ '(global-whitespace-cleanup-mode t)
+ '(mode-line-percent-position '(6 "%q"))
+ '(on-screen-delay 60)
+ '(on-screen-global-mode t)
+ '(org-agenda-files '("~/mine/org/"))
+ '(org-default-notes-file "~/mine/org/org.org")
+ '(org-directory "~/mine/org/")
+ '(org-export-use-babel nil)
+ '(org-roam-directory "~/mine/roam/")
+ '(package-selected-packages
+ '(use-package tabbar session pod-mode org-roam org-bullets muttrc-mode mutt-alias markdown-mode initsplit htmlize helm-org graphviz-dot-mode geiser folding evil-paredit eproject diminish csv-mode company color-theme-modern browse-kill-ring boxquote bm bar-cursor apache-mode))
+ '(safe-local-variable-values '((encoding . utf-8)))
+ '(word-wrap t)
+ '(writeroom-major-modes '(text-mode geiser-mode scheme-mode)))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ )
diff --git a/config/emacs/init.el b/config/emacs/init.el
@@ -0,0 +1,176 @@
+(setq gc-cons-threshold (* 1024 1024 1024))
+
+'(use-package
+ org-roam
+ :ensure t
+ :custom (org-roam-directory "~/mine/roam")
+ :bind (("C-c n l" . org-roam-buffer-toggle)
+ ("C-c n f" . org-roam-node-find)
+ ("C-c n i" . org-roam-node-insert))
+ ;;:config (org-roam-setup)
+ )
+(show-paren-mode)
+
+(org-babel-do-load-languages
+ 'org-babel-load-languages
+ '((scheme . t)
+ (emacs-lisp . t)))
+
+'(letrec moo ((x 20))
+ (cond
+ ((< x 0)
+ (message "END"))
+ (else
+ (message (number-to-string x))
+ (moo (- x 1)))))
+
+(defun kakafarm/espeak ()
+ (interactive)
+ (let ((start (min (mark) (point)))
+ (end (max (mark) (point))))
+ (shell-command-on-region start end "espeak")))
+
+(progn
+ (defun kakafarm/set-key-bindings ()
+ (global-set-key (kbd "C-S-t")
+ #'recentf-open-files)
+ (global-set-key (kbd "C-c t")
+ #'recentf-open-files)
+ (global-set-key (kbd "C-c l")
+ #'dictionary-lookup-definition)
+ (global-set-key (kbd "C-c c")
+ #'kakafarm/espeak))
+
+ (kakafarm/set-key-bindings))
+
+;; Use another file for the ``customize'' customisations.
+(setq custom-file (locate-user-emacs-file "custom-variables.el"))
+(load custom-file 'noerror 'nomessage)
+
+(progn
+ (defun kakafarm/load-theme-stuff ()
+ (setq modus-themes-mode-line '(borderless
+ accented
+ ;; 3d
+ padded
+ ;; moody
+ )
+ modus-themes-region '(;;accented
+ bg-only
+ ;;no-extend
+ )
+ modus-themes-paren-match '(bold
+ intense)
+ ;;modus-themes-syntax '(alt-syntax)
+ modus-themes-scale-headings t
+ modus-themes-org-blocks 'tinted-background)
+
+ (load-theme 'modus-vivendi)
+ '(load-theme 'wheatgrass))
+
+ (kakafarm/load-theme-stuff))
+
+(icomplete-mode 1)
+
+(defun kakafarm/load-emacs-from-scratch-stuff ()
+ "Emacs From Scratch
+ https://systemcrafters.net/emacs-from-scratch/
+ https://www.youtube.com/playlist?list=PLEoMzSkcN8oPH1au7H6B7bBJ4ZO7BXjSZ"
+
+ (setq visible-cursor t
+ visible-bell t)
+
+ ;; The Basics of Emacs Configuration
+ ;; https://systemcrafters.net/emacs-from-scratch/basics-of-emacs-configuration/
+ ;; https://www.youtube.com/watch?v=OaF-N-FuGtc
+ (progn
+ (tool-bar-mode -1)
+ (scroll-bar-mode -1)
+ (menu-bar-mode 1)
+ (global-display-line-numbers-mode 1)
+ (hl-line-mode 1)
+ (blink-cursor-mode 1))
+
+ ;; https://systemcrafters.net/emacs-from-scratch/the-best-default-settings/
+ ;; https://www.youtube.com/watch?v=51eSeqcaikM
+ (recentf-mode 1)
+ (setq history-length 25)
+ (savehist-mode 1)
+ (save-place-mode 1))
+
+(kakafarm/load-emacs-from-scratch-stuff)
+
+(set-fontset-font t 'hebrew "Noto Sans Hebrew")
+
+(setq-default indent-tabs-mode nil)
+
+(setq geiser-active-implementations '(guile))
+
+'(org-roam-db-autosync-mode)
+
+(add-hook 'after-init-hook 'global-company-mode)
+
+;; https://www.emacswiki.org/emacs/ParEdit#h5o-1
+(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp mode." t)
+(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
+(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
+(add-hook 'lisp-mode-hook #'enable-paredit-mode)
+(add-hook 'scheme-mode-hook #'enable-paredit-mode)
+
+(defun kakafarm/percent-read ()
+ "Display percent read by current cursor location vs. total characters in file."
+ (interactive)
+ (message "%.2f%%"
+ (* 100
+ (/ (float (- (point) 1))
+ (+ 1 (buffer-size))))))
+
+(progn
+ ;; Load org-roam stuff.
+ (defun roam-sitemap (title lst)
+ (message (format "~a\n" lst))
+ (concat
+ "#+OPTIONS: ^:nil author:nil html-postamble:nil\n"
+ "#+SETUPFILE: ./simple_inline.theme\n"
+ "#+TITLE: " title "\n\n"
+ (org-list-to-org lst) "\nfile:sitemap.svg"
+ ))
+
+ (setq my-publish-time 0)
+ (defun roam-publication-wrapper (plist filename pubdir)
+ (org-roam-graph)
+ (org-html-publish-to-html plist filename pubdir)
+ (setq my-publish-time (cadr (current-time))))
+
+ (setq org-publish-project-alist
+ '(("roam"
+ :base-directory "~/mine/roam"
+ :auto-sitemap t
+ :sitemap-function roam-sitemap
+ :sitemap-title "Roam notes"
+ :publishing-function roam-publication-wrapper
+ :publishing-directory "~/mine/roam-export"
+ :section-number nil
+ :table-of-contents nil
+ :style "<link rel=\"stylesheet\" href=\"../other/mystyle.css\" type=\"text/css\">")))
+
+ (defun org-roam-custom-link-builder (node)
+ (let ((file (org-roam-node-file node)))
+ (concat (file-name-base file) ".html")))
+
+ (setq org-roam-graph-link-builder 'org-roam-custom-link-builder)
+
+ (add-hook 'org-roam-graph-generation-hook
+ (lambda (dot svg)
+ (if (< (- (cadr (current-time))
+ my-publish-time)
+ 5)
+ (progn
+ (copy-file svg "~/mine/roam-export/sitemap.svg" 't)
+ (kill-buffer (file-name-nondirectory svg))
+ (setq my-publish-time 0))))))
+
+(setq dictionary-server "localhost")
+
+(setq gc-cons-threshold (* 2 1024 1024))
+
