gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Replace tabs with spaces

Browse Source
This commit is contained in:
Gergely Polonkai 2023-10-15 07:00:07 +02:00
parent d6e8e7000f
commit 8f00b92bcf
No known key found for this signature in database
GPG Key ID: 2D2885533B869ED4
1 changed files with 84 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

168
configuration.org
View File

@ -91,11 +91,11 @@
:init :init
(defun crm-indicator (args) (defun crm-indicator (args)
(cons (format "[CRM%s] %s" (cons (format "[CRM%s] %s"
(replace-regexp-in-string (replace-regexp-in-string
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
crm-separator) crm-separator)
(car args)) (car args))
(cdr args))) (cdr args)))
(advice-add #'completing-read-multiple :filter-args #'crm-indicator) (advice-add #'completing-read-multiple :filter-args #'crm-indicator)
:custom :custom
(user-full-name "Gergely Polonkai") (user-full-name "Gergely Polonkai")
@ -194,7 +194,7 @@
(">" (rx (+ (or ">" "<" "|" "/" ":" "=" "-")))) (">" (rx (+ (or ">" "<" "|" "/" ":" "=" "-"))))
;; #: #= #! #( #? #[ #{ #_ #_( ## ### ##### ;; #: #= #! #( #? #[ #{ #_ #_( ## ### #####
("#" (rx (or ":" "=" "!" "(" "\?" "\[" "{" "_(" "_" ("#" (rx (or ":" "=" "!" "(" "\?" "\[" "{" "_(" "_"
(+ "#")))) (+ "#"))))
;; ~~ ~~~ ~= ~- ~@ ~> ~~> ;; ~~ ~~~ ~= ~- ~@ ~> ~~>
("~" (rx (or ">" "=" "-" "@" "~>" (+ "~")))) ("~" (rx (or ">" "=" "-" "@" "~>" (+ "~"))))
;; __ ___ ____ _|_ __|____|_ ;; __ ___ ____ _|_ __|____|_
@ -609,13 +609,13 @@ DELIMITED, START, and END are passed down verbatim to `perform-replace'."
With prefix argument, use full path." With prefix argument, use full path."
(interactive "P") (interactive "P")
(let* ((buffer (let* ((buffer
(if (minibufferp) (if (minibufferp)
(window-buffer (window-buffer
(minibuffer-selected-window)) (minibuffer-selected-window))
(current-buffer))) (current-buffer)))
(filename (buffer-file-name buffer))) (filename (buffer-file-name buffer)))
(if filename (if filename
(insert (if full-path filename (file-name-nondirectory filename))) (insert (if full-path filename (file-name-nondirectory filename)))
(error (format "Buffer %s is not visiting a file" (buffer-name buffer)))))) (error (format "Buffer %s is not visiting a file" (buffer-name buffer))))))
#+END_SRC #+END_SRC
@ -1326,12 +1326,12 @@ From [[https://matrix.to/#/@suckless_shill:matrix.org][viz]] in the [[https://ma
(defun vz/org-fontify-horizontal-break () (defun vz/org-fontify-horizontal-break ()
"Display Org’s horizontal break (-----) as a full-width horizontal line" "Display Org’s horizontal break (-----) as a full-width horizontal line"
(push '("^[[:space:]]*\\(------*\\)\n" (push '("^[[:space:]]*\\(------*\\)\n"
(0 (progn (0 (progn
(put-text-property (match-beginning 1) (match-end 1) (put-text-property (match-beginning 1) (match-end 1)
'display (make-string (- (match-end 1) (match-beginning 1)) ?\s)) 'display (make-string (- (match-end 1) (match-beginning 1)) ?\s))
(put-text-property (match-beginning 1) (match-end 0) (put-text-property (match-beginning 1) (match-end 0)
'face '(:strike-through t :extend t))))) 'face '(:strike-through t :extend t)))))
org-font-lock-extra-keywords) org-font-lock-extra-keywords)
(setq-local font-lock-extra-managed-props (cons 'display font-lock-extra-managed-props))) (setq-local font-lock-extra-managed-props (cons 'display font-lock-extra-managed-props)))
(add-hook 'org-font-lock-set-keywords-hook #'vz/org-fontify-horizontal-break) (add-hook 'org-font-lock-set-keywords-hook #'vz/org-fontify-horizontal-break)
@ -1347,7 +1347,7 @@ Let’s see if i can get my brain more organised this way…
:ensure t :ensure t
:config :config
(setq org-roam-node-display-template (concat "${title:*} " (setq org-roam-node-display-template (concat "${title:*} "
(propertize "${tags:10}" 'face 'org-tag))) (propertize "${tags:10}" 'face 'org-tag)))
(org-roam-db-autosync-mode) (org-roam-db-autosync-mode)
(require 'org-roam-dailies) (require 'org-roam-dailies)
(require 'org-roam-protocol) (require 'org-roam-protocol)
@ -1361,8 +1361,8 @@ Let’s see if i can get my brain more organised this way…
"#+title: ${title}") "#+title: ${title}")
:unnarrowed t))) :unnarrowed t)))
(org-roam-dailies-capture-templates '( (org-roam-dailies-capture-templates '(
("d" "default" entry "* %<%H:%M>: %?" ("d" "default" entry "* %<%H:%M>: %?"
:if-new (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")))) :if-new (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n"))))
:bind :bind
(("C-c n l" . org-roam-buffer-toggle) (("C-c n l" . org-roam-buffer-toggle)
("C-c n f" . org-roam-node-find) ("C-c n f" . org-roam-node-find)
@ -2680,8 +2680,8 @@ accompanying function will be added to ~mu4e-view-mode-hook~.
:enter-func (lambda () (mu4e-message "Entering Private Context")) :enter-func (lambda () (mu4e-message "Entering Private Context"))
:leave-func (lambda () (mu4e-message "Leaving Private Context")) :leave-func (lambda () (mu4e-message "Leaving Private Context"))
:match-func (lambda (msg) :match-func (lambda (msg)
(when msg (when msg
(string-match-p "^/Private" (mu4e-message-field msg :maildir)))) (string-match-p "^/Private" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "me@gergely.polonkai.eu") :vars '((user-mail-address . "me@gergely.polonkai.eu")
(mu4e-sent-folder . "/Private/Sent") (mu4e-sent-folder . "/Private/Sent")
(mu4e-drafts-folder . "/Private/Drafts") (mu4e-drafts-folder . "/Private/Drafts")
@ -2829,9 +2829,9 @@ I don’t always use the package menu, but when i do, i want to do it in style
:custom :custom
(twtxt-file (expand-file-name "NextCloud/twtxt.txt" user-documents-directory)) (twtxt-file (expand-file-name "NextCloud/twtxt.txt" user-documents-directory))
(twtxt-following '(("benaiah" "https://benaiah.me/twtxt.txt") (twtxt-following '(("benaiah" "https://benaiah.me/twtxt.txt")
("jomo" "https://gist.githubusercontent.com/jomo/64d6bd1b95ec0a24612b/raw/twtxt.txt") ("jomo" "https://gist.githubusercontent.com/jomo/64d6bd1b95ec0a24612b/raw/twtxt.txt")
("quite" "https://lublin.se/twtxt.txt") ("quite" "https://lublin.se/twtxt.txt")
("xena" "https://xena.greedo.xeserv.us/files/xena.txt")))) ("xena" "https://xena.greedo.xeserv.us/files/xena.txt"))))
#+end_src #+end_src
** Show available key bindings ** Show available key bindings
@ -3382,7 +3382,7 @@ This is a big one; I use a lot of customisation here.
(org-crypt-key "B0740C4C") (org-crypt-key "B0740C4C")
(org-speed-commands-user '(("m" . org-mark-subtree))) (org-speed-commands-user '(("m" . org-mark-subtree)))
(org-refile-targets '((nil :maxlevel . 6) (org-refile-targets '((nil :maxlevel . 6)
(org-agenda-files :maxlevel . 3))) (org-agenda-files :maxlevel . 3)))
(org-agenda-custom-commands '(("c" "Simple agenda view" (org-agenda-custom-commands '(("c" "Simple agenda view"
((tags "PRIORITY=\"A\"" ((tags "PRIORITY=\"A\""
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
@ -3442,17 +3442,17 @@ This is a big one; I use a lot of customisation here.
(org-mode . gpolonkai/setup-org-mode) (org-mode . gpolonkai/setup-org-mode)
:bind :bind
(:map gpolonkai/pers-map (:map gpolonkai/pers-map
("a" . gpolonkai/org-agenda-list) ("a" . gpolonkai/org-agenda-list)
("C" . org-capture) ("C" . org-capture)
("l" . org-store-link) ("l" . org-store-link)
:map org-mode-map :map org-mode-map
("SPC" . org-space-key) ("SPC" . org-space-key)
("C-c l" . org-toggle-link-display) ("C-c l" . org-toggle-link-display)
("C-a" . gpolonkai/move-to-beginning-of-line) ("C-a" . gpolonkai/move-to-beginning-of-line)
("C-e" . gpolonkai/move-to-end-of-line) ("C-e" . gpolonkai/move-to-end-of-line)
("C-c h" . outline-previous-heading) ("C-c h" . outline-previous-heading)
("C-c ." . gpolonkai/org-insert-current-timestamp) ("C-c ." . gpolonkai/org-insert-current-timestamp)
("C-c ;" . org-toggle-timestamp-type))) ("C-c ;" . org-toggle-timestamp-type)))
#+END_SRC #+END_SRC
** Show a random ToDo every hour ** Show a random ToDo every hour
@ -3681,47 +3681,47 @@ The new completing system!
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package consult (use-package consult
:bind (:map global-map :bind (:map global-map
([remap Info-search] . consult-info) ([remap Info-search] . consult-info)
("M-y" . consult-yank-pop) ("M-y" . consult-yank-pop)
:map mode-specific-map :map mode-specific-map
("M-x" . consult-mode-command) ("M-x" . consult-mode-command)
("h" . consult-history) ("h" . consult-history)
("k" . consult-kmacro) ("k" . consult-kmacro)
("m" . consult-man) ("m" . consult-man)
("i" . consult-info) ("i" . consult-info)
:map ctl-x-map :map ctl-x-map
("M-:" . consult-complex-command) ("M-:" . consult-complex-command)
("b" . consult-buffer) ("b" . consult-buffer)
("4 b" . consult-buffer-other-window) ("4 b" . consult-buffer-other-window)
("5 b" . consult-buffer-other-frame) ("5 b" . consult-buffer-other-frame)
("r b" . consult-bookmark) ("r b" . consult-bookmark)
("x b" . consult-project-buffer) ("x b" . consult-project-buffer)
:map goto-map :map goto-map
("e" . consult-compile-error) ("e" . consult-compile-error)
("f" . consult-flymake) ("f" . consult-flymake)
("g" . consult-goto-line) ("g" . consult-goto-line)
("M-g" . consult-goto-line) ("M-g" . consult-goto-line)
("o" . consult-org-heading) ("o" . consult-org-heading)
("m" . consult-mark) ("m" . consult-mark)
("k" . consult-global-mark) ("k" . consult-global-mark)
("i" . consult-imenu) ("i" . consult-imenu)
("I" . consult-imenu-multi) ("I" . consult-imenu-multi)
:map search-map :map search-map
("d" . consult-find) ("d" . consult-find)
("D" . consult-locate) ("D" . consult-locate)
("g" . consult-grep) ("g" . consult-grep)
("G" . consult-git-grep) ("G" . consult-git-grep)
("r" . consult-ripgrep) ("r" . consult-ripgrep)
("l" . consult-line) ("l" . consult-line)
("L" . consult-line-multi) ("L" . consult-line-multi)
("k" . consult-keep-lines) ("k" . consult-keep-lines)
("u" . consilt-focus-lines) ("u" . consilt-focus-lines)
("e" . consult-isearch-history) ("e" . consult-isearch-history)
:map isearch-mode-map :map isearch-mode-map
("M-e" . consult-isearch-history) ("M-e" . consult-isearch-history)
:map minibuffer-local-map :map minibuffer-local-map
("M-s" . consult-history) ("M-s" . consult-history)
("M-r" . consult-history)) ("M-r" . consult-history))
:hook :hook
(completion-list-mode . consult-preview-at-point-mode) (completion-list-mode . consult-preview-at-point-mode)
:custom :custom
@ -3769,7 +3769,7 @@ The new completing system!
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package marginalia (use-package marginalia
:bind (:map minibuffer-local-map :bind (:map minibuffer-local-map
("M-A" . marginalia-cycle)) ("M-A" . marginalia-cycle))
:init :init
(marginalia-mode)) (marginalia-mode))
#+end_src #+end_src
@ -3779,12 +3779,12 @@ The new completing system!
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package embark (use-package embark
:bind (:map global-map :bind (:map global-map
("C-." . embark-act)) ("C-." . embark-act))
:config :config
(add-to-list 'display-buffer-alist (add-to-list 'display-buffer-alist
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*" '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
nil nil
(window-parameters (mode-line-format . none))))) (window-parameters (mode-line-format . none)))))
(use-package embark-consult (use-package embark-consult
:hook :hook