Fontification of internal/radio targets in source code

[AndreasMatthias]

Fontification of internal/radio targets should not happend inside code.
In #92 and #33 this issue was discussed and fixed for code blocks like

#+begin_src foo
<<test>>
#+end_src

However this issue still exists for inline code blocks:

src_foo{<<test>>}

and markup code blocks:

~<<test>>~

[minad]

Thanks for the report. I tried to fix this by replacing the following lines

org-modern/org-modern.el

Lines 782 to 785 in d5e1f5a

	;; Ensure that blocks are properly fontified, source blocks etc. This
	;; fontification rule must come late such that org-modern does not interfere
	;; with source fontification.
	'((org-fontify-meta-lines-and-blocks))

with this

   '((org-fontify-meta-lines-and-blocks)
     (org-fontify-inline-src-blocks))

which should in principle override the styling of source blocks, and undo any earlier styling. But unfortunately no success so far.
Also org-fontify-inline-src-blocks is not available on older Org versions. So there is not that much we can do about it for now. You can set org-modern-internal-target=nil for the time being.

[minad]

Investigating this a bit more, I think disabling this feature is really the best way to go, otherwise a lot of fontification code from Org would have to be copied to org-modern with adjustments to undo the org-modern styling:

(defun org-fontify-inline-src-blocks (limit)
  "Try to apply `org-fontify-inline-src-blocks-1'."
  (condition-case-unless-debug nil
      (org-fontify-inline-src-blocks-1 limit)
    (error (message "Org mode fontification error in %S at %d"
                    (current-buffer)
                    (line-number-at-pos)))))

(defun org-fontify-inline-src-blocks-1 (limit)
  "Fontify inline src_LANG blocks, from `point' up to LIMIT."
  (let ((case-fold-search t))
    ;; The regexp below is copied from `org-element-inline-src-block-parser'.
    (while (re-search-forward "\\_<src_\\([^ \t\n[{]+\\)[{[]?" limit t)
      (let ((beg (match-beginning 0))
            (lang-beg (match-beginning 1))
            (lang-end (match-end 1))
            pt)
        (add-face-text-property beg lang-end 'org-inline-src-block)
        (add-face-text-property beg lang-beg 'shadow)
        (add-face-text-property lang-beg lang-end 'org-meta-line)
        (setq pt (goto-char lang-end))
        ;; `org-element--parse-paired-brackets' doesn't take a limit, so to
        ;; prevent it searching the entire rest of the buffer we temporarily
        ;; narrow the active region.
        (save-restriction
          (narrow-to-region beg
                            (min limit (or (save-excursion
                                             (and (search-forward"\n" limit t 2)
                                                  (point)))
                                           (point-max))))
          (when (ignore-errors (org-element--parse-paired-brackets ?\[))
            (add-face-text-property pt (point) 'org-inline-src-block)
            (setq pt (point)))
          (when (ignore-errors (org-element--parse-paired-brackets ?\{))
            (remove-text-properties pt (point) '(face nil))
            (add-face-text-property pt (1+ pt) '(org-inline-src-block shadow))
            (unless (= (1+ pt) (1- (point)))
              (if org-src-fontify-natively
                  (org-src-font-lock-fontify-block
                   (buffer-substring-no-properties lang-beg lang-end)
                   (1+ pt) (1- (point)))
                (font-lock-append-text-property
                 (1+ pt) (1- (point)) 'face 'org-inline-src-block)))
            (add-face-text-property (1- (point)) (point) '(org-inline-src-block shadow))
            (setq pt (point)))))
      t)))

[AndreasMatthias]

Sorry to hear that. It was not my intention to remove this features altogether.