Replace tabs with spaces
This commit is contained in:
parent
d6e8e7000f
commit
8f00b92bcf
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue