if [ -d "$HOME/.nix-profile" ] && [ -z "$NO_GUIX" ]; then
export XDG_DATA_DIRS="$XDG_DATA_DIRS:$HOME/.nix-profile/share/applications"
fi
+Gradle:
+if [ -d "$HOME/bin/gradle/gradle-9.0.0" ]; then
+ export PATH="$HOME/bin/gradle/gradle-9.0.0/bin:$PATH"
+fi
npm is especially cumbersome, for instance because by default it tries to install packages to /gnu/store/.
In principle, one can set a prefix like this:
diff --git a/configs/desktop/index.html b/configs/desktop/index.html index 4e6c98a..d97f512 100644 --- a/configs/desktop/index.html +++ b/configs/desktop/index.html @@ -278,9 +278,9 @@ x-scheme-handler/http=firefox.desktop x-scheme-handler/https=firefox.desktop x-scheme-handler/tg=userapp-Telegram Desktop-7PVWF1.desktop -image/png=com.interversehq.qView.desktop -image/jpg=com.interversehq.qView.desktop -image/jpeg=com.interversehq.qView.desktop +image/png=feh.desktop +image/jpg=feh.desktop +image/jpeg=feh.desktop application/pdf=org.pwmt.zathura.desktop [Added Associations] @@ -627,19 +627,25 @@The second piece of the puzzle is getting the monitor list in the right order.
While it is possible to retrieve the monitor list from exwm-randr-workspace-monitor-plist, this won’t scale well beyond two monitors, mainly because changing this variable may screw up the order.
So the easiest way is to just define the variable like that:
+(defun my/exwm-xrandr-monitor-list ()
+ (split-string
+ (string-trim
+ (shell-command-to-string "xrandr --listmonitors | grep '+' | awk {'print $4'}
+"))))
+So the easiest way is to just define the variable like that:
(setq my/exwm-monitor-list
(pcase (system-name)
("indigo" '(nil "DVI-D-0"))
- ("violet" '(nil "DP-1"))
+ ("violet" (my/exwm-xrandr-monitor-list))
(_ '(nil))))
-If you are changing the RandR configuration on the fly, this variable will also need to be changed, but for now, I don’t have such a necessity.
-A function to get the current monitor:
+A function to get the current monitor:
(defun my/exwm-get-current-monitor ()
"Return the current monitor name or nil."
- (plist-get exwm-randr-workspace-monitor-plist
- (cl-position (selected-frame)
- exwm-workspace--list)))
+ (or
+ (plist-get exwm-randr-workspace-monitor-plist
+ (cl-position (selected-frame)
+ exwm-workspace--list))
+ (car my/exwm-monitor-list)))
And a function to cycle the monitor list in either direction:
(defun my/exwm-get-other-monitor (dir)
"Cycle the monitor list in the direction DIR.
@@ -665,16 +671,17 @@
(my/exwm-last-workspaces-clear)
(let ((mouse-autoselect-window nil))
(exwm-workspace-switch
- (cl-loop with other-monitor = (my/exwm-get-other-monitor (or dir 'right))
- for i in (append my/exwm-last-workspaces
- (cl-loop for i from 0
- for _ in exwm-workspace--list
- collect i))
- if (if other-monitor
- (string-equal (plist-get exwm-randr-workspace-monitor-plist i)
- other-monitor)
- (not (plist-get exwm-randr-workspace-monitor-plist i)))
- return i))))
+ (or
+ (cl-loop with other-monitor = (my/exwm-get-other-monitor (or dir 'right))
+ for i in (append my/exwm-last-workspaces
+ (cl-loop for i from 0
+ for _ in exwm-workspace--list
+ collect i))
+ if (if other-monitor
+ (string-equal (plist-get exwm-randr-workspace-monitor-plist i)
+ other-monitor)
+ (not (plist-get exwm-randr-workspace-monitor-plist i)))
+ return i)))))
I bind this function to s-q, as I’m used from i3.
Now, moving the workspace to another monitor.
@@ -717,6 +724,18 @@ (my/exwm-switch-to-other-monitor dir)) (cl-loop while (windmove-find-other-window opposite-dir) do (windmove-do-window-select opposite-dir)))))) +(defun my/exwm-refresh-monitors ()
+ (interactive)
+ (setq my/exwm-monitor-list (my/exwm-xrandr-monitor-list))
+ (cl-loop for i from 0 to (1- exwm-workspace-number)
+ for monitor = (plist-get exwm-randr-workspace-monitor-plist
+ i)
+ if (not (member monitor my/exwm-monitor-list))
+ do
+ (setf (plist-get exwm-randr-workspace-monitor-plist i)
+ (car my/exwm-monitor-list)))
+ (exwm-randr-refresh))
Setting up some completion interfaces that fit particularly well to use with EXWM. While rofi also works, I want to use Emacs functionality wherever possible to have one completion interface everywhere.
(straight-use-package 'use-package)
(eval-when-compile (require 'use-package))
-This section is about optioning the Emacs config.
-The following is true is Emacs is run on a remote server where I don’t need stuff like my org workflow
-(setq my/remote-server
- (or (string= (getenv "IS_REMOTE") "true")
- (string= (system-name) "dev-digital")
- (string= (system-name) "viridian")))
-And the following is true if Emacs is run from termux on Android.
-(setq my/is-termux (string-match-p (rx (* nonl) "com.termux" (* nonl)) (getenv "HOME")))
+I’ve made the config sort of modular because I need different parts in different environments. With such a large config as mine, this is important.
+The problem with one large init.el is it’s evaluated fully in every envronment, which means use-package will try to download, compile, etc. every package, which takes a lot of time on termux.
So this isn’t about separation of concerns or something like that. Modules aren’t independent; they’re loaded in the same order as they are specified in this file; further modules may depend on previously loaded modules.
+Also, the modules are basically as large or small as they need to be required on each system.
+Obviously, there are a lot of compromises in this approach, but it works for me. For a more careful approach to modules, take a look, e.g., at Protesilaos’ config.
+First, I need to get the current environment:
+(defun my/get-env ()
+ (or (getenv "EMACS_ENV")
+ (when (member (system-name) '("dev-digital" "viridian"))
+ "remote")
+ (when (string-match-p (rx (* nonl) "com.termux" (* nonl)) (getenv "HOME"))
+ "termux")
+ "normal"))
+
+(setq my/env (my/get-env))
+Also, I sometimes need to know if a program is running inside Emacs (say, inside a terminal emulator). And sometimes I need to know if I’m running a nested Emacs session. To do that, I set the following environment variable:
+(setq my/nested-emacs (and (getenv "IS_EMACS") t))
+(setenv "IS_EMACS" "true")
Custom system name logic because on termux it’s always “localhost”.
(defun my/system-name ()
(or (getenv "ANDROID_NAME")
(system-name)))
-Also, I sometimes need to know if a program is running inside Emacs (say, inside a terminal emulator). And sometimes I need to know if I’m running a nested Emacs session. To do that, I set the following environment variable:
-(setq my/nested-emacs (and (getenv "IS_EMACS") t))
-(setenv "IS_EMACS" "true")
-Finally, I want to have a minimal Emacs config for debugging purposes. This has just straight.el, use-packages, and evil.
-<<minimal>>
-To launch Emacs with this config, run
-emacs -q -l ~/.emacs.d/init-minimal.el
+And a few legacy variables, which is true on termux.
+(setq my/is-termux (equal (my/get-env) "termux"))
+(setq my/remote-server (equal (my/get-env) "remote"))
+Below is the configuration table that shows which module is activated in which environment.
+ +| Module name | +normal | +termux | +remote | +
|---|---|---|---|
| performance | ++ | ++ | ++ | +
| micromamba | ++ | ++ | + |
| misc-initial | ++ | ++ | ++ | +
| keybindings | ++ | ++ | ++ | +
| termux | ++ | + | ++ |
| i3 | ++ | ++ | + |
| general-config | ++ | ++ | ++ | +
| wakatime | ++ | ++ | ++ |
| activitywatch | ++ | ++ | + |
| general-ui | ++ | ++ | ++ | +
| doom-modeline | ++ | ++ | ++ | +
| perspective | ++ | ++ | ++ | +
| treemacs | ++ | ++ | ++ |
| lsp | ++ | ++ | + |
| flycheck | ++ | ++ | ++ | +
| tree-sitter | ++ | ++ | ++ | +
| dap | ++ | + | + |
| reformatter | ++ | ++ | + |
| copilot | ++ | + | + |
| web | ++ | ++ | + |
| latex | ++ | ++ | ++ |
| markup | ++ | ++ | ++ | +
| lisp | ++ | ++ | ++ | +
| misc-programming | ++ | ++ | + |
| general-org | ++ | ++ | ++ |
| org-literate | ++ | ++ | + |
| org-productivity | ++ | ++ | ++ |
| org-export | ++ | ++ | + |
| dired | ++ | ++ | ++ | +
| tramp | ++ | ++ | + |
| terms | ++ | ++ | ++ | +
| dotfiles | ++ | ++ | ++ | +
| elfeed | ++ | ++ | + |
| + | ++ | + | |
| gnus | ++ | ++ | + |
| emms | ++ | ++ | + |
| misc-internet | ++ | ++ | ++ | +
| erc | ++ | ++ | + |
| mastodon | ++ | ++ | + |
| wallabag | ++ | + | + |
| ement | ++ | ++ | + |
| telega | ++ | ++ | ++ |
| docs | ++ | ++ | ++ |
| ai | ++ | ++ | + |
| index | ++ | ++ | ++ |
| pass | ++ | ++ | ++ |
| docker | ++ | ++ | + |
| misc-apps | ++ | ++ | ++ |
| guix | ++ | ++ | + |
| emacs-pinentry | ++ | + | ++ |
| productivity-apps | ++ | ++ | ++ |
| chess | ++ | ++ | + |
| discord | ++ | + | + |
| gource | ++ | ++ | + |
I want this table to be updated automatically based on this file.
+So, first, specify how the modules are stored:
+(setq my/modules-dir (file-name-as-directory
+ (expand-file-name "modules" user-emacs-directory)))
+
+(setq my/modules-prefix "sqrt-")
+Then, scan Emacs.org for headings with the MODULE_NAME property and set the tangle property:
(defun my/modules--refresh-and-list ()
+ (let (modules-list
+ headlines)
+ (org-element-map (org-element-parse-buffer) 'headline
+ (lambda (elem) (push elem headlines)))
+ (mapc
+ (lambda (elem)
+ (when-let ((module-name (org-element-property :MODULE_NAME elem)))
+ (save-excursion
+ (goto-char (org-element-property :begin elem))
+ (org-set-property
+ "header-args:emacs-lisp"
+ (concat ":tangle " my/modules-dir my/modules-prefix module-name ".el"
+ " :comments links"))
+ (push module-name modules-list))))
+ headlines)
+ (seq-uniq modules-list)))
+Then, read and update the settings table:
+(defun my/modules--read-table ()
+ (save-excursion
+ (goto-char (point-min))
+ (re-search-forward (rx bol "#+NAME: modules-settings"))
+ (forward-line)
+ (let* ((table (org-element-at-point))
+ (table-contents
+ (mapcar
+ (lambda (elem)
+ (if (listp elem)
+ (mapcar #'substring-no-properties elem)
+ elem))
+ (org-table-to-lisp)))
+ (envs-list (cdar table-contents)))
+ (mapcar
+ (lambda (elem)
+ (cons (car elem)
+ (cl-loop for sign in (cdr elem)
+ for env in envs-list
+ collect (cons env (not (string-empty-p sign))))))
+ (cddr table-contents)))))
+
+(defun my/modules--refresh-table (modules-list)
+ (save-excursion
+ (goto-char (point-min))
+ (search-forward "#+NAME: modules-settings")
+ (let* ((table (org-element-at-point))
+ (table-contents
+ (my/modules--read-table))
+ (envs-list (mapcar #'car (cdar table-contents))))
+ (delete-region (org-element-property :contents-begin table)
+ (org-element-property :contents-end table))
+ (insert
+ "\n"
+ (string-trim
+ (with-temp-buffer
+ (insert "| Module name |"
+ (mapconcat #'identity envs-list " | ")
+ "\n")
+ (insert "|--|\n")
+ (dolist (module modules-list)
+ (insert "| " module " | "
+ (cl-loop
+ for env in envs-list
+ if (alist-get
+ env
+ (alist-get module table-contents nil nil #'equal)
+ nil nil #'equal)
+ concat " + |"
+ else
+ concat " |")
+ "\n"))
+ (goto-char (point-min))
+ (org-table-align)
+ (buffer-substring-no-properties (point-min) (point-max))))))))
+Then, update the loading code that requires the necessary modules based on the environment:
+(defun my/modules--refresh-loading ()
+ (let* ((modules-table (my/modules--read-table))
+ (envs-list (mapcar #'car (cdar modules-table))))
+ (save-excursion
+ (goto-char (point-min))
+ (re-search-forward (rx bol "#+NAME: modules-loading"))
+ (beginning-of-line 3)
+ (delete-region
+ (point)
+ (save-excursion
+ (re-search-forward (rx bol "#+end_src"))
+ (end-of-line 0)
+ (point)))
+ (insert
+ (pp-to-string
+ `(pcase my/env
+ ,@(mapcar
+ (lambda (env)
+ `(,env
+ ,@(seq-filter
+ #'identity
+ (mapcar
+ (lambda (elem)
+ (when (alist-get env (cdr elem) nil nil #'equal)
+ `(require ',(intern (concat my/modules-prefix (car elem))))))
+ modules-table))))
+ envs-list)))))))
+Also delete unnecessary modules:
+(defun my/modules--cleanup-folder (modules-list)
+ (let ((source-files (seq-filter
+ (lambda (f)
+ (equal (file-name-extension f) "el"))
+ (directory-files my/modules-dir)))
+ (target-files
+ (mapcar (lambda (m)
+ (concat my/modules-prefix m ".el"))
+ modules-list)))
+ (dolist (extra-file (seq-difference source-files target-files))
+ (delete-file (concat my/modules-dir extra-file)))))
+And a function that combines all of the above:
+(defun my/modules-settings-refresh ()
+ (interactive)
+ (org-fold-show-all)
+ (let ((modules-list (my/modules--refresh-and-list)))
+ (my/modules--refresh-table modules-list)
+ (my/modules--refresh-loading)
+ (my/modules--cleanup-folder modules-list)
+ (setq my/modules-list modules-list)))
+Now, add the modules directory to the load-path variable:
(push my/modules-dir load-path)
+And require the necessary modules with the autogenerated code:
+ +(pcase my/env
+ ("normal"
+ (require 'sqrt-performance)
+ (require 'sqrt-micromamba)
+ (require 'sqrt-misc-initial)
+ (require 'sqrt-keybindings)
+ (require 'sqrt-i3)
+ (require 'sqrt-general-config)
+ (require 'sqrt-wakatime)
+ (require 'sqrt-activitywatch)
+ (require 'sqrt-general-ui)
+ (require 'sqrt-doom-modeline)
+ (require 'sqrt-perspective)
+ (require 'sqrt-treemacs)
+ (require 'sqrt-lsp)
+ (require 'sqrt-flycheck)
+ (require 'sqrt-tree-sitter)
+ (require 'sqrt-reformatter)
+ (require 'sqrt-web)
+ (require 'sqrt-latex)
+ (require 'sqrt-markup)
+ (require 'sqrt-lisp)
+ (require 'sqrt-misc-programming)
+ (require 'sqrt-general-org)
+ (require 'sqrt-org-literate)
+ (require 'sqrt-org-productivity)
+ (require 'sqrt-org-export)
+ (require 'sqrt-dired)
+ (require 'sqrt-tramp)
+ (require 'sqrt-terms)
+ (require 'sqrt-dotfiles)
+ (require 'sqrt-elfeed)
+ (require 'sqrt-mail)
+ (require 'sqrt-gnus)
+ (require 'sqrt-emms)
+ (require 'sqrt-misc-internet)
+ (require 'sqrt-erc)
+ (require 'sqrt-mastodon)
+ (require 'sqrt-ement)
+ (require 'sqrt-telega)
+ (require 'sqrt-docs)
+ (require 'sqrt-ai)
+ (require 'sqrt-index)
+ (require 'sqrt-pass)
+ (require 'sqrt-docker)
+ (require 'sqrt-misc-apps)
+ (require 'sqrt-guix)
+ (require 'sqrt-productivity-apps)
+ (require 'sqrt-chess)
+ (require 'sqrt-gource))
+ ("termux"
+ (require 'sqrt-performance)
+ (require 'sqrt-misc-initial)
+ (require 'sqrt-keybindings)
+ (require 'sqrt-termux)
+ (require 'sqrt-general-config)
+ (require 'sqrt-wakatime)
+ (require 'sqrt-general-ui)
+ (require 'sqrt-doom-modeline)
+ (require 'sqrt-perspective)
+ (require 'sqrt-treemacs)
+ (require 'sqrt-flycheck)
+ (require 'sqrt-tree-sitter)
+ (require 'sqrt-latex)
+ (require 'sqrt-markup)
+ (require 'sqrt-lisp)
+ (require 'sqrt-general-org)
+ (require 'sqrt-org-productivity)
+ (require 'sqrt-dired)
+ (require 'sqrt-terms)
+ (require 'sqrt-dotfiles)
+ (require 'sqrt-misc-internet)
+ (require 'sqrt-telega)
+ (require 'sqrt-docs)
+ (require 'sqrt-index)
+ (require 'sqrt-pass)
+ (require 'sqrt-misc-apps)
+ (require 'sqrt-emacs-pinentry)
+ (require 'sqrt-productivity-apps))
+ ("remote"
+ (require 'sqrt-performance)
+ (require 'sqrt-misc-initial)
+ (require 'sqrt-keybindings)
+ (require 'sqrt-general-config)
+ (require 'sqrt-general-ui)
+ (require 'sqrt-doom-modeline)
+ (require 'sqrt-perspective)
+ (require 'sqrt-flycheck)
+ (require 'sqrt-tree-sitter)
+ (require 'sqrt-markup)
+ (require 'sqrt-lisp)
+ (require 'sqrt-dired)
+ (require 'sqrt-terms)
+ (require 'sqrt-dotfiles)
+ (require 'sqrt-misc-internet)))
+Finally, some post-processing of the tangled files:
+(defun my/modules--post-tangle ()
+ (when (string-match-p (rx bos (literal my/modules-dir)
+ (* nonl) ".el")
+ (buffer-file-name))
+ (goto-char (point-min))
+ (insert ";;; -*- lexical-binding: t -*-\n")
+ (goto-char (point-max))
+ (insert "\n(provide '" (file-name-base
+ (buffer-file-name)) ")")
+ (save-buffer)
+ (message "Processed %s as emacs config module" (buffer-file-name))))
+
+(add-hook 'org-babel-post-tangle-hook #'my/modules--post-tangle)
A small function to print out the loading time and number of GCs during the loading. Can be useful as a point of data for optimizing Emacs startup time.
@@ -340,7 +954,8 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp :straight t :if (executable-find "micromamba") :config - (micromamba-activate "general")) + (ignore-errors + (micromamba-activate "general")))By default, custom writes stuff to init.el, which is somewhat annoying. The following makes it write to a separate file custom.el
(defun my/quit-window-and-buffer ()
(interactive)
(quit-window t))
-This adds a confirmation to avoid accidental Emacs closing.
-(setq confirm-kill-emacs 'y-or-n-p)
I have a problem with emacs-lisp-mode as initial-major-mode because in my config it loads lispy, which loads org-mode.
So until I’ve made a better loading screen, this will do.
@@ -690,7 +1302,7 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp ;; change font size, interactively (global-set-key (kbd "C-+") 'my/zoom-in) (global-set-key (kbd "C-=") 'my/zoom-out) -For some reason my ONYX device has the tilde and escape wrong.
(when (and my/is-termux (not (equal (my/system-name) "snow")))
(define-key key-translation-map (kbd "`") (kbd "<escape>"))
@@ -954,6 +1566,11 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package smartparens
:straight t)
+
The function below make smartparens behave the way I like for C-like languages:
+(defun my/set-smartparens-indent (mode)
+ (sp-local-pair mode "{" nil :post-handlers '(("|| " "SPC") ("||\n[i]" "RET")))
+ (sp-local-pair mode "[" nil :post-handlers '(("|| " "SPC") ("||\n[i]" "RET")))
+ (sp-local-pair mode "(" nil :post-handlers '(("|| " "SPC") ("||\n[i]" "RET"))))
Visual fill column mode
(use-package visual-fill-column
:straight t
@@ -1033,11 +1650,24 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
I used to have Treemacs here, but in the end decided that dired with dired-sidebar does a better job. Dired has its separate section in “Applications”.
Projectile
Projectile gives a bunch of useful functions for managing projects, like finding files within a project, fuzzy-find, replace, etc.
+
+
+
+ Type
+ Note
+
+
+
+
+ TODO
+ Maybe set projectile-project-search-path based on the folder index?
+
+
+
(use-package projectile
:straight t
:config
(projectile-mode +1)
- (setq projectile-project-search-path '("~/Code" "~/Documents"))
(general-define-key
:keymaps 'projectile-command-map
"b" #'consult-project-buffer))
@@ -1127,66 +1757,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
And I suspect the built-in window width function doesn’t work as intended because of global-display-line-numbers-mode.
(setq difftastic-requested-window-width-function
(lambda () (- (frame-width) 4)))
-
Forge and code-review
-forge provides integration with forges, such as GitHub and GitLab.
-(use-package forge
- :after magit
- :straight t
- :config
- (add-to-list 'forge-alist '("gitlab.etu.ru"
- "gitlab.etu.ru/api/v4"
- "gitlab.etu.ru"
- forge-gitlab-repository)))
-
forge depends on a package called ghub. I don’t like that it uses auth-source to store the token so I’ll advise it to use password-store.
-(defun my/password-store-get-field (entry field)
- (if-let (field (password-store-get-field entry field))
- field
- (my/password-store-get-field entry field)))
-
-(defun my/ghub--token (host username package &optional nocreate forge)
- (cond ((and (or (equal host "gitlab.etu.ru/api/v4")
- (equal host "gitlab.etu.ru/api"))
- (equal username "pvkorytov"))
- (my/password-store-get-field
- "Job/Digital/Infrastructure/gitlab.etu.ru"
- (format "%s-token" package)))
- (t (error "Don't know token: %s %s %s" host username package))))
-
-(with-eval-after-load 'ghub
- (advice-add #'ghub--token :override #'my/ghub--token))
-
code-review is a package that implements code review in Emacs. The main branch is broken, but this PR works.
-(use-package code-review
- :straight (:host github :repo "phelrine/code-review" :branch "fix/closql-update")
- :after forge
- :config
- (setq code-review-auth-login-marker 'forge)
- (setq code-review-gitlab-base-url "gitlab.etu.ru")
- (setq code-review-gitlab-host "gitlab.etu.ru/api")
- (setq code-review-gitlab-graphql-host "gitlab.etu.ru/api")
- (general-define-key
- :states '(normal visual)
- :keymaps '(code-review-mode-map)
- "RET" #'code-review-comment-add-or-edit
- "gr" #'code-review-reload
- "r" #'code-review-transient-api
- "s" #'code-review-comment-code-suggestion
- "d" #'code-review-submit-single-diff-comment-at-point
- "TAB" #'magit-section-toggle)
- (general-define-key
- :states '(normal)
- :keymaps '(forge-topic-mode-map)
- "M-RET" #'code-review-forge-pr-at-point))
-
Fix issue 253:
-(defun my/code-review-comment-quit ()
- "Quit the comment window."
- (interactive)
- (magit-mode-quit-window t)
- (with-current-buffer (get-buffer code-review-buffer-name)
- (goto-char code-review-comment-cursor-pos)
- (code-review-comment-reset-global-vars)))
-
-(with-eval-after-load 'code-review
- (advice-add #'code-review-comment-quit :override #'my/code-review-comment-quit))
Editorconfig
Editorconfig support for Emacs.
References:
@@ -1557,7 +2127,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package wakatime-mode
:straight (:host github :repo "SqrtMinusOne/wakatime-mode")
- :if (not (or my/remote-server))
:config
(setq wakatime-ignore-exit-codes '(0 1 102 112))
(advice-add 'wakatime-init :after
@@ -1578,7 +2147,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package activity-watch-mode
:straight t
- :if (not (or my/is-termux my/remote-server))
:config
(global-activity-watch-mode))
UI settings
@@ -1595,6 +2163,8 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
Transparency. Not setting it here, as I used to use picom with i3, and EXWM config has its own settings.
;; (set-frame-parameter (selected-frame) 'alpha '(90 . 90))
;; (add-to-list 'default-frame-alist '(alpha . (90 . 90)))
+
This adds a confirmation to avoid accidental Emacs closing.
+(setq confirm-kill-emacs 'y-or-n-p)
Prettify symbols. Also not setting it, ligatures seem to be enough for me.
;; (global-prettify-symbols-mode)
Do not show GUI dialogs
@@ -1676,9 +2246,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
:config
(setq doom-themes-enable-bold t
doom-themes-enable-italic t)
- ;; (if my/remote-server
- ;; (load-theme 'doom-gruvbox t)
- ;; (load-theme 'doom-palenight t))
(doom-themes-visual-bell-config)
(setq doom-themes-treemacs-theme "doom-colors")
(doom-themes-treemacs-config))
@@ -2027,7 +2594,7 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
Highlight indent guides. I used highlight-indent-guides before but indent-bars seems to work better, and it doesn’t break with treesit-fold.
(use-package indent-bars
:straight (:host github :repo "jdtsmith/indent-bars")
- :if (not (or my/remote-server))
+ :if (display-graphic-p)
:hook ((prog-mode . indent-bars-mode)
(LaTeX-mode . indent-bars-mode))
:config
@@ -2277,7 +2844,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
Setup
(use-package lsp-mode
:straight t
- :if (not (or my/is-termux my/remote-server))
:hook (
(typescript-mode . lsp)
(js-mode . lsp)
@@ -2389,11 +2955,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
:config
(global-flycheck-mode)
(setq flycheck-check-syntax-automatically '(save idle-buffer-switch mode-enabled))
- ;; (add-hook 'evil-insert-state-exit-hook
- ;; (lambda ()
- ;; (if flycheck-checker
- ;; (flycheck-buffer))
- ;; ))
(advice-add 'flycheck-eslint-config-exists-p :override (lambda() t))
(add-to-list 'display-buffer-alist
`(,(rx bos "*Flycheck errors*" eos)
@@ -2402,18 +2963,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(side . bottom)
(reusable-frames . visible)
(window-height . 0.33))))
-
General additional config
-Have to put this before tree-sitter because I need my/set-smartparens-indent there.
-Make smartparens behave the way I like for C-like languages.
-(defun my/set-smartparens-indent (mode)
- (sp-local-pair mode "{" nil :post-handlers '(("|| " "SPC") ("||\n[i]" "RET")))
- (sp-local-pair mode "[" nil :post-handlers '(("|| " "SPC") ("||\n[i]" "RET")))
- (sp-local-pair mode "(" nil :post-handlers '(("|| " "SPC") ("||\n[i]" "RET"))))
-
Override flycheck checker with eslint.
-(defun my/set-flycheck-eslint()
- "Override flycheck checker with eslint."
- (setq-local lsp-diagnostic-package :none)
- (setq-local flycheck-checker 'javascript-eslint))
Tree-sitter
References:
@@ -2534,7 +3083,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package dap-mode
:straight t
- :if (not (or my/remote-server my/is-termux))
:commands (dap-debug)
:init
(setq lsp-enable-dap-auto-configure nil)
@@ -2805,7 +3353,21 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package reformatter
:straight t)
copilot
-GitHub Copilot is a project of GitHub and OpenAI that provides code completions. It’s somewhat controversial in the Emacs community but I opt in for now.
+GitHub Copilot is a project of GitHub and OpenAI that provides code completions.
+
+
+
+ Type
+ Note
+
+
+
+
+ TODO
+ Figure out how to bypass U.S. export controls
+
+
+
(defun my/copilot-tab ()
(interactive)
(or (copilot-accept-completion)
@@ -3677,7 +4239,7 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
:commands (python-pytest-dispatch)
:init
(my-leader-def
- :keymaps 'python-mode-map
+ :keymaps '(python-mode-map python-ts-mode-map)
:infix "t"
"t" 'python-pytest-dispatch)
:config
@@ -3896,7 +4458,7 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
:straight t
:after (lsp)
:config
- (setq lsp-java-jdt-download-url "https://download.eclipse.org/jdtls/milestones/0.57.0/jdt-language-server-0.57.0-202006172108.tar.gz"))
+ (setq lsp-java-jdt-download-url "https://www.eclipse.org/downloads/download.php?file=/jdtls/milestones/1.23.0/jdt-language-server-1.23.0-202304271346.tar.gz"))
(add-hook 'java-mode-hook #'smartparens-mode)
;; (add-hook 'java-mode-hook #'hs-minor-mode)
@@ -3981,7 +4543,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package org
:straight (:type built-in)
- :if (not my/remote-server)
:defer t
:init
(unless (file-exists-p org-directory)
@@ -4041,16 +4602,9 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
:repo "https://git.sr.ht/~bzg/org-contrib"
:build t)
:after (org)
- :if (not my/remote-server)
:config
(require 'ox-extra)
(ox-extras-activate '(latex-header-blocks ignore-headlines)))
-
ol-notmuch
-ol-notmuch is a package that adds Org links to notmuch messages.
-(unless (or my/remote-server my/is-termux)
- (use-package ol-notmuch
- :straight t
- :after (org notmuch)))
org-tempo
org-tempo is a convinient package that provides snippets for various org blocks.
(with-eval-after-load 'org
@@ -4279,8 +4833,7 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package jupyter
:straight t
- :after (org)
- :if (not (or my/remote-server my/is-termux)))
+ :after (org))
Refresh kernelspecs.
Kernelspecs by default are hashed, so even switching Anaconda environments doesn’t change the kernel (i.e. kernel from the first environment is run after the switch to the second one).
(defun my/jupyter-refresh-kernelspecs ()
@@ -4303,7 +4856,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
Hy
(use-package ob-hy
:after (org)
- :if (not my/remote-server)
:straight t)
View HTML in browser
Open HTML in the begin_export block with xdg-open.
@@ -4338,7 +4890,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package restclient
- :if (not my/remote-server)
:straight t
:mode ("\\.http\\'" . restclient-mode)
:config
@@ -4356,7 +4907,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package ob-restclient
:after (org restclient)
- :if (not my/remote-server)
:straight t)
Org Babel Setup
Enable languages
@@ -4614,7 +5164,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package org-present
:straight (:host github :repo "rlister/org-present")
- :if (not my/remote-server)
:commands (org-present)
:config
(general-define-key
@@ -4652,22 +5201,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(org-latex-preview '(64))
(olivetti-mode -1)
(setq-local olivetti-body-width (default-value 'olivetti-body-width))))))
-
TOC
-Make a TOC inside the org file.
-References:
-
-
-(use-package org-make-toc
- :after (org)
- :if (not my/remote-server)
- :commands
- (org-make-toc
- org-make-toc-insert
- org-make-toc-set
- org-make-toc-at-point)
- :straight t)
Screenshots
A nice package to make screenshots and insert them to the Org document.
(use-package org-attach-screenshot
@@ -4694,14 +5227,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
"C-c t a" #'org-transclusion-add
"C-c t A" #'org-transclusion-add-all
"C-c t t" #'org-transclusion-mode))
-
Drawing
-This package is unbelievably good. I would have never thought it’s even possible to have this in Emacs.
-(use-package edraw-org
- :straight (:host github :repo "misohena/el-easydraw")
- :if (and (not my/is-termux) (not my/remote-server))
- :after (org)
- :config
- (edraw-org-setup-default))
Managing tables
I use Org to manage some small tables which I want to process further. So here is a function that saves each table to a CSV file.
(defun my/export-org-tables-to-csv ()
@@ -4717,14 +5242,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(buffer-file-name))
name ".csv")
"orgtbl-to-csv")))))
-
Partial scrolling
-(use-package phscroll
- :straight (:host github :repo "misohena/phscroll")
- :commands (org-phscroll-mode)
- :config
- (with-eval-after-load 'org
- (require 'org-phscroll)
- (org-phscroll-deactivate)))
Productivity & Knowledge management
My ongoing effort to get a productivity setup manage something in my life in Org.
Initial inspirations ():
@@ -5004,7 +5521,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
org-ql is a package to query org files.
(use-package org-ql
:after (org)
- :if (not my/remote-server)
:straight t
:config
(setq org-ql-ask-unsafe-queries nil)
@@ -5654,7 +6170,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
And it was interesting to find the reinforcement effect of checked dates on the calendar.
(use-package org-journal
:straight t
- :if (not my/remote-server)
:init
(my-leader-def
:infix "oj"
@@ -5674,7 +6189,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
(use-package org-journal-tags
:straight (:host github :repo "SqrtMinusOne/org-journal-tags")
:after (org-journal)
- :if (not my/remote-server)
:config
(org-journal-tags-autosync-mode)
(general-define-key
@@ -5804,7 +6318,6 @@ Emacs is also particularly great at writing Lisp code, e.g. Clojure, Common Lisp
Also, at some point the package loaded Helm on start, so I exclude these files from the recipe.
(use-package org-ref
:straight (:files (:defaults "citeproc" (:exclude "*helm*")))
- :if (not my/remote-server)
:commands (org-ref-insert-link-hydra/body
org-ref-bibtex-hydra/body)
:init
@@ -5866,15 +6379,12 @@ Didn’t work out as I expected, so I’ve made org-journal-tags
(use-package emacsql-sqlite
:defer t
- :if (not my/remote-server)
:straight (:type built-in))
(use-package org-roam
:straight (:host github :repo "org-roam/org-roam"
:files (:defaults "extensions/*.el"))
- :if (and
- (not my/remote-server)
- (file-directory-p org-roam-directory))
+ :if (file-directory-p org-roam-directory)
:after org
:init
(setq org-roam-file-extensions '("org"))
@@ -6058,7 +6568,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tagsActually, I don’t find this quite as useful as structure nodes, because over time my graph grew somewhat convoluted. But it looks impressive.
(use-package org-roam-ui
:straight (:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
- :if (not my/remote-server)
:after org-roam
;; :hook (org-roam . org-roam-ui-mode)
:init
@@ -6067,7 +6576,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tagsDeft is an Emacs package to quickly find notes. I use it as a full-text search engine for org-roam.
(use-package deft
:straight t
- :if (not my/remote-server)
:commands (deft)
:after (org)
:init
@@ -6469,7 +6977,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tagsIt seems the package has been somewhat revived in the recent months. It used things like lexical-let when I first found it.
(use-package org-contacts
:straight (:type git :repo "https://repo.or.cz/org-contacts.git")
- :if (not my/remote-server)
:after (org)
:config
(setq org-contacts-files (list
@@ -6538,19 +7045,16 @@ Didn’t work out as I expected, so I’ve made org-journal-tags
(use-package ox-hugo
:straight t
- :if (not my/remote-server)
:after ox)
Jupyter Notebook
(use-package ox-ipynb
:straight (:host github :repo "jkitchin/ox-ipynb")
- :if (not my/remote-server)
:disabled t
:after ox)
Html export
(use-package htmlize
:straight t
:after ox
- :if (not my/remote-server)
:config
(setq org-html-htmlize-output-type 'css))
org-ref
@@ -7178,6 +7682,14 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (mastodon-toot-attach-media
file
(read-from-minibuffer (format "Description for %s: " file))))))
+
Attach files to gptel.
+(defun my/dired-attach-to-gptel (files)
+ (interactive
+ (list (dired-get-marked-files nil nil #'dired-nondirectory-p)))
+ (unless files
+ (user-error "No (non-directory) files selected"))
+ (dolist (file files)
+ (gptel-context-add-file file)))
And the keybindings:
(with-eval-after-load 'dired
(general-define-key
@@ -7186,7 +7698,8 @@ Didn’t work out as I expected, so I’ve made org-journal-tags "a" nil
"at" #'my/dired-attach-to-telega
"am" #'my/dired-attach-to-notmuch
- "ai" #'my/dired-attach-to-ement
+ "ae" #'my/dired-attach-to-ement
+ "ai" #'my/dired-attach-to-gptel
"an" #'my/dired-attach-to-mastodon))
(with-eval-after-load 'telega
(general-define-key
@@ -7212,7 +7725,7 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (append tramp-remote-path
'(tramp-own-remote-path))))
Set the default shell to bin/bash for TRAMP or on a remote server.
-(when (or my/remote-server)
+(when my/remote-server
(setq explicit-shell-file-name "/bin/bash"))
Package optimizations
Unfortunately, many Emacs packages don’t exactly moderate their rate of filesystem operations, and on TRAMP over network each operation adds additional overhead, so… it can get pretty slow. To debug these issues, set the following variable to 6:
@@ -7793,7 +8306,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tagsUsing my own fork until the modifications are merged into master.
(use-package elfeed
:straight (:repo "SqrtMinusOne/elfeed" :host github)
- :if (not (or my/is-termux my/remote-server))
:commands (elfeed)
:init
(my-leader-def "ae" #'elfeed-summary)
@@ -7905,7 +8417,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tagselfeed-sync is my package to sync elfeed with tt-rss.
(use-package elfeed-sync
:straight (:host github :repo "SqrtMinusOne/elfeed-sync")
- :if (not my/remote-server)
:after elfeed
:config
(elfeed-sync-mode)
@@ -8389,11 +8900,10 @@ Didn’t work out as I expected, so I’ve made org-journal-tagsInternet & Multimedia
Notmuch
My notmuch config now resides in Mail.org.
-(unless (or my/remote-server)
- (let ((mail-file (expand-file-name "mail.el" user-emacs-directory)))
- (if (file-exists-p mail-file)
- (load-file mail-file)
- (message "Can't load mail.el"))))
+(let ((mail-file (expand-file-name "mail.el" user-emacs-directory)))
+ (if (file-exists-p mail-file)
+ (load-file mail-file)
+ (message "Can't load mail.el")))
Gnus
Gnus is an Emacs newsreader.
I’ll try to use it for NTTP for now. Will see if I can do more with it.
@@ -8468,7 +8978,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags
(use-package emms
:straight t
- :if (not (or my/remote-server my/is-termux))
:commands (emms-smart-browse
emms-browser
emms-add-url
@@ -9119,9 +9628,9 @@ Didn’t work out as I expected, so I’ve made org-journal-tags :class transient-row
("r" "Reply" mastodon-toot-reply)
("v" "Vote" mastodon-tl-poll-vote)
- ("b" "Boost" my/mastodon-toot--toggle-boost-confirm)
- ("f" "Favourite" my/mastodon-toot--toggle-favourite-confirm)
- ("k" "Bookmark" my/mastodon-toot--toggle-bookmark-confirm)]
+ ("b" "Boost" my/mastodon-toot-toggle-boost-confirm)
+ ("f" "Favourite" my/mastodon-toot-toggle-favourite-confirm)
+ ("k" "Bookmark" my/mastodon-toot-toggle-bookmark-confirm)]
["My Toot Actions"
:class transient-row
("md" "Delete" mastodon-toot-delete-toot)
@@ -9349,7 +9858,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags ;; :straight (:type built-in)
;; For now emacs-telega-server is compatible with the latest telega.el
:straight t
- :if (not (or my/remote-server))
:commands (telega)
:init
(my-leader-def "a l" (my/command-in-persp "telega" "telega" 3 (telega)))
@@ -9479,7 +9987,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags
(use-package google-translate
:straight t
- :if (not my/remote-server)
:functions (my-google-translate-at-point google-translate--search-tkk)
:commands (google-translate-at-point
google-translate-at-point-reverse
@@ -9592,61 +10099,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags "O" #'devdocs-browser-remove-offline-data
"u" #'devdocs-browser-upgrade-all-docs
"r" #'devdocs-browser-update-docs))
-
StackExchange
-sx.el is a StackExchange client for Emacs.
-(use-package sx
- :straight t
- :commands (sx-search sx-tab-frontpage)
- :config
- (general-define-key
- :states '(normal)
- :keymaps '(sx-question-mode-map sx-question-list-mode-map)
- "go" #'sx-visit-externally
- "q" #'quit-window
- "s*" #'sx-tab-starred
- "sU" #'sx-tab-unanswered-my-tags
- "sa" #'sx-ask
- "sf" #'sx-tab-featured
- "sh" #'sx-tab-frontpage
- "si" #'sx-inbox
- "sm" #'sx-tab-meta-or-main
- "sn" #'sx-tab-newest
- "su" #'sx-tab-unanswered
- "sv" #'sx-tab-topvoted
- "sw" #'sx-tab-week
- "u" #'sx-upvote
- "d" #'sx-downvote
- "j" nil
- "k" nil)
- (general-define-key
- :states '(normal)
- :keymaps '(sx-question-mode-map)
- "gr" #'sx-question-mode-refresh
- "J" #'sx-question-mode-next-section
- "K" #'sx-question-mode-previous-section
- "a" #'sx-answer
- "e" #'sx-edit
- "D" #'sx-delete
- "c" #'sx-comment)
- (general-define-key
- :states '(normal)
- :keymaps '(sx-question-list-mode-map)
- "RET" 'sx-display
- "j" #'sx-question-list-next
- "k" #'sx-question-list-previous
- "S" #'sx-search
- "m" #'sx-question-list-mark-read
- "O" #'sx-question-list-order-by
- "t" #'sx-tab-switch)
- (my-leader-def
- "hs" #'sx-search
- "hS" #'sx-tab-frontpage)
- (my/use-colors
- (sx-question-mode-accepted :foreground (my/color-value 'green)
- :weight 'bold)
- (sx-question-mode-content :background nil))
- (add-hook 'sx-question-mode-hook #'doom-modeline-mode)
- (add-hook 'sx-question-list-mode-hook #'doom-modeline-mode))
Not-an-AI
Workflows, which are sometimes referred to as “AI”, go in here.
I’m technically writing a PhD on a related topic, so I’m a bit more receptive towards the whole thing than most of the community. But I’m still not calling it AI.
@@ -9672,10 +10124,10 @@ Didn’t work out as I expected, so I’ve made org-journal-tags :stream t
:models '("llama3.1:8b" "deepseek-r1:32b"
"qwen2.5:32b" "qwen2.5-coder:32b"
+ "qwen3:30b" "qwen3:32b"
"eva-qwen2.5-q4_k_l-32b:latest"
- "t-pro-1.0-q4_k_m:latest"
- "qwq:32b"
- (gemma3:32b
+ "gpt-oss"
+ (gemma3:27b
:capabilities (media)
:mime-types ("image/jpeg" "image/png")))))
(gptel-make-openai "OpenRouter"
@@ -9683,7 +10135,9 @@ Didn’t work out as I expected, so I’ve made org-journal-tags :key (lambda () (my/password-store-get-field
"My_Online/Accounts/openrouter" "api-key"))
:stream t
- :models '("anthropic/claude-3.5-haiku"))
+ :models '("anthropic/claude-sonnet-4"
+ "qwen/qwen3-coder"
+ "qwen/qwen3-coder:free"))
(setq gptel--known-backends
(seq-filter
(lambda (cell)
@@ -9699,6 +10153,10 @@ Didn’t work out as I expected, so I’ve made org-journal-tags :states '(insert normal)
"C-<return>" 'gptel-send
"M-o" #'gptel-menu))
+
Add files to context
+(defun my/gptel-add-current-file ()
+ (interactive)
+ (gptel-context-add-file (buffer-file-name)))
ellama
ellama provides commands that feed things from Emacs buffers into LLMs with various prompts.
(use-package ellama
@@ -10388,7 +10846,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (mapcar
(lambda (elem) (my/index--tree-narrow-recursive elem (my/system-name)))
(copy-tree tree))))
-
my/index--tree-narrow
Commands
Next, apply the tree to the filesystem.
I’ve decided to implement this by generating a bash script and executing it with bash +x. This way, I can check the required changes in advance and avert potential data loss if something unexpected happens.
@@ -10583,7 +11040,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (format "mega-sync -d \"%s\""
(substring path 0 (1- (length path))))
"Mega remove sync" 4)))))
-
my/index--mega-commands
Git repos
To sync git, we just need to clone the required git repos. Removing the repos is handled by the folder sync commands.
(defun my/index--git-commands (tree)
@@ -10690,7 +11146,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (substring symlink 0 -1))
"Make symlinks" 7)
append (my/index-get-symlink-commands (alist-get :children elem))))
-
my/index-get-symlink-commands
Run all commands
And put that all together.
First, as I want to check what’s going to be executed, let’s make a function to display commands in a separate buffer.
@@ -10977,36 +11432,18 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (if-let ((res (password-store-get entry)))
res
(my/password-store-get entry)))
+
+(defun my/password-store-get-field (entry field)
+ (if-let (field (password-store-get-field entry field))
+ field
+ (my/password-store-get-field entry field)))
Docker
A package to manage docker containers from Emacs.
(use-package docker
:straight t
- :if (not (or my/remote-server my/is-termux))
:commands (docker)
:init
(my-leader-def "ao" 'docker))
-
screenshot.el
-Tecosaur’s plugin to make beautiful code screenshots.
-
-
-
- Guix dependency
-
-
-
-
- imagemagick
-
-
-
-(use-package screenshot
- :straight (:repo "tecosaur/screenshot"
- :host github
- :build (:not compile))
- :if (display-graphic-p)
- :commands (screenshot)
- :init
- (my-leader-def "S" 'screenshot))
proced
proced is an Emacs built-it process viewer, like top.
(my-leader-def "ah" 'proced)
@@ -11019,7 +11456,7 @@ Didn’t work out as I expected, so I’ve made org-journal-tagsAn Emacs package to help managing GNU Guix.
(use-package guix
:straight t
- :if (not (or my/remote-server my/is-termux))
+ :if (executable-find "guix")
:commands (guix)
:init
(my-leader-def "ag" 'guix)
@@ -11027,12 +11464,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags "A dummy function.")
(defvar geiser-repl-company-p nil
"A dummy variable."))
-
Atomic Chrome
-Atomic Chrome is an extension that allows to edit browser text fields in Emacs. Despite its name, it also works for Firefox with GhostText, which is what I use.
-(use-package atomic-chrome
- :if (not (or my/remote-server my/is-termux))
- :commands (atomic-chrome-start-server)
- :straight t)
Pinentry
Emacs-based pinentry works great on Termux.
(use-package pinentry
@@ -11233,8 +11664,8 @@ Didn’t work out as I expected, so I’ve made org-journal-tags (string= (system-name) "violet")
(string= (system-name) "eminence")
(string= (system-name) "iris"))
- (not my/remote-server)
(not my/nested-emacs))
+ :disabled t
:config
(setq elcord-buffer-details-format-function #'my/elcord-buffer-details-format-functions)
(advice-add 'elcord--try-update-presence :filter-args #'my/elcord-update-presence-mask-advice)
@@ -11246,13 +11677,6 @@ Didn’t work out as I expected, so I’ve made org-journal-tags(use-package snow
:straight (:repo "alphapapa/snow.el" :host github)
:commands (snow))
-
Power mode
-When Emacs doesn’t feel powerful enough.
-Watch out if you are using EXWM.
-(use-package power-mode
- :straight (:host github :repo "elizagamedev/power-mode.el")
- :disabled
- :commands (power-mode))
Redacted
(use-package redacted
:commands (redacted-mode)
@@ -11574,7 +11998,7 @@ I’ve seen a couple of cases where people would swap their username and ema
- use-package
- - Variables & environment
+ - Modular configuration & environments
- Performance
- Measure startup speed
@@ -11598,7 +12022,6 @@ I’ve seen a couple of cases where people would swap their username and ema
- Close buffer and its windows
- - Prevent Emacs from closing
- Scratch buffer
@@ -11610,9 +12033,9 @@ I’ve seen a couple of cases where people would swap their username and ema
- which-key
- Evil
- My keybindings
- - Termux
+ - Termux settings
- i3 integration
- Editing text
@@ -11629,7 +12052,6 @@ I’ve seen a couple of cases where people would swap their username and ema
- Projectile
- Git & Magit
- - Forge and code-review
- Editorconfig
- Editing files
- Deadgrep
@@ -11712,7 +12134,6 @@ I’ve seen a couple of cases where people would swap their username and ema
- Treemacs
- LSP
- Flycheck
- - General additional config
- Tree-sitter
- DAP
- Reformatter
@@ -11832,7 +12253,6 @@ I’ve seen a couple of cases where people would swap their username and ema
- Encryption
- org-contrib
- - ol-notmuch
- org-tempo
- evil-org
- Support for relative URLs
@@ -11871,12 +12291,9 @@ I’ve seen a couple of cases where people would swap their username and ema
- Tools
- Productivity & Knowledge management
@@ -11977,7 +12394,6 @@ I’ve seen a couple of cases where people would swap their username and ema
- tldr
- man & info
- devdocs.io
- - StackExchange
- Not-an-AI
@@ -12000,10 +12416,8 @@ I’ve seen a couple of cases where people would swap their username and ema
@@ -12025,7 +12439,6 @@ I’ve seen a couple of cases where people would swap their username and ema
- Discord integration
- Snow
- - Power mode
- Redacted
- Zone
- Gource
diff --git a/configs/mail/index.html b/configs/mail/index.html
index c4d6f7e..7c0c63b 100644
--- a/configs/mail/index.html
+++ b/configs/mail/index.html
@@ -180,7 +180,7 @@
remoteuser = <<mail-username()>>
remotepass = <<mail-password()>>
remoteport = 993
-cert_fingerprint = 07bdfab4eaa79f5fc8ab93cd9ad0ba025ea0b4e5
+cert_fingerprint = 416b1f7f18d68a65f5e75bb1af5d65ea5e20739e
Notmuch
@@ -460,10 +460,12 @@ Remove TAG from emails which are outside the matching PATHport 465
tls on
tls_starttls off
-tls_fingerprint 87:1F:17:1C:12:A4:DE:82:6F:CF:E5:E6:9C:EE:F8:0B:D1:7D:B2:00:F9:7B:2C:96:21:65:FA:0A:F5:24:8E:0E
+tls_fingerprint 69:E9:61:A0:DE:8B:AD:F2:C0:90:2F:55:F9:D6:80:7F:0B:AB:7E:1B:FD:56:C0:EE:35:ED:E2:EB:DD:80:AD:C3
from pvkorytov@etu.ru
user pvkorytov
passwordeval "pass show Job/Digital/Email/pvkorytov@etu.ru | head -n 1"
+To get a fingerprint:
+msmtp --serverinfo --tls --tls-certcheck=off -a pvkorytov
Emacs
@@ -500,8 +502,6 @@ Remove TAG from emails which are outside the matching PATH (evil-collection-notmuch-toggle-tag "unread" "search" #'ignore))
And notmuch settings:
(use-package notmuch
- :if (not my/is-termux)
- ;; :ensure nil
:commands (notmuch notmuch-search)
:init
(my/use-colors
@@ -728,6 +728,11 @@ Remove TAG from emails which are outside the matching PATH (my/password-store-get "Job/Digital/Email/pvkorytov@etu.ru"))
(add-hook 'notmuch-mua-send-hook #'my/ensure-password)
+
Org intergration
+ol-notmuch is a package that adds Org links to notmuch messages.
+(use-package ol-notmuch
+ :straight t
+ :after (org notmuch))
mailcap
mailcap file is a file which defines how to read to different MIME types. Notmuch also uses it, so why not keep it here.
audio/*; mpc add %s
@@ -776,6 +781,7 @@ Remove TAG from emails which are outside the matching PATHWarn if no subject
- Capitalize formal pronous
- Ensure password is loaded
+ - Org intergration
- mailcap
diff --git a/index.html b/index.html
index e690e67..21bf135 100644
--- a/index.html
+++ b/index.html
@@ -1,6 +1,6 @@
-
+
diff --git a/index.xml b/index.xml
index d91e9d7..972d2f5 100644
--- a/index.xml
+++ b/index.xml
@@ -1761,7 +1761,7 @@ I’ve seen a couple of cases where people would swap their username and
</span></span><span style="display:flex;"><span> f<span style="color:#666">.</span>write(srt_res)
</span></span><span style="display:flex;"><span>
</span></span><span style="display:flex;"><span>
-</span></span><span style="display:flex;"><span><span style="color:#008000;font-weight:bold">if</span> __name__ <span style="color:#666">==</span> <span style="color:#ba2121">'__main__'</span>:
+</span></span><span style="display:flex;"><span><span style="color:#008000;font-weight:bold">if</span> <span style="color:#19177c">__name__</span> <span style="color:#666">==</span> <span style="color:#ba2121">'__main__'</span>:
</span></span><span style="display:flex;"><span> transcribe()
</span></span></code></pre></div><p>Here’s the corresponding <code>requirements.txt</code>:</p>
<div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-text" data-lang="text"><span style="display:flex;"><span>vosk
diff --git a/posts/2022-09-16-vosk/index.html b/posts/2022-09-16-vosk/index.html
index de0b32e..ad239de 100644
--- a/posts/2022-09-16-vosk/index.html
+++ b/posts/2022-09-16-vosk/index.html
@@ -158,7 +158,7 @@
f.write(srt_res)
-if __name__ == '__main__':
+if __name__ == '__main__':
transcribe()
Here’s the corresponding requirements.txt:
vosk
diff --git a/posts/index.xml b/posts/index.xml
index f4c4a2c..990cf18 100644
--- a/posts/index.xml
+++ b/posts/index.xml
@@ -1268,7 +1268,7 @@ I’ve seen a couple of cases where people would swap their username and
</span></span><span style="display:flex;"><span> f<span style="color:#666">.</span>write(srt_res)
</span></span><span style="display:flex;"><span>
</span></span><span style="display:flex;"><span>
-</span></span><span style="display:flex;"><span><span style="color:#008000;font-weight:bold">if</span> __name__ <span style="color:#666">==</span> <span style="color:#ba2121">'__main__'</span>:
+</span></span><span style="display:flex;"><span><span style="color:#008000;font-weight:bold">if</span> <span style="color:#19177c">__name__</span> <span style="color:#666">==</span> <span style="color:#ba2121">'__main__'</span>:
</span></span><span style="display:flex;"><span> transcribe()
</span></span></code></pre></div><p>Here’s the corresponding <code>requirements.txt</code>:</p>
<div class="highlight"><pre tabindex="0" style=";-moz-tab-size:4;-o-tab-size:4;tab-size:4;"><code class="language-text" data-lang="text"><span style="display:flex;"><span>vosk
diff --git a/sass/researcher.min.css b/sass/researcher.min.css
index b5e3123..5f7cd41 100644
--- a/sass/researcher.min.css
+++ b/sass/researcher.min.css
@@ -1 +1 @@
-@font-face{font-family:inconsolata lgc;font-style:normal;font-weight:400;src:local(""),url(fonts/inconsolatalgc-scaled-down.woff2)format("woff2")}#content a,.nav-link{color:#dc3545;text-decoration:none}#content a *,.nav-link *{color:#dc3545}#content a:hover,.nav-link:hover{color:#dc3545;text-decoration:underline}#footer a,.navbar-brand{color:#222;text-decoration:none}#footer a *,.navbar-brand *{color:#222}#footer a:hover,.navbar-brand:hover{color:#222;text-decoration:underline}#content table td,#content table th{border:1px solid #ccc;padding:6px 12px;text-align:left}*{color:#222;font-family:inconsolata,inconsolata lgc;line-height:1.2}.text-ru{font-family:inconsolata lgc,inconsolata}.root{display:flex;flex-direction:column}.table-of-contents{order:0}.table-of-contents ul{padding-left:1rem!important}.table-of-contents ul>li{margin-left:.3em!important}.table-of-contents a.active{font-weight:700}.table-of-contents a:hover{cursor:pointer}@media(max-width:578px){.table-of-contents{align-self:center}}.container{max-width:750px;order:1}#title-large-screen{display:none}#title-small-screen{margin-left:15px!important}@media(max-width:578px){#title-small-screen{align-self:center}}@media(max-width:1125px){.root{margin-right:auto;margin-left:auto;width:100%;max-width:750px}.table-of-contents{padding-left:15px;padding-right:15px}}@media(min-width:1275px){.root{margin-left:calc((100vw - 750px)/2)}#actual-content{margin:0}}@media(min-width:1125px){.root{flex-direction:row}.table-of-contents{width:350px;order:2;position:sticky;top:0;padding:1em;align-self:start;scrollbar-width:thin}.table-of-contents .table-of-contents-text{overflow-x:hidden;overflow-y:auto;max-height:calc(100vh - 155px)}.table-of-contents .hidden{display:none}#title-small-screen{display:none}#title-large-screen{display:block}}.navbar-brand{font-size:2rem}#content p{margin-bottom:.6rem}#content h1,#content h2,#content h3,#content h4,#content h5,#content h6{font-size:medium;font-weight:700;margin:1rem 0 .6rem}#content h1{font-size:1.8rem}#content h2{font-size:1.6rem}#content h3{font-size:1.4rem}#content h4{font-size:1.2rem}#content img{display:block;margin:1rem auto;max-width:100%}#content a>img{margin:1rem 4px 1rem 0!important}#content .avatar>img{border-radius:50%;float:right;margin:-8px 0 0 16px;height:90px;width:90px}#content .webbuttons{display:flex;flex-direction:row;gap:5px}#content .webbuttons>figure{margin:0}#content ol{counter-reset:list;list-style:none;padding-left:2rem}#content ol>li{display:table-row}#content ol>li:before{content:"[" counter(list,decimal)"] ";counter-increment:list;display:table-cell;text-align:right;padding-right:.5em}#content .container>ol,#content .footnotes>ol{padding-left:0}#content ul{list-style:inside;padding-left:2rem}#content ul>li{list-style-position:outside;margin-left:1em}#content .container>ul,#content .footnotes>ul{padding-left:0}#content table{margin:1rem auto;width:100%}#content table th{font-weight:700}#content table tr:nth-child(2n){background-color:#f8f8f8}#content .table-no-header th{font-weight:400}#content .table-no-header table{margin:0 0 .5rem}#content blockquote{border-left:4px solid;font-style:italic;margin:1rem 0;padding:8px}#content code{color:#222;background-color:#f8f8f8;border:1px solid #ccc;border-radius:10%;padding:0 4px;font-family:monospace!important}#content code span{font-family:monospace}#content pre code{all:unset;font-size:95%}#content .highlight{margin:1rem auto;border:1px solid #ccc}#content .highlight>pre{padding:8px;margin-bottom:0}#content .abstract{margin-top:12px;margin-bottom:12px;padding-left:72px;padding-right:72px}#content .abstract p:first-of-type::before{content:"Abstract: ";font-weight:700}#content span.underline{text-decoration:underline}
\ No newline at end of file
+@font-face{font-family:inconsolata lgc;font-style:normal;font-weight:400;src:local(""),url(fonts/inconsolatalgc-scaled-down.woff2)format("woff2")}#content a,.nav-link{color:#dc3545;text-decoration:none}#content a *,.nav-link *{color:#dc3545}#content a:hover,.nav-link:hover{color:#dc3545;text-decoration:underline}#footer a,.navbar-brand{color:#222;text-decoration:none}#footer a *,.navbar-brand *{color:#222}#footer a:hover,.navbar-brand:hover{color:#222;text-decoration:underline}#content table td,#content table th{border:1px solid #ccc;padding:6px 12px;text-align:left}*{color:#222;font-family:inconsolata,inconsolata lgc;line-height:1.2}.text-ru{font-family:inconsolata lgc,inconsolata}.root{display:flex;flex-direction:column}.table-of-contents{order:0}.table-of-contents ul{padding-left:1rem !important}.table-of-contents ul>li{margin-left:.3em !important}.table-of-contents a.active{font-weight:700}.table-of-contents a:hover{cursor:pointer}@media(max-width:578px){.table-of-contents{align-self:center}}.container{max-width:750px;order:1}#title-large-screen{display:none}#title-small-screen{margin-left:15px !important}@media(max-width:578px){#title-small-screen{align-self:center}}@media(max-width:1125px){.root{margin-right:auto;margin-left:auto;width:100%;max-width:750px}.table-of-contents{padding-left:15px;padding-right:15px}}@media(min-width:1275px){.root{margin-left:calc((100vw - 750px)/2)}#actual-content{margin:0}}@media(min-width:1125px){.root{flex-direction:row}.table-of-contents{width:350px;order:2;position:sticky;top:0;padding:1em;align-self:start;scrollbar-width:thin}.table-of-contents .table-of-contents-text{overflow-x:hidden;overflow-y:auto;max-height:calc(100vh - 155px)}.table-of-contents .hidden{display:none}#title-small-screen{display:none}#title-large-screen{display:block}}.navbar-brand{font-size:2rem}#content p{margin-bottom:.6rem}#content h1,#content h2,#content h3,#content h4,#content h5,#content h6{font-size:medium;font-weight:700;margin:1rem 0 .6rem}#content h1{font-size:1.8rem}#content h2{font-size:1.6rem}#content h3{font-size:1.4rem}#content h4{font-size:1.2rem}#content img{display:block;margin:1rem auto;max-width:100%}#content a>img{margin:1rem 4px 1rem 0 !important}#content .avatar>img{border-radius:50%;float:right;margin:-8px 0 0 16px;height:90px;width:90px}#content .webbuttons{display:flex;flex-direction:row;gap:5px}#content .webbuttons>figure{margin:0}#content ol{counter-reset:list;list-style:none;padding-left:2rem}#content ol>li{display:table-row}#content ol>li:before{content:"[" counter(list,decimal)"] ";counter-increment:list;display:table-cell;text-align:right;padding-right:.5em}#content .container>ol,#content .footnotes>ol{padding-left:0}#content ul{list-style:inside;padding-left:2rem}#content ul>li{list-style-position:outside;margin-left:1em}#content .container>ul,#content .footnotes>ul{padding-left:0}#content table{margin:1rem auto;width:100%}#content table th{font-weight:700}#content table tr:nth-child(2n){background-color:#f8f8f8}#content .table-no-header th{font-weight:400}#content .table-no-header table{margin:0 0 .5rem}#content blockquote{border-left:4px solid;font-style:italic;margin:1rem 0;padding:8px}#content code{color:#222;background-color:#f8f8f8;border:1px solid #ccc;border-radius:10%;padding:0 4px;font-family:monospace !important}#content code span{font-family:monospace}#content pre code{all:unset;font-size:95%}#content .highlight{margin:1rem auto;border:1px solid #ccc}#content .highlight>pre{padding:8px;margin-bottom:0}#content .abstract{margin-top:12px;margin-bottom:12px;padding-left:72px;padding-right:72px}#content .abstract p:first-of-type::before{content:"Abstract: ";font-weight:700}#content span.underline{text-decoration:underline}
\ No newline at end of file
diff --git a/stats/all.png b/stats/all.png
index 70bf7c3..a106326 100644
Binary files a/stats/all.png and b/stats/all.png differ
diff --git a/stats/emacs-vim.png b/stats/emacs-vim.png
index 42ea94f..1fda402 100644
Binary files a/stats/emacs-vim.png and b/stats/emacs-vim.png differ
diff --git a/stats/literate-config.png b/stats/literate-config.png
index 5413498..805da9d 100644
Binary files a/stats/literate-config.png and b/stats/literate-config.png differ