sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(emacs): clone org entries with shift-n >= 1

Browse source
This commit is contained in:
Pavel Korytov 2023-01-27 13:48:45 +03:00
parent 2136be197f
commit 1b6951cf39
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
.emacs.d/init.el
View file

@ -1575,8 +1575,8 @@ Returns (<buffer> . <workspace-index>) or nil."
(defun my/copilot-tab ()
(interactive)
(or (when (my/should-run-emmet-p) (my/emmet-or-tab))
(copilot-accept-completion)
(or (copilot-accept-completion)
(when (my/should-run-emmet-p) (my/emmet-or-tab))
(when (and (eq evil-state 'normal)
(or hs-minor-mode outline-minor-mode))
(evil-toggle-fold)
@ -3173,7 +3173,7 @@ skip exactly those headlines that do not match."
(org-timestamp-change (* n shift-n) shift-what))
(save-excursion
(goto-char (point-min))
(evil-numbers/inc-at-pt (* n shift-n) (point-min)))
(evil-numbers/inc-at-pt n (point-min)))
(unless (= n n-no-remove)
(goto-char (point-min))
(while (re-search-forward org-ts-regexp nil t)

6
Emacs.org
View file

@ -2381,8 +2381,8 @@ A general-purpose package to run formatters on files. While the most popular for
#+begin_src emacs-lisp
(defun my/copilot-tab ()
(interactive)
(or (when (my/should-run-emmet-p) (my/emmet-or-tab))
(copilot-accept-completion)
(or (copilot-accept-completion)
(when (my/should-run-emmet-p) (my/emmet-or-tab))
(when (and (eq evil-state 'normal)
(or hs-minor-mode outline-minor-mode))
(evil-toggle-fold)
@ -4433,7 +4433,7 @@ Unfortunately, I see no way to advise the original function, so here's my versio
(org-timestamp-change (* n shift-n) shift-what))
(save-excursion
(goto-char (point-min))
(evil-numbers/inc-at-pt (* n shift-n) (point-min)))
(evil-numbers/inc-at-pt n (point-min)))
(unless (= n n-no-remove)
(goto-char (point-min))
(while (re-search-forward org-ts-regexp nil t)