awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-28 16:50:58 -05:00
Code Issues Packages Projects Releases Wiki Activity

(feature): add custom font styling for org-roam links (#162)

Browse Source 
* (feature): add custom font styling for org-roam links

This adds 'org-roam-link-face. When org-roam-mode is on, all roam
links take this face. By default, it is exactly the same as 'org-link,
and would require styling.

* update docs
This commit is contained in:
Jethro Kuan
2020-02-22 21:11:14 +08:00
committed by GitHub
parent a2a858a0fe
commit cba79b941a
2 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
doc/configuration.md
View File

@@ -53,6 +53,9 @@ tweaking `org-roam-link-title-format`, for example:
(setq org-roam-link-title-format "R:%s") (setq org-roam-link-title-format "R:%s")
``` ```
You may also choose to simply style the link differently, by
customizing `org-roam-link-face` (`M-x customize-face org-roam-link`).
## Org-roam Files ## Org-roam Files
These customization options revolve around the Org files created and These customization options revolve around the Org files created and

20
org-roam.el
View File

@@ -138,6 +138,11 @@ If nil, always ask for filename."
:type 'string :type 'string
:group 'org-roam) :group 'org-roam)
(defgroup org-roam-faces nil
"Faces used by Org-Roam."
:group 'org-roam
:group 'faces)
;;; Polyfills ;;; Polyfills
;; These are for functions I use that are only available in newer Emacs ;; These are for functions I use that are only available in newer Emacs
@@ -596,9 +601,23 @@ This needs to be quick/infrequent, because this is run at
(org-roam-update (expand-file-name (org-roam-update (expand-file-name
(buffer-local-value 'buffer-file-truename buffer)))))) (buffer-local-value 'buffer-file-truename buffer))))))
(defface org-roam-link
'((t :inherit org-link))
"Face for org-roam link."
:group 'org-roam-faces)
(defun org-roam--roam-link-face (path)
"Conditional face for org file links.
Applies `org-roam-link-face' if PATH correponds to a Roam file."
(if (org-roam--org-roam-file-p path)
'org-roam-link
'org-link))
(defun org-roam--find-file-hook-function () (defun org-roam--find-file-hook-function ()
"Called by `find-file-hook' when `org-roam-mode' is on." "Called by `find-file-hook' when `org-roam-mode' is on."
(when (org-roam--org-roam-file-p) (when (org-roam--org-roam-file-p)
(org-link-set-parameters "file" :face 'org-roam--roam-link-face)
(add-hook 'post-command-hook #'org-roam--maybe-update-buffer nil t) (add-hook 'post-command-hook #'org-roam--maybe-update-buffer nil t)
(add-hook 'after-save-hook #'org-roam--update-cache nil t))) (add-hook 'after-save-hook #'org-roam--update-cache nil t)))
@@ -679,6 +698,7 @@ If ARG is `toggle', toggle `org-roam-mode'. Otherwise, behave as if called inter
;; Disable local hooks for all org-roam buffers ;; Disable local hooks for all org-roam buffers
(dolist (buf (org-roam--get-roam-buffers)) (dolist (buf (org-roam--get-roam-buffers))
(with-current-buffer buf (with-current-buffer buf
(org-link-set-parameters "file" :face 'org-link)
(remove-hook 'post-command-hook #'org-roam--maybe-update-buffer t) (remove-hook 'post-command-hook #'org-roam--maybe-update-buffer t)
(remove-hook 'after-save-hook #'org-roam--update-cache t)))))) (remove-hook 'after-save-hook #'org-roam--update-cache t))))))