From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: Re: Inline code block syntax highlighting absence Date: Fri, 26 Oct 2018 17:49:36 +0200 Message-ID: <87ftwsg12n.fsf@nicolasgoaziou.fr> References: <87k1m8q2sb.fsf@portable.galex-713.eu> <874ldct386.fsf@gmail.com> <87d0rzyer6.fsf@nicolasgoaziou.fr> <877ei6r7fh.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:52558) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gG4Mr-0008ON-S7 for emacs-orgmode@gnu.org; Fri, 26 Oct 2018 11:49:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gG4Mo-0006jw-Kp for emacs-orgmode@gnu.org; Fri, 26 Oct 2018 11:49:45 -0400 Received: from relay4-d.mail.gandi.net ([217.70.183.196]:45129) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gG4Mm-0006iW-Hb for emacs-orgmode@gnu.org; Fri, 26 Oct 2018 11:49:42 -0400 In-Reply-To: <877ei6r7fh.fsf@gmail.com> (stardiviner's message of "Thu, 25 Oct 2018 12:12:18 +0800") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: stardiviner Cc: org-mode , "Garreau, Alexandre" Hello, stardiviner writes: > I did a search of "font-lock-add-keywords", "begin_src", "src_" etc in > Org Mode source code, but have not found exact place where fontify > function are. So I don't know where to modify the source code. Now I put > my current config here: [...] > (font-lock-add-keywords > 'org-mode > '(("\\(src_\\)\\([^[{]+\\)\\(\\[:.*\\]\\)\\({\\)\\([^}]*\\)\\(}\\)" > (1 '(:foreground "black" :weight 'normal :height 0.1)) ; src_ part > (2 '(:foreground "cyan" :weight 'bold :height 0.8 :box '(:color "light gray"))) ; "lang" part. > (3 '(:foreground "#555555" :height 0.7)) ; [:header arguments] part. > (4 '(:foreground "#333333")) ; { > (5 'org-code) ; "code..." part. > (6 '(:foreground "#333333")) ; } > )) > 'append) The first thing is to define new faces, or re-use existing one, instead of creating them ad-hoc. Then you need to create a function like `org-fontify-entities'. For example: --8<---------------cut here---------------start------------->8--- (defun org-fontify-inline-code (limit) (when (re-search-forward "src_..." limit t) ;; here you need to make as sure as possible that you are really ;; at some inline code. You cannot really parse inline source code ;; or inline Babel calls with a regexp only. (org-remove-flyspell-overlays-in beg end) (add-text-properties beg end (list 'font-lock-fontified t 'face ...)) t)) --8<---------------cut here---------------end--------------->8--- You then register the function above in `org-set-font-lock-defaults. Do you want to implement this? Regards, -- Nicolas Goaziou