If you're still looking for the solution,
I've made a partial solution for this
check this out (copied from
https://emacs.stackexchange.com/a/45848/18252):
(defun strike-through-for-org-mode ()
(interactive)
(beginning-of-line)
(save-excursion
(if (string-prefix-p "*" (thing-at-point 'line t))
(progn
(setq go_char (string-match "[ ]" (thing-at-point 'line t)))
(forward-char (+ go_char 1))
(insert "+")
(end-of-line)
(insert "+")
)
(if (string-match "[^ ]" (thing-at-point 'line t))
(progn
(setq go_char (string-match "[^ ]" (thing-at-point 'line t)))
(forward-char (+ go_char 2))
(insert "+")
(end-of-line)
(insert "+")
)
(message "[-] Not Proper Position!")
)
)
)
)
(defun strike-through-for-org-mode-undo ()
(interactive)
(beginning-of-line)
(save-excursion
(if (string-match "[+]" (thing-at-point 'line t))
(progn
(setq go_char (string-match "[+]" (thing-at-point 'line t)))
(forward-char go_char)
(delete-char 1)
(end-of-line)
(delete-char -1)
)
(message "[-] Not Proper Position!")
)
)
)
+
atregion-beginning
andregion-end
when the region is active; and, for it to be a little smart as to whether+
indicators are already present. This does not need to beorg-mode
specific and can be done with just a few lines of code, but there may be an existing function. Inasmuch asorg-mode
is under constant development, I tend not to answer a moving target ... Anorg-mode
guru familiar with the latest build and previous builds should be along shortly ...org-mode
specific. However, it's important that each line in the region is enclosed by+
as only then strike-through properly renders inorg-mode
.org-emphasize
is quite naive in orgmode 9.1.6. Please note that the line-wise strike-through version is also not working in all circumstances. It breaks headlines and tables within the region to be striken-through.