20241219

global/.config/doom/config.el

@@ -0,0 +1,502 @@
+;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
+
+;; Place your private configuration here! Remember, you do not need to run 'doom
+;; sync' after modifying this file!
+
+
+;; Some functionality uses this to identify you, e.g. GPG configuration, email
+;; clients, file templates and snippets. It is optional.
+;; (setq user-full-name "John Doe"
+;;       user-mail-address "john@doe.com")
+
+;; Doom exposes five (optional) variables for controlling fonts in Doom:
+;;
+;; - `doom-font' -- the primary font to use
+;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
+;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
+;;   presentations or streaming.
+;; - `doom-symbol-font' -- for symbols
+;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
+;;
+;; See 'C-h v doom-font' for documentation and more examples of what they
+;; accept. For example:
+;;
+;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
+;;      doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
+;;
+;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
+;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
+;; refresh your font settings. If Emacs still can't find your font, it likely
+;; wasn't installed correctly. Font issues are rarely Doom issues!
+
+;; There are two ways to load a theme. Both assume the theme is installed and
+;; available. You can either set `doom-theme' or manually load a theme with the
+;; `load-theme' function. This is the default:
+(setq doom-theme 'doom-one)
+
+;; This determines the style of line numbers in effect. If set to `nil', line
+;; numbers are disabled. For relative line numbers, set this to `relative'.
+(setq display-line-numbers-type t)
+
+;; If you use `org' and don't want your org files in the default location below,
+;; change `org-directory'. It must be set before org loads!
+(setq org-directory "~/org/")
+
+(after! ispell
+  (setq ispell-dictionary "en_US,ru_RU"))
+
+
+(defun transform-square-brackets-to-round-ones(string-to-transform)
+  "Transforms [ into ( and ] into ), other chars left unchanged."
+  (concat
+   (mapcar #'(lambda (c) (if (equal c ?\[) ?\( (if (equal c ?\]) ?\) c))) string-to-transform)))
+
+(defun get-current-layout ()
+  "Получить текущую раскладку клавиатуры для текущего окна с помощью xkb-switch."
+  (string-trim (shell-command-to-string "xkb-switch")))
+
+(defun set-layout (layout)
+  "Установить раскладку клавиатуры для текущего окна с помощью xkb-switch."
+  (shell-command (concat "xkb-switch -s " layout)))
+
+(defvar prev-lang "us"
+  "Хранит текущую раскладку перед переключением в insert mode.")
+
+(add-hook 'evil-insert-state-entry-hook
+          (lambda ()
+            (setq prev-lang (get-current-layout))
+            (set-layout "us"))) ;; Переключаем на английский в insert mode
+
+(add-hook 'evil-insert-state-exit-hook
+          (lambda ()
+            (set-layout prev-lang))) ;; Восстанавливаем предыдущую раскладку
+
+
+(defun my/select-or-create-org-file ()
+  "Предложить пользователю выбрать файл для записи или создать новый."
+  (let* ((default-dir "~/org/braindump/") ; Укажите ваш каталог для org-файлов
+         (files (my/get-relative-org-files default-dir)) ; Список файлов с относительными путями
+         (file (completing-read "Select a file or create a new one: "
+                                files nil nil)))
+    (unless (string-suffix-p ".org" file)
+      (setq file (concat file ".org")))
+    (let* ((full-path (expand-file-name file default-dir))
+           (dir (file-name-directory full-path))) ; Извлечь путь директории
+      ;; Создаём недостающие директории
+      (unless (file-directory-p dir)
+        (make-directory dir t))
+      ;; Создаём файл, если его нет, и добавляем заголовок
+      (unless (file-exists-p full-path)
+        (write-region (concat "#+TITLE: " (file-name-sans-extension file) "\n\n")
+                      nil
+                      full-path))
+      full-path))) ; Возвращает полный путь к выбранному или новому файлу
+
+(defun my/get-relative-org-files (dir)
+  "Рекурсивно получить список org-файлов с путями, относительно DIR."
+  (let ((all-files (directory-files-recursively dir "\\.org$")))
+    (mapcar (lambda (file)
+              (file-relative-name file dir))
+            all-files)))
+
+(defun my/get-location ()
+  "Вернуть точку сохранения записи в выбранный файл."
+  (let ((file (my/select-or-create-org-file)))
+    (set-buffer (find-file-noselect file)) ; Открывает файл в фоновом режиме
+    (goto-char (point-max))                ; Перемещается в конец файла
+    (list file)))                          ; Возвращает файл как место записи
+
+
+(defun my-org-roam-refile ()
+  "Переместить текущую заметку под заголовок 'Links' в выбранный файл."
+  (interactive)
+  (let* ((node (org-roam-node-read nil nil nil 'require-match))
+         (file (org-roam-node-file node))
+         (heading "Links")
+         target-point)
+    ;; Открываем целевой файл и ищем/создаём заголовок "Links"
+    (save-excursion
+      (find-file file)
+      (goto-char (point-min))
+      ;; Ищем заголовок "Links"
+      (if (re-search-forward (format org-complex-heading-regexp-format heading) nil t)
+          (setq target-point (point))
+        ;; Если заголовок не найден, создаём его
+        (goto-char (point-max))
+        (insert (concat "\n* " heading "\n"))
+        (setq target-point (point))))
+    ;; Теперь выполняем перемещение
+    (let ((org-reverse-note-order t)) ;; Перемещать в конец целевого заголовка
+      (org-refile nil nil (list heading file nil target-point)))))
+
+(setq org-startup-folded t)
+
+(setq auto-save-default nil)
+
+(setq org-attach-method 'cp)  ;; copy file to an attachments dir.
+(setq org-attach-id-dir "~/org/attachments/")
+
+(setq org-adapt-indentation t)
+(setq org-startup-indented t)
+(setq org-indent-mode t)
+(setq org-archive-location "%s_archive::")
+(add-hook 'org-mode-hook
+          (lambda ()
+            (visual-line-mode 1)))
+
+(setq org-agenda-files '("~/org/grocery.org" "~/org/todos.org" "~/org/inbox.org" "~/org/priorities.org"))
+(setq org-agenda-files
+      (append org-agenda-files
+              (directory-files-recursively "~/org/braindump/" "\\.org$")))
+
+(use-package org-roam
+  :ensure nil
+  :custom
+  (org-roam-directory "~/org/roam/")
+  (org-roam-capture-templates
+   '(("d" "default" plain
+      "%?\n\n\n* Related:\n\n* References:\n"
+      :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
+                         "#+title: ${title}\n#+filetags:\n"))))
+  (custom-set-faces
+   '((org-roam-link org-roam-link-current)
+     :foreground "#e24888" :underline t))
+  :config
+  (org-roam-db-autosync-mode)
+  (setq org-roam-completion-everywhere t)
+  (setq org-roam-database-connector 'sqlite-builtin)
+  (setq org-roam-db-node-include-function
+        (lambda ()
+          (not (member "ATTACH" (org-get-tags)))))
+  )
+
+(defun my/org-capture-close-frame-for-specific-templates ()
+  "Close the capture window only for specific templates."
+  (let ((close-keys '("w" "L"))) ;; Список ключей шаблонов
+    (when (member (org-capture-get :key) close-keys) ;; Проверка, входит ли ключ в список
+      (delete-frame))))
+
+(add-hook 'org-capture-after-finalize-hook 'my/org-capture-close-frame-for-specific-templates)
+
+(setq org-capture-templates
+      '(
+        ("p" "Private"
+         entry (file+headline "~/org/private.org.gpg" "Private")
+         "* %?"
+         :empty-lines 0)
+
+        ;; ("i" "Inbox"
+        ;;  entry (file+headline "~/org/inbox.org" "Inbox")
+        ;;  "* [%<%Y-%m-%d>] %U %? :inbox: \n %:annotation\n %:link"
+        ;;  :empty-lines 0)
+
+        ("d" "Braindump"
+         entry
+         (function my/get-location)
+         "* [%<%Y-%m-%d>] %? \n:PROPERTIES:\n:ID: %(org-id-new)\n:END:\n"
+         :empty-lines 1)
+
+        ("r" "Grocery list"
+         entry (file+headline "~/org/grocery.org" "Grocery list")
+         "* NEED2BUY [#C] %?\n:PROPERTIES:\n:Created: %T\n:END:\n "
+         :empty-lines 0)
+
+        ("g" "General To-Do"
+         entry (file+headline "~/org/todos.org" "General Tasks")
+         "* TODO [#C] %?\n:PROPERTIES:\n:Created: %T\n:END:\n "
+         :empty-lines 0)
+
+        ("m" "Meeting"
+         entry (file+datetree "~/org/meetings.org")
+         "* %? :meeting:%^g \n:PROPERTIES:\n:Created: %T\n:END:\n** Notes\n** Action Items\n*** TODO [#A] "
+         :tree-type week
+         :clock-in t
+         :clock-resume t
+         :empty-lines 0)
+
+        ("c" "Code To-Do"
+         entry (file+headline "~/org/todos.org" "Code Related Tasks")
+         "* TODO [#C] %?\n:PROPERTIES:\n:Created: %T\n:END:\n%i\nProposed Solution:\n"
+         :empty-lines 0)
+
+        ("w" "Selected web capture"
+         entry
+         (function my/get-location)
+         "* [%<%Y-%m-%d>] [[%:link][%(transform-square-brackets-to-round-ones \"%:description\")]]\n:PROPERTIES:\n:ID: %(org-id-new)\n:END:\n Source: %:link\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n%?"
+         :empty-lines 1)
+
+        ("L" "Unselected web capture"
+         entry
+         (function my/get-location)
+         "* [%<%Y-%m-%d>] [[%:link][%(transform-square-brackets-to-round-ones \"%:description\")]]\n%?\n:PROPERTIES:\n:ID: %(org-id-new)\n:END:\n"
+         :empty-lines 1)))
+
+(setq org-todo-keywords
+      '((sequence "TODO(t)" "NEED2BUY(n)" "PLANNING(p)" "IN-PROGRESS(i@/!)" "VERIFYING(v!)" "BLOCKED(b@)"  "|" "DONE(d!)" "CANCELED(c@/!)" )
+        ))
+
+(setq org-todo-keyword-faces
+      '(
+        ("TODO" . (:foreground "GoldenRod" :weight bold))
+        ("PLANNING" . (:foreground "DeepPink" :weight bold))
+        ("IN-PROGRESS" . (:foreground "Cyan" :weight bold))
+        ("VERIFYING" . (:foreground "DarkOrange" :weight bold))
+        ("BLOCKED" . (:foreground "Red" :weight bold))
+        ("DONE" . (:foreground "LimeGreen" :weight bold))
+        ("NEED2BUY" . (:foreground "Red" :weight bold))
+        ))
+
+
+;; Tags
+(setq org-tag-alist '
+      (
+       ;; context
+       (:startgroup)
+       ("@shop" . ?s)
+       ("@home" . ?h)
+       ("@outdoor" . ?o)
+       ("@any" . ?a)
+       ("@meeting" . ?m)
+       (:endgroup)
+
+       ;; basic tags
+       (:startgroup)
+       ("chores" . ?C)
+       ("meeting" . ?M)
+       ("finance" . ?F)
+       ("sport" . ?S)
+       ("code" . ?O)
+       ("social" . ?I)
+       ("productivity" . ?P)
+       ("study" . ?U)
+       ("privacy" . ?R)
+       ("family" . ?A)
+       ("travel" . ?T)
+       ("life" . ?L)
+       ("health" . ?H)
+       ("friends" . ?E)
+       ("hobby" . ?B)
+       ("research" . ?G)
+       ("article" . ?I)
+       ("job" . ?J)
+       (:endgroup)
+
+       ;; Special tags
+       ("CRITICAL" . ?X)
+
+       ;; other tags
+       ("backend")
+       ("broken_code")
+       ("frontend")
+       ("hike")
+       ("cycle")
+       ("pkm")
+       ("pentest")
+       ("immigration")
+       ("devops")
+       ("pet")
+       ("accomplishment")
+       ("music")
+       ("youtube")
+       ("trash")
+       ("devsecops")
+       ("book")
+       ("movie")
+       ("inbox")
+       ))
+
+
+;; Tag colors
+(setq org-tag-faces
+      '(
+        ("@home"  . (:foreground "medium Purple1" :weight bold))
+        ("@outdoor"   . (:foreground "royalblue1"    :weight bold))
+        ("@shop"  . (:foreground "forest green"  :weight bold))
+        ("QA"        . (:foreground "sienna"        :weight bold))
+        ("chores"   . (:foreground "yellow1"       :weight bold))
+        ("sport"   . (:foreground "green yellow"       :weight bold))
+        ("finance"   . (:foreground "tomato"       :weight bold))
+        ("privacy"   . (:foreground "dark olive green"       :weight bold))
+        ("study"   . (:foreground "aquamarine"       :weight bold))
+        ("productivity"   . (:foreground "violet"       :weight bold))
+        ("family"   . (:foreground "medium violet red"       :weight bold))
+        ("health"   . (:foreground "DarkOrange1"       :weight bold))
+        ("code"   . (:foreground "snow3"       :weight bold))
+        ("travel"   . (:foreground "salmon4"       :weight bold))
+        ("life"   . (:foreground "goldenrod1"       :weight bold))
+        ("friends"   . (:foreground "plum4"       :weight bold))
+        ("hobby"   . (:foreground "SeaGreen1"       :weight bold))
+        ("social"   . (:foreground "RoyalBlue1"       :weight bold))
+        ("research"   . (:foreground "deep sky blue"       :weight bold))
+        ("meeting"   . (:foreground "magenta"       :weight bold))
+        ("CRITICAL"  . (:foreground "red1"          :weight bold))
+        ("job"   . (:foreground "medium spring green"       :weight bold))
+        )
+      )
+
+
+;; Agenda View "d"
+(defun air-org-skip-subtree-if-priority (priority)
+  "Skip an agenda subtree if it has a priority of PRIORITY.
+
+PRIORITY may be one of the characters ?A, ?B, or ?C."
+  (let ((subtree-end (save-excursion (org-end-of-subtree t)))
+        (pri-value (* 1000 (- org-lowest-priority priority)))
+        (pri-current (org-get-priority (thing-at-point 'line t))))
+    (if (= pri-value pri-current)
+        subtree-end
+      nil)))
+
+(setq org-agenda-skip-deadline-if-done t)
+(setq org-agenda-skip-timestamp-if-done t)
+
+(setq org-agenda-custom-commands
+      '(
+
+
+        ;; Daily Agenda & TODOs
+        ("d" "Daily agenda and all TODOs"
+
+         ;; Display items with priority A
+         ((tags "PRIORITY=\"A\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "High-priority unfinished tasks:")))
+
+          ;; View 7 days in the calendar view
+          (agenda "" ((org-agenda-span 7)))
+
+          ;; Display items with priority B (really it is view all items minus A & C)
+          (alltodo ""
+                   ((org-agenda-skip-function '(or (air-org-skip-subtree-if-priority ?A)
+                                                   (air-org-skip-subtree-if-priority ?C)
+                                                   (org-agenda-skip-if nil '(scheduled deadline))))
+                    (org-agenda-overriding-header "ALL normal priority tasks:")))
+
+          ;; Display items with pirority C
+          (tags "PRIORITY=\"C\""
+                ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
+                 (org-agenda-overriding-header "Low-priority Unfinished tasks:")))
+          )
+
+         ;; Don't compress things (change to suite your tastes)
+         ((org-agenda-compact-blocks nil)))
+
+        ;; My Super View
+        ("j" "My Super View"
+         (
+          (agenda ""
+                  (
+                   (org-agenda-remove-tags t)
+                   (org-agenda-span 7)
+                   (org-agenda-skip-function
+                    '(org-agenda-skip-entry-if 'todo 'done)
+                    '(org-agenda-skip-entry-if 'regexp ":inbox:"))
+                   )
+                  )
+
+          (alltodo ""
+                   (
+                    ;; Remove tags to make the view cleaner
+                    (org-agenda-remove-tags t)
+                    (org-agenda-prefix-format "  %t  %s")
+                    (org-agenda-overriding-header "CURRENT STATUS")
+
+                    (org-agenda-skip-function
+                     '(org-agenda-skip-entry-if 'regexp ":inbox:"))
+
+
+                    ;; Define the super agenda groups (sorts by order)
+                    (org-super-agenda-groups
+                     '(
+                       ;; Filter where tag is CRITICAL
+                       (:name "Critical Tasks"
+                        :tag "CRITICAL"
+                        :order 0
+                        )
+                       ;; Filter where TODO state is IN-PROGRESS
+                       (:name "Currently Working"
+                        :todo "IN-PROGRESS"
+                        :order 1
+                        )
+                       ;; Filter where TODO state is BLOCKED or where the tag is obstacle
+                       (:name "Problems & Blockers"
+                        :todo "BLOCKED"
+                        :order 3
+                        )
+                       ;; Filter where tag is research
+                       (:name "Research Required"
+                        :tag "research"
+                        :order 4
+                        )
+                       ;; Filter where tag is chores
+                       (:name "Chores"
+                        :tag "chores"
+                        :order 5
+                        )
+                       ;; Filter where tag is meeting and priority is A (only want TODOs from meetings)
+                       (:name "Meeting Action Items"
+                        :and (:tag "meeting" :priority "A")
+                        :order 6
+                        )
+                       ;; Filter where state is TODO and the priority is A and the tag is not meeting
+                       (:name "Other Important Items"
+                        :and (:todo "TODO" :priority "A" :not (:tag "meeting"))
+                        :order 7
+                        )
+                       ;; Filter where state is TODO and priority is B
+                       (:name "General Backlog"
+                        :and (:todo "TODO" :priority "B")
+                        :order 8
+                        )
+                       ;; Filter where the priority is C or less (supports future lower priorities)
+                       (:name "Non Critical"
+                        :priority<= "C"
+                        :order 9
+                        )
+                       ;; Filter where TODO state is VERIFYING
+                       (:name "Currently Being Verified"
+                        :todo "VERIFYING"
+                        :order 10
+                        )
+                       ;; Filter where TODO state is PLANNING
+                       (:name "Planning Next Steps"
+                        :todo "PLANNING"
+                        :order 11
+                        )
+                       )
+                     )
+                    )
+                   )
+          ))
+        ))
+;; Whenever you reconfigure a package, make sure to wrap your config in an
+;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
+;;
+;;   (after! PACKAGE
+;;     (setq x y))
+;;
+;; The exceptions to this rule:
+;;
+;;   - Setting file/directory variables (like `org-directory')
+;;   - Setting variables which explicitly tell you to set them before their
+;;     package is loaded (see 'C-h v VARIABLE' to look up their documentation).
+;;   - Setting doom variables (which start with 'doom-' or '+').
+;;
+;; Here are some additional functions/macros that will help you configure Doom.
+;;
+;; - `load!' for loading external *.el files relative to this one
+;; - `use-package!' for configuring packages
+;; - `after!' for running code after a package has loaded
+;; - `add-load-path!' for adding directories to the `load-path', relative to
+;;   this file. Emacs searches the `load-path' when you load packages with
+;;   `require' or `use-package'.
+;; - `map!' for binding new keys
+;;
+;; To get information about any of these functions/macros, move the cursor over
+
+;; This will open documentation for it, including demos of how they are used.
+;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
+;; etc).
+;;
+;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
+;; they are implemented.

global/.config/doom/init.el

@@ -0,0 +1,193 @@
+;;; init.el -*- lexical-binding: t; -*-
+
+;; This file controls what Doom modules are enabled and what order they load
+;; in. Remember to run 'doom sync' after modifying it!
+
+;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
+;;      documentation. There you'll find a link to Doom's Module Index where all
+;;      of our modules are listed, including what flags they support.
+
+;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
+;;      'C-c c k' for non-vim users) to view its documentation. This works on
+;;      flags as well (those symbols that start with a plus).
+;;
+;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
+;;      directory (for easy access to its source code).
+
+(doom! :input
+       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
+       ;;chinese
+       ;;japanese
+       ;;layout            ; auie,ctsrnm is the superior home row
+
+       :completion
+       ;;company           ; the ultimate code completion backend
+       (corfu +orderless)  ; complete with cap(f), cape and a flying feather!
+       ;;helm              ; the *other* search engine for love and life
+       ;;ido               ; the other *other* search engine...
+       ;;ivy               ; a search engine for love and life
+       vertico           ; the search engine of the future
+
+       :ui
+       ;;deft              ; notational velocity for Emacs
+       doom              ; what makes DOOM look the way it does
+       doom-dashboard    ; a nifty splash screen for Emacs
+       ;;doom-quit         ; DOOM quit-message prompts when you quit Emacs
+       ;;(emoji +unicode)  ; 🙂
+       hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
+       ;;indent-guides     ; highlighted indent columns
+       ;;ligatures         ; ligatures and symbols to make your code pretty again
+       ;;minimap           ; show a map of the code on the side
+       modeline          ; snazzy, Atom-inspired modeline, plus API
+       ;;nav-flash         ; blink cursor line after big motions
+       ;;neotree           ; a project drawer, like NERDTree for vim
+       ophints           ; highlight the region an operation acts on
+       (popup +defaults)   ; tame sudden yet inevitable temporary windows
+       ;;tabs              ; a tab bar for Emacs
+       ;;treemacs          ; a project drawer, like neotree but cooler
+       ;;unicode           ; extended unicode support for various languages
+       (vc-gutter +pretty) ; vcs diff in the fringe
+       vi-tilde-fringe   ; fringe tildes to mark beyond EOB
+       ;;window-select     ; visually switch windows
+       workspaces        ; tab emulation, persistence & separate workspaces
+       ;;zen               ; distraction-free coding or writing
+
+       :editor
+       (evil +everywhere); come to the dark side, we have cookies
+       file-templates    ; auto-snippets for empty files
+       fold              ; (nigh) universal code folding
+       (format +onsave)  ; automated prettiness
+       ;;god               ; run Emacs commands without modifier keys
+       ;;lispy             ; vim for lisp, for people who don't like vim
+       ;;multiple-cursors  ; editing in many places at once
+       ;;objed             ; text object editing for the innocent
+       ;;parinfer          ; turn lisp into python, sort of
+       ;;rotate-text       ; cycle region at point between text candidates
+       snippets          ; my elves. They type so I don't have to
+       ;;word-wrap         ; soft wrapping with language-aware indent
+
+       :emacs
+       dired             ; making dired pretty [functional]
+       electric          ; smarter, keyword-based electric-indent
+       ;;eww               ; the internet is gross
+       ;;ibuffer           ; interactive buffer management
+       undo              ; persistent, smarter undo for your inevitable mistakes
+       vc                ; version-control and Emacs, sitting in a tree
+
+       :term
+       ;;eshell            ; the elisp shell that works everywhere
+       ;;shell             ; simple shell REPL for Emacs
+       ;;term              ; basic terminal emulator for Emacs
+       ;;vterm             ; the best terminal emulation in Emacs
+
+       :checkers
+       syntax              ; tasing you for every semicolon you forget
+       (spell +hunspell)   ; tasing you for misspelling mispelling
+       ;;grammar           ; tasing grammar mistake every you make
+
+       :tools
+       ;;ansible
+       ;;biblio            ; Writes a PhD for you (citation needed)
+       ;;collab            ; buffers with friends
+       ;;debugger          ; FIXME stepping through code, to help you add bugs
+       ;;direnv
+       ;;docker
+       ;;editorconfig      ; let someone else argue about tabs vs spaces
+       ;;ein               ; tame Jupyter notebooks with emacs
+       (eval +overlay)     ; run code, run (also, repls)
+       lookup              ; navigate your code and its documentation
+       ;;lsp               ; M-x vscode
+       magit             ; a git porcelain for Emacs
+       ;;make              ; run make tasks from Emacs
+       ;;pass              ; password manager for nerds
+       ;;pdf               ; pdf enhancements
+       ;;prodigy           ; FIXME managing external services & code builders
+       ;;terraform         ; infrastructure as code
+       ;;tmux              ; an API for interacting with tmux
+       ;;tree-sitter       ; syntax and parsing, sitting in a tree...
+       ;;upload            ; map local to remote projects via ssh/ftp
+
+       :os
+       (:if (featurep :system 'macos) macos)  ; improve compatibility with macOS
+       ;;tty               ; improve the terminal Emacs experience
+
+       :lang
+       ;;agda              ; types of types of types of types...
+       ;;beancount         ; mind the GAAP
+       ;;(cc +lsp)         ; C > C++ == 1
+       ;;clojure           ; java with a lisp
+       ;;common-lisp       ; if you've seen one lisp, you've seen them all
+       ;;coq               ; proofs-as-programs
+       ;;crystal           ; ruby at the speed of c
+       ;;csharp            ; unity, .NET, and mono shenanigans
+       ;;data              ; config/data formats
+       ;;(dart +flutter)   ; paint ui and not much else
+       ;;dhall
+       ;;elixir            ; erlang done right
+       ;;elm               ; care for a cup of TEA?
+       emacs-lisp        ; drown in parentheses
+       ;;erlang            ; an elegant language for a more civilized age
+       ;;ess               ; emacs speaks statistics
+       ;;factor
+       ;;faust             ; dsp, but you get to keep your soul
+       ;;fortran           ; in FORTRAN, GOD is REAL (unless declared INTEGER)
+       ;;fsharp            ; ML stands for Microsoft's Language
+       ;;fstar             ; (dependent) types and (monadic) effects and Z3
+       ;;gdscript          ; the language you waited for
+       ;;(go +lsp)         ; the hipster dialect
+       ;;(graphql +lsp)    ; Give queries a REST
+       ;;(haskell +lsp)    ; a language that's lazier than I am
+       ;;hy                ; readability of scheme w/ speed of python
+       ;;idris             ; a language you can depend on
+       ;;json              ; At least it ain't XML
+       ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
+       ;;javascript        ; all(hope(abandon(ye(who(enter(here))))))
+       ;;julia             ; a better, faster MATLAB
+       ;;kotlin            ; a better, slicker Java(Script)
+       ;;latex             ; writing papers in Emacs has never been so fun
+       ;;lean              ; for folks with too much to prove
+       ;;ledger            ; be audit you can be
+       ;;lua               ; one-based indices? one-based indices
+       markdown          ; writing docs for people to ignore
+       ;;nim               ; python + lisp at the speed of c
+       ;;nix               ; I hereby declare "nix geht mehr!"
+       ;;ocaml             ; an objective camel
+       (org +roam2)        ; organize your plain life in plain text
+       ;;php               ; perl's insecure younger brother
+       ;;plantuml          ; diagrams for confusing people more
+       ;;graphviz          ; diagrams for confusing yourself even more
+       ;;purescript        ; javascript, but functional
+       ;;python            ; beautiful is better than ugly
+       ;;qt                ; the 'cutest' gui framework ever
+       ;;racket            ; a DSL for DSLs
+       ;;raku              ; the artist formerly known as perl6
+       ;;rest              ; Emacs as a REST client
+       ;;rst               ; ReST in peace
+       ;;(ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
+       ;;(rust +lsp)       ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
+       ;;scala             ; java, but good
+       ;;(scheme +guile)   ; a fully conniving family of lisps
+       sh                ; she sells {ba,z,fi}sh shells on the C xor
+       ;;sml
+       ;;solidity          ; do you need a blockchain? No.
+       ;;swift             ; who asked for emoji variables?
+       ;;terra             ; Earth and Moon in alignment for performance.
+       ;;web               ; the tubes
+       ;;yaml              ; JSON, but readable
+       ;;zig               ; C, but simpler
+
+       :email
+       ;;(mu4e +org +gmail)
+       ;;notmuch
+       ;;(wanderlust +gmail)
+
+       :app
+       ;;calendar
+       ;;emms
+       ;;everywhere        ; *leave* Emacs!? You must be joking
+       ;;irc               ; how neckbeards socialize
+       ;;(rss +org)        ; emacs as an RSS reader
+
+       :config
+       ;;literate
+       (default +bindings +smartparens))

global/.config/doom/packages.el

@@ -0,0 +1,49 @@
+;; -*- no-byte-compile: t; -*-
+;;; $DOOMDIR/packages.el
+
+;; To install a package with Doom you must declare them here and run 'doom sync'
+;; on the command line, then restart Emacs for the changes to take effect -- or
+
+
+;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
+;; (package! some-package)
+
+;; To install a package directly from a remote git repo, you must specify a
+;; `:recipe'. You'll find documentation on what `:recipe' accepts here:
+;; https://github.com/radian-software/straight.el#the-recipe-format
+;; (package! another-package
+;;   :recipe (:host github :repo "username/repo"))
+
+;; If the package you are trying to install does not contain a PACKAGENAME.el
+;; file, or is located in a subdirectory of the repo, you'll need to specify
+;; `:files' in the `:recipe':
+;; (package! this-package
+;;   :recipe (:host github :repo "username/repo"
+;;            :files ("some-file.el" "src/lisp/*.el")))
+
+;; If you'd like to disable a package included with Doom, you can do so here
+;; with the `:disable' property:
+;; (package! builtin-package :disable t)
+
+;; You can override the recipe of a built in package without having to specify
+;; all the properties for `:recipe'. These will inherit the rest of its recipe
+;; from Doom or MELPA/ELPA/Emacsmirror:
+;; (package! builtin-package :recipe (:nonrecursive t))
+;; (package! builtin-package-2 :recipe (:repo "myfork/package"))
+
+;; Specify a `:branch' to install a package from a particular branch or tag.
+;; This is required for some packages whose default branch isn't 'master' (which
+;; our package manager can't deal with; see radian-software/straight.el#279)
+;; (package! builtin-package :recipe (:branch "develop"))
+
+;; Use `:pin' to specify a particular commit to install.
+;; (package! builtin-package :pin "1a2b3c4d5e")
+
+
+;; Doom's packages are pinned to a specific commit and updated from release to
+;; release. The `unpin!' macro allows you to unpin single packages...
+;; (unpin! pinned-package)
+;; ...or multiple packages
+;; (unpin! pinned-package another-pinned-package)
+;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
+;; (unpin! t)

global/.spacemacs

@@ -697,6 +697,10 @@ before packages are loaded."
         (let ((org-reverse-note-order t)) ;; Перемещать в конец целевого заголовка
           (org-refile nil nil (list heading file nil target-point)))))
 
+    (setq org-startup-folded t)
+
+    (setq auto-save-default nil)
+
     (setq org-attach-method 'cp)  ;; copy file to an attachments dir.
     (setq org-attach-id-dir "~/org/attachments/")
 
@@ -708,7 +712,7 @@ before packages are loaded."
               (lambda ()
                 (visual-line-mode 1)))
 
-    (setq org-agenda-files '("~/org/grocery.org" "~/org/todos.org" "~/org/inbox.org"))
+    (setq org-agenda-files '("~/org/grocery.org" "~/org/todos.org" "~/org/inbox.org" "~/org/priorities.org"))
     (setq org-agenda-files
           (append org-agenda-files
                   (directory-files-recursively "~/org/braindump/" "\\.org$")))
@@ -717,17 +721,16 @@ before packages are loaded."
       :ensure nil
       :custom
       (org-roam-directory "~/org/roam/")
-      (org-roam-db-autosync-mode)
+      (org-roam-capture-templates
+       '(("d" "default" plain
+          "%?\n\n\n* Related:\n\n* References:\n"
+          :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
+                             "#+title: ${title}\n#+filetags:\n"))))
       (custom-set-faces
        '((org-roam-link org-roam-link-current)
          :foreground "#e24888" :underline t))
-
-      (org-roam-capture-templates
-       '(("d" "default" plain
-          "%?\n\n\n* Thoughts\n\n* References:\n"
-          :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
-                             "#+title: ${title}\n#+filetags:\n"))))
       :config
+      (org-roam-db-autosync-mode)
       (setq org-roam-completion-everywhere t)
       (setq org-roam-database-connector 'sqlite-builtin)
       (setq org-roam-db-node-include-function
@@ -802,7 +805,7 @@ before packages are loaded."
             ("w" "Selected web capture"
              entry
              (function my/get-location)
-             "* [%<%Y-%m-%d>] %^{Title}\n:PROPERTIES:\n:ID: %(org-id-new)\n:END:\n Source: %:link\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n%?"
+             "* [%<%Y-%m-%d>] [[%:link][%(transform-square-brackets-to-round-ones \"%:description\")]]\n:PROPERTIES:\n:ID: %(org-id-new)\n:END:\n Source: %:link\n #+BEGIN_QUOTE\n%i\n#+END_QUOTE\n%?"
              :empty-lines 1)
 
             ("L" "Unselected web capture"

linux/.config/i3/autostart.sh

@@ -55,6 +55,9 @@ solaar --restart-on-wake-up --window=hide &
 # bauh
 bauh-tray &
 
+# bluetooth
+blueman-applet &
+
 # keyboard layout switcher
 # now is using X11 variant in /etc/X11/xorg.conf.d/00-keyboard.conf
 # setxkbmap -layout us,ru -option 'grp:alt_space_toggle' &
@@ -71,5 +74,4 @@ clight &
 # archive commands
 # xinput --set-prop "pointer:Logitech MX Ergo Multi-Device Trackball " 'libinput Accel Speed' -0.2
 # xbacklight -set 90 & # only for intel
-# blueman-applet &
 # xfce4-power-manager &