first commit

3 files changed, 506 insertions, 0 deletions

diff --git a/modules/emacs/README.org b/modules/emacs/README.org
new file mode 100644
index 0000000..ff1254b
--- /dev/null
+++ b/modules/emacs/README.org
@@ -0,0 +1,447 @@
+#+TITLE: My emacs literate configuration
+#+AUTHOR: Leonardo Santiago
+
+This org file is used as the configuration source for my emacs. Additional packages may be found at emacs.nix (those that cannot be directly installed from =use-package=). Though declared in emacs lisp, they actually are completely managed by the =nix= package manager, by parsing the declarations on this file and using them to fetch the packages, which I think is really cool.
+
+This makes it such that it is trivial to handle complex configurations, such as pylsp with plugins or treesitter grammars installation process (which usually envolves some stateful installations outside of emacs).
+
+In order to run this emacs configuration locally, all you need to do is run the following command:
+#+begin_src shell
+nix run github:o-santi/emacs --experimental-features "nix-command" --experimental-features "flakes"
+#+end_src
+Though you probably shouldn't, because it will most likely build all of emacs from scratch (which takes a little while).
+
+You can also use it as a ~nixosModule~, in order to add additional packages like fonts.
+
+* Core
+** Remove bar mode
+#+begin_src emacs-lisp :tangle yes
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+
+(setq use-short-answers t)
+
+(setq ring-bell-function 'ignore)
+(setq-default indent-tabs-mode nil)
+#+end_src
+
+** Theme and font
+#+begin_src emacs-lisp :tangle yes
+(use-package modus-themes)
+(use-package kanagawa-theme)
+(load-theme 'kanagawa t)
+
+(set-face-attribute 'default nil
+  :family "Iosevka Nerd Font"
+  :width 'normal
+  :weight 'normal)
+#+end_src
+
+** Backups
+#+begin_src emacs-lisp :tangle yes
+(setq
+   backup-by-copying t      ; don't clobber symlinks
+   backup-directory-alist '(("." . "~/.saves/"))    ; don't litter my fs tree
+   delete-old-versions t
+   kept-new-versions 6
+   kept-old-versions 2
+   version-control t)
+#+end_src
+
+** Background opacity
+Remove background on terminal, and add transparency on GUI
+#+begin_src emacs-lisp :tangle yes
+(defun on-after-init ()
+  (unless (display-graphic-p (selected-frame))
+    (set-face-background 'default "unspecified-bg" (selected-frame))))
+
+(add-hook 'window-setup-hook 'on-after-init)
+(set-frame-parameter nil 'alpha-background 70)
+(add-to-list 'default-frame-alist '(alpha-background . 70))
+#+end_src
+
+* Utility
+** All the Icons
+Works through nixosModules.
+#+begin_src emacs-lisp :tangle yes
+(use-package all-the-icons
+  :if (display-graphic-p))
+
+(use-package all-the-icons-completion
+  :if (display-graphic-p)
+  :after all-the-icons
+  :hook (marginalia-mode . all-the-icons-completion-mode))
+#+end_src
+** Direnv
+To integrate with nix shells.
+#+begin_src emacs-lisp :tangle yes
+(use-package envrc
+  :config (envrc-global-mode))
+#+end_src
+** Magit
+Configurations for magit
+*** Use Magit
+#+begin_src emacs-lisp :tangle yes
+(use-package magit
+  :custom (magit-process-finish-apply-ansi-colors t))
+#+end_src
+
+*** Forge
+#+begin_src emacs-lisp :tangle yes
+(setq auth-sources '("/run/agenix/authinfo"))
+#+end_src 
+To interact with gitlab and github.
+#+begin_src emacs-lisp :tangle yes
+(use-package forge
+  :after magit)
+#+end_src
+
+** Vertico, Orderless, Marginalia
+Pretty minibuffer support
+#+begin_src emacs-lisp :tangle yes
+  (use-package vertico
+    :config (vertico-mode))
+
+  (use-package orderless
+    :custom
+    (completion-styles '(orderless basic))
+    (completion-category-defaults nil)
+    (completion-category-overrides '((file (styles basic partial-completion)))))
+
+  (use-package marginalia
+    :config (marginalia-mode))
+
+  (use-package ctrlf
+    :config (ctrlf-mode +1))
+#+end_src
+** Projects
+#+begin_src emacs-lisp :tangle yes
+  (defcustom project-root-markers
+    '("Cargo.toml" "flake.nix" ".git")
+    "Files that indicate that directory is the root of a project"
+    :type '(repeat string)
+    :group 'project)
+
+  (defun project-root-p (path)
+    (catch 'found
+      (dolist (marker project-root-markers)
+        (when (file-exists-p (concat path marker))
+          (throw 'found marker)))))
+
+  (defun project-find-root (path)
+    "Search up the PATH for `project-root-markers'."
+    (let ((path (expand-file-name path)))
+      (catch 'found
+        (while (not (equal "/" path))
+          (if (not (project-root-p path))
+              (setq path (file-name-directory (directory-file-name path)))
+            (throw 'found (cons 'transient path)))))))
+
+  (use-package project
+    :config (setq project-find-functions '(project-find-root)))
+#+end_src
+** Helpful and which key
+Better help defaults
+#+begin_src emacs-lisp :tangle yes
+(use-package helpful
+  :config
+  (global-set-key (kbd "C-h f") #'helpful-callable)
+  (global-set-key (kbd "C-h v") #'helpful-variable)
+  (global-set-key (kbd "C-h x") #'helpful-command)
+  (global-set-key (kbd "C-h k") #'helpful-key))
+
+(use-package which-key
+  :config (which-key-mode))
+#+end_src
+** Dired
+I wanna try some QoL addons for dired.
+#+begin_src emacs-lisp :tangle yes
+(use-package dired
+  :hook (dired-mode . dired-hide-details-mode))
+(use-package dired-subtree
+  :after dired
+  :config
+  (add-hook 'dired-mode-hook
+            (lambda () (local-set-key (kbd "<tab>") #'dired-subtree-toggle))))
+
+(use-package all-the-icons-dired
+  :hook (dired-mode . all-the-icons-dired-mode))
+#+end_src
+** Windows
+I wanna test out =winner-mode=
+#+begin_src emacs-lisp :tangle yes
+(use-package winner
+  :config (winner-mode))
+#+end_src
+** Bind key
+#+begin_src emacs-lisp :tangle yes
+(use-package bind-key)
+#+end_src
+** Eglot
+Language server support. Already comes installed but used to configure additional language servers.
+#+begin_src emacs-lisp :tangle yes
+(use-package eglot
+  :config (add-to-list 'eglot-server-programs '(nix-mode . ("nil"))))
+#+end_src
+
+** Corfu
+Completion popup system
+#+begin_src emacs-lisp :tangle yes
+(use-package corfu
+  :config (global-corfu-mode)
+  :custom
+  (corfu-auto t)
+  (corfu-cycle t)
+  (corfu-separator ?\s)
+  (corfu-quit-no-match t))
+#+end_src
+** Vterm
+#+begin_src emacs-lisp :tangle yes
+(use-package vterm)
+#+end_src
+** Compilation
+Add support for ansi escape codes in compilation
+#+begin_src emacs-lisp :tangle yes
+(use-package xterm-color
+  :custom (compilation-environment '("TERM=xterm-256color")))
+(defun my/advice-compilation-filter (f proc string)
+  (funcall f proc (xterm-color-filter string)))
+(advice-add 'compilation-filter :around #'my/advice-compilation-filter)
+#+end_src
+
+** Pdf reader
+#+begin_src emacs-lisp :tangle yes
+(use-package pdf-tools
+  :defer t
+  :mode ("\\.pdf\\'" . pdf-view-mode)
+  :magic ("%PDF" . pdf-view-mode))
+#+end_src
+** View Large Files
+Minor mode to allow opening files in chunks
+#+begin_src emacs-lisp :tangle yes
+(use-package vlf
+  :config
+  (require 'vlf-setup)
+  (custom-set-variables
+   '(vlf-application 'dont-ask)))
+#+end_src
+* Languages
+I try to mostly use the new Treesitter modes, which comes builtin with the new emacs 29.
+** Python
+The package already comes builtin, so we only instantiate it to define the hooks and remap the default package for the new one.
+
+It also relies on python lsp server with builtin ruff support.
+#+begin_src emacs-lisp :tangle yes
+(add-to-list 'major-mode-remap-alist '(python-mode . python-ts-mode))
+(add-hook 'python-ts-mode-hook #'eglot-ensure)
+#+end_src
+
+** Nix
+#+begin_src emacs-lisp :tangle yes
+(use-package nix-mode
+  :hook (nix-mode . eglot-ensure))
+#+end_src
+** Rust
+Try to use the package.
+#+begin_src emacs-lisp :tangle yes
+(add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-ts-mode))
+(add-hook 'rust-ts-mode-hook #'eglot-ensure)
+
+(setq rust-ts-mode-indent-offset 2)
+#+end_src
+
+** Markdown
+#+begin_src emacs-lisp :tangle yes
+(use-package markdown-mode
+  :mode "\\.md\\'")
+#+end_src
+* Personal
+** Org mode
+#+begin_src emacs-lisp :tangle yes
+(use-package org
+  :hook (org-mode . org-indent-mode)
+  :bind ("C-c a" . org-agenda)
+  :config
+  (custom-set-faces
+   '(org-headline-done
+     ((((class color) (min-colors 16) (background dark)) 
+       (:foreground "gray" :strike-through t)))))
+  :custom
+  (org-todo-keywords '((sequence "IDEA" "TODO" "STUCK" "DOING" "|" "DONE")
+                       (sequence "ASSIGNED(a@!)" "WORKING(w!)" "ON REVIEW(r!)" "|" "MERGED(m!)" "CANCELLED(c!)")
+                       (sequence "EVENT" "|" "FULFILLED")))
+  (org-startup-truncated nil)
+  (org-ellipsis "…")
+  (org-pretty-entities t)
+  (org-hide-emphasis-markers nil)
+  (org-fontify-quote-and-verse-blocks t)
+  (org-image-actual-width nil)
+  (org-indirect-buffer-display 'other-window)
+  (org-confirm-babel-evaluate nil)
+  (org-edit-src-content-indentation 0)
+  (org-auto-align-tags nil)
+  (org-fontify-done-headline t)
+  (org-agenda-files '("~/agenda.org")))
+#+end_src
+*** Org Modern
+#+begin_src emacs-lisp :tangle yes
+(defun bg (color)
+  `(:background ,color :inherit (org-todo org-modern-label) :foreground "gray25"))
+
+(use-package org-modern
+  :after org
+  :hook (org-mode . org-modern-mode)
+  :hook (org-agenda-finalize . org-modern-agenda)
+  :custom
+  (org-modern-todo-faces
+   `(("IDEA"  . ,(bg "yellow"))
+     ("TODO"  . org-modern-todo)
+     ("STUCK" . ,(bg "brown"))
+     ("DOING" . ,(bg "green"))
+     ("DONE"  . org-modern-done)
+     ; work tasks
+     ("ASSIGNED" . org-modern-todo)
+     ("WORKING" . ,(bg "green yellow"))
+     ("ON REVIEW" . ,(bg "sandy brown"))
+     ("MERGED" . org-modern-done)
+     ("CANCELLED" . ,(bg "OrangeRed1"))
+     ; one time tasks
+     ("EVENT" . ,(bg "deep sky blue"))
+     ("DONE" . org-modern-done)))
+  (org-modern-priority t))
+#+end_src
+*** Org Agenda
+#+begin_src emacs-lisp :tangle yes
+(setq
+ org-agenda-window-setup 'current-window
+ org-agenda-restore-windows-after-quit t
+ org-agenda-skip-deadline-prewarning-if-scheduled t
+ org-agenda-compact-blocks t
+ org-agenda-span 'week
+ org-agenda-skip-deadline-if-done t
+ org-agenda-skip-scheduled-if-done t
+ org-agenda-skip-timestamp-if-done t
+ org-agenda-format-date "%e de %B, %A"
+ org-agenda-deadline-leaders  '("Deadline:  " "Daqui a %d dias:" "%d dias atrás")
+ org-agenda-scheduled-leaders '("Agendado:  " "%d dias atrasado:")
+ )
+
+(setq
+ org-agenda-custom-commands
+ '(("w" "work"
+    ((todo "ASSIGNED")
+     (todo "WORKING")
+     (todo "ON REVIEW")
+     (tags-todo "CATEGORY=\"trabalho\"")))))
+#+end_src
+
+*** Org alert
+#+begin_src emacs-lisp :tangle yes
+(use-package org-alert
+  :ensure t
+  :config (org-alert-enable)
+  :custom
+  (org-alert-interval 60)
+  (org-alert-notify-cutoff 30)
+  (org-alert-notification-title "Emacs Agenda")
+  (alert-default-style 'notifications))
+#+end_src 
+** Calendar
+try out emacs calfw
+#+begin_src emacs-lisp :tangle yes
+(use-package calfw)
+(use-package calfw-org
+  :bind ("C-c c l" . cfw:open-org-calendar)
+  :custom (cfw:org-overwrite-default-keybinding t))
+#+end_src 
+** Email
+*** RSS feed reader
+#+begin_src emacs-lisp :tangle yes
+(use-package elfeed
+  :custom
+  (elfeed-feeds
+   '(("https://xeiaso.net/blog.rss" nixos)
+     ("https://smallcultfollowing.com/babysteps//atom.xml" rust)
+     ("https://fasterthanli.me/index.xml" rust nixos)
+     ("http://radar.spacebar.org/f/a/weblog/rss/1" tom7)
+     ("https://matklad.github.io/feed.xml" rust zig)
+     ("https://blog.m-ou.se/index.xml" rust)
+     ("https://without.boats/index.xml" rust)
+  )))
+  
+#+end_src 
+
+#+RESULTS:
+
+*** Mu4e
+**** Setting up mu4e.
+#+begin_src emacs-lisp :tangle yes
+(setq epg-pinentry-mode 'loopback)
+(setq user-mail-address "[email protected]")
+#+end_src
+Helper functions, to try to discover which mail pertains to which account.
+#+begin_src emacs-lisp :tangle yes
+(defun personal-p (msg)
+  (string-prefix-p "/personal/" (mu4e-message-field msg :maildir)))
+(defun university-p (msg)
+  (string-prefix-p "/university/" (mu4e-message-field msg :maildir)))
+(defun work-p (msg)
+  (string-prefix-p "/work/" (mu4e-message-field msg :maildir)))
+#+end_src
+Actual mu4e definition
+#+begin_src emacs-lisp :tangle yes
+(use-package mu4e
+  :bind ("C-c m" . mu4e)
+  :custom
+  (read-mail-command 'mu4e)
+  (mu4e-index-cleanup nil)
+  (mu4e-index-lazy-check t)
+  (mu4e-use-fancy-chars (display-graphic-p))
+  (mu4e-confirm-quit nil)
+  (mu4e-change-filenames-when-moving t)
+  (mu4e-update-interval (* 5 60))
+  (mu4e-get-mail-command "parallel mbsync ::: personal work university")
+  (mu4e-headers-fields
+   '((:human-date . 10)
+     (:flags . 6)
+     (:topic . 10)
+     (:from-or-to . 22)
+     (:subject . nil)))
+  (mu4e-drafts-folder (lambda (msg)
+                        (cond
+                         ((personal-p msg)   "/personal/[Gmail]/Rascunhos")
+                         ((university-p msg) "/university/[Gmail]/Rascunhos")
+                         ((work-p msg)       "/work/[Gmail]/Drafts"))))
+  (mu4e-sent-folder (lambda (msg)
+                      (cond
+                       ((personal-p msg)   "/personal/[Gmail]/Enviados")
+                       ((university-p msg) "/university/[Gmail]/Enviados")
+                       ((work-p msg)       "/work/[Gmail]/Sent"))))
+  (mu4e-refile-folder (lambda (msg)
+                        (cond
+                         ((personal-p msg)   "/personal/[Gmail]/Todos\ os\ e-mails")
+                         ((university-p msg) "/university/[Gmail]/Todos\ os\ e-mails")
+                         ((work-p msg)       "/work/[Gmail]/'All mail'"))))
+  (mu4e-trash-folder  (lambda (msg)
+                        (cond
+                         ((personal-p msg)   "/personal/[Gmail]/Lixeira")
+                         ((university-p msg) "/university/[Gmail]/Lixeira")
+                         ((work-p msg)       "/work/[Gmail]/Trash"))))
+  :config
+  (add-to-list 'display-buffer-alist
+               `( ,(regexp-quote mu4e-main-buffer-name)
+                  display-buffer-same-window)) ; to avoid opening in full frame everytime.
+  (add-to-list 'mu4e-bookmarks
+               '(:name "Inboxes"
+                 :query "m:/personal/Inbox OR m:/work/Inbox OR m:/university/Inbox"
+                 :key ?i))
+  (add-to-list 'mu4e-header-info-custom
+               '(:topic 
+                 :name "Topic"
+                 :shortname "Topic"
+                 :function (lambda (msg)
+                             (cond
+                              ((personal-p msg)   "Personal")
+                              ((university-p msg) "University")
+                              ((work-p msg)       "Work"))))))
+#+end_src
diff --git a/modules/emacs/emacs.nix b/modules/emacs/emacs.nix
new file mode 100644
index 0000000..14aadf2
--- /dev/null
+++ b/modules/emacs/emacs.nix
@@ -0,0 +1,48 @@
+{ pkgs, inputs, ...}:
+let
+  outside-emacs = [
+    (pkgs.python3.withPackages (p: (with p; [
+      python-lsp-server
+      python-lsp-ruff
+      pylsp-mypy
+    ])))
+    pkgs.nil
+    pkgs.rust-analyzer
+    pkgs.parallel
+  ];
+  org-tangle-elisp-blocks = (pkgs.callPackage ./org.nix {inherit pkgs; from-elisp = inputs.from-elisp;}).org-tangle ({ language, flags } :
+    let is-elisp = (language == "emacs-lisp") || (language == "elisp");
+        is-tangle = if flags ? ":tangle" then
+          flags.":tangle" == "yes" || flags.":tangle" == "y" else false;
+    in is-elisp && is-tangle
+  );
+  config-el = pkgs.writeText "config.el" (org-tangle-elisp-blocks (builtins.readFile ./README.org));
+  emacs = (pkgs.emacsWithPackagesFromUsePackage {
+    package = pkgs.emacs.override { withGTK3 = true; };
+    config = config-el; 
+    alwaysEnsure = true;
+    defaultInitFile = true;
+    extraEmacsPackages = epkgs: with epkgs; [
+      (treesit-grammars.with-grammars (g: with g; [
+        tree-sitter-rust
+        tree-sitter-python
+      ]))
+    ] ++ outside-emacs;
+    override = final: prev: {
+      final.buildInputs = prev.buildInputs or [] ++ outside-emacs;
+    };
+  });
+in
+{
+  config = {
+    nixpkgs.overlays = [ inputs.emacs-overlay.overlays.default ];
+    environment.systemPackages = [
+      emacs
+    ] ++ outside-emacs;
+    fonts.packages = with pkgs; [
+      emacs-all-the-icons-fonts
+      (nerdfonts.override { fonts = ["Iosevka"]; })
+    ];
+  };
+}
+
diff --git a/modules/emacs/org.nix b/modules/emacs/org.nix
new file mode 100644
index 0000000..e5fd15c
--- /dev/null
+++ b/modules/emacs/org.nix
@@ -0,0 +1,11 @@
+{ pkgs, from-elisp }: {
+  org-tangle = block-predicate: text:
+    let blocks = (pkgs.callPackage from-elisp { inherit pkgs; }).parseOrgModeBabel text;
+        block-to-str = (block:
+          if block-predicate { inherit (block) language flags; } then
+            block.body
+          else
+            ""
+        );
+    in builtins.concatStringsSep "\n" (map block-to-str blocks); 
+}