From 8f00b92bcfd4d6b138535a735e1a1025bb48c694 Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Sun, 15 Oct 2023 07:00:07 +0200 Subject: [PATCH] Replace tabs with spaces --- configuration.org | 168 +++++++++++++++++++++++----------------------- 1 file changed, 84 insertions(+), 84 deletions(-) diff --git a/configuration.org b/configuration.org index 1ce41a9..c7dfd32 100644 --- a/configuration.org +++ b/configuration.org @@ -91,11 +91,11 @@ :init (defun crm-indicator (args) (cons (format "[CRM%s] %s" - (replace-regexp-in-string - "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" - crm-separator) - (car args)) - (cdr args))) + (replace-regexp-in-string + "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" + crm-separator) + (car args)) + (cdr args))) (advice-add #'completing-read-multiple :filter-args #'crm-indicator) :custom (user-full-name "Gergely Polonkai") @@ -194,7 +194,7 @@ (">" (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." (interactive "P") (let* ((buffer - (if (minibufferp) - (window-buffer - (minibuffer-selected-window)) - (current-buffer))) - (filename (buffer-file-name buffer))) + (if (minibufferp) + (window-buffer + (minibuffer-selected-window)) + (current-buffer))) + (filename (buffer-file-name buffer))) (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)))))) #+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 () "Display Org’s horizontal break (-----) as a full-width horizontal line" (push '("^[[:space:]]*\\(------*\\)\n" - (0 (progn - (put-text-property (match-beginning 1) (match-end 1) - 'display (make-string (- (match-end 1) (match-beginning 1)) ?\s)) - (put-text-property (match-beginning 1) (match-end 0) - 'face '(:strike-through t :extend t))))) - org-font-lock-extra-keywords) + (0 (progn + (put-text-property (match-beginning 1) (match-end 1) + 'display (make-string (- (match-end 1) (match-beginning 1)) ?\s)) + (put-text-property (match-beginning 1) (match-end 0) + 'face '(:strike-through t :extend t))))) + org-font-lock-extra-keywords) (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) @@ -1347,7 +1347,7 @@ Let’s see if i can get my brain more organised this way… :ensure t :config (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) (require 'org-roam-dailies) (require 'org-roam-protocol) @@ -1361,8 +1361,8 @@ Let’s see if i can get my brain more organised this way… "#+title: ${title}") :unnarrowed t))) (org-roam-dailies-capture-templates '( - ("d" "default" entry "* %<%H:%M>: %?" - :if-new (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")))) + ("d" "default" entry "* %<%H:%M>: %?" + :if-new (file+head "%<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n")))) :bind (("C-c n l" . org-roam-buffer-toggle) ("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")) :leave-func (lambda () (mu4e-message "Leaving Private Context")) :match-func (lambda (msg) - (when msg - (string-match-p "^/Private" (mu4e-message-field msg :maildir)))) + (when msg + (string-match-p "^/Private" (mu4e-message-field msg :maildir)))) :vars '((user-mail-address . "me@gergely.polonkai.eu") (mu4e-sent-folder . "/Private/Sent") (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 (twtxt-file (expand-file-name "NextCloud/twtxt.txt" user-documents-directory)) (twtxt-following '(("benaiah" "https://benaiah.me/twtxt.txt") - ("jomo" "https://gist.githubusercontent.com/jomo/64d6bd1b95ec0a24612b/raw/twtxt.txt") - ("quite" "https://lublin.se/twtxt.txt") - ("xena" "https://xena.greedo.xeserv.us/files/xena.txt")))) + ("jomo" "https://gist.githubusercontent.com/jomo/64d6bd1b95ec0a24612b/raw/twtxt.txt") + ("quite" "https://lublin.se/twtxt.txt") + ("xena" "https://xena.greedo.xeserv.us/files/xena.txt")))) #+end_src ** 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-speed-commands-user '(("m" . org-mark-subtree))) (org-refile-targets '((nil :maxlevel . 6) - (org-agenda-files :maxlevel . 3))) + (org-agenda-files :maxlevel . 3))) (org-agenda-custom-commands '(("c" "Simple agenda view" ((tags "PRIORITY=\"A\"" ((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) :bind (:map gpolonkai/pers-map - ("a" . gpolonkai/org-agenda-list) - ("C" . org-capture) - ("l" . org-store-link) - :map org-mode-map - ("SPC" . org-space-key) - ("C-c l" . org-toggle-link-display) - ("C-a" . gpolonkai/move-to-beginning-of-line) - ("C-e" . gpolonkai/move-to-end-of-line) - ("C-c h" . outline-previous-heading) - ("C-c ." . gpolonkai/org-insert-current-timestamp) - ("C-c ;" . org-toggle-timestamp-type))) + ("a" . gpolonkai/org-agenda-list) + ("C" . org-capture) + ("l" . org-store-link) + :map org-mode-map + ("SPC" . org-space-key) + ("C-c l" . org-toggle-link-display) + ("C-a" . gpolonkai/move-to-beginning-of-line) + ("C-e" . gpolonkai/move-to-end-of-line) + ("C-c h" . outline-previous-heading) + ("C-c ." . gpolonkai/org-insert-current-timestamp) + ("C-c ;" . org-toggle-timestamp-type))) #+END_SRC ** Show a random ToDo every hour @@ -3681,47 +3681,47 @@ The new completing system! #+begin_src emacs-lisp (use-package consult :bind (:map global-map - ([remap Info-search] . consult-info) - ("M-y" . consult-yank-pop) - :map mode-specific-map - ("M-x" . consult-mode-command) - ("h" . consult-history) - ("k" . consult-kmacro) - ("m" . consult-man) - ("i" . consult-info) - :map ctl-x-map - ("M-:" . consult-complex-command) - ("b" . consult-buffer) - ("4 b" . consult-buffer-other-window) - ("5 b" . consult-buffer-other-frame) - ("r b" . consult-bookmark) - ("x b" . consult-project-buffer) - :map goto-map - ("e" . consult-compile-error) - ("f" . consult-flymake) - ("g" . consult-goto-line) - ("M-g" . consult-goto-line) - ("o" . consult-org-heading) - ("m" . consult-mark) - ("k" . consult-global-mark) - ("i" . consult-imenu) - ("I" . consult-imenu-multi) - :map search-map - ("d" . consult-find) - ("D" . consult-locate) - ("g" . consult-grep) - ("G" . consult-git-grep) - ("r" . consult-ripgrep) - ("l" . consult-line) - ("L" . consult-line-multi) - ("k" . consult-keep-lines) - ("u" . consilt-focus-lines) - ("e" . consult-isearch-history) - :map isearch-mode-map - ("M-e" . consult-isearch-history) - :map minibuffer-local-map - ("M-s" . consult-history) - ("M-r" . consult-history)) + ([remap Info-search] . consult-info) + ("M-y" . consult-yank-pop) + :map mode-specific-map + ("M-x" . consult-mode-command) + ("h" . consult-history) + ("k" . consult-kmacro) + ("m" . consult-man) + ("i" . consult-info) + :map ctl-x-map + ("M-:" . consult-complex-command) + ("b" . consult-buffer) + ("4 b" . consult-buffer-other-window) + ("5 b" . consult-buffer-other-frame) + ("r b" . consult-bookmark) + ("x b" . consult-project-buffer) + :map goto-map + ("e" . consult-compile-error) + ("f" . consult-flymake) + ("g" . consult-goto-line) + ("M-g" . consult-goto-line) + ("o" . consult-org-heading) + ("m" . consult-mark) + ("k" . consult-global-mark) + ("i" . consult-imenu) + ("I" . consult-imenu-multi) + :map search-map + ("d" . consult-find) + ("D" . consult-locate) + ("g" . consult-grep) + ("G" . consult-git-grep) + ("r" . consult-ripgrep) + ("l" . consult-line) + ("L" . consult-line-multi) + ("k" . consult-keep-lines) + ("u" . consilt-focus-lines) + ("e" . consult-isearch-history) + :map isearch-mode-map + ("M-e" . consult-isearch-history) + :map minibuffer-local-map + ("M-s" . consult-history) + ("M-r" . consult-history)) :hook (completion-list-mode . consult-preview-at-point-mode) :custom @@ -3769,7 +3769,7 @@ The new completing system! #+begin_src emacs-lisp (use-package marginalia :bind (:map minibuffer-local-map - ("M-A" . marginalia-cycle)) + ("M-A" . marginalia-cycle)) :init (marginalia-mode)) #+end_src @@ -3779,12 +3779,12 @@ The new completing system! #+begin_src emacs-lisp (use-package embark :bind (:map global-map - ("C-." . embark-act)) + ("C-." . embark-act)) :config (add-to-list 'display-buffer-alist - '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*" - nil - (window-parameters (mode-line-format . none))))) + '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*" + nil + (window-parameters (mode-line-format . none))))) (use-package embark-consult :hook