branch: externals/org-remark
commit 840381a503b31007e39dcfa5b9a44b270e4e73b2
Author: Noboru Ota <m...@nobiot.com>
Commit: Noboru Ota <m...@nobiot.com>
doc: Correct some program comments
---
README.org | 59 ++++++++++++++++++++++++++++++++++++++++++++-----------
org-marginalia.el | 4 ++--
2 files changed, 50 insertions(+), 13 deletions(-)
diff --git a/README.org b/README.org
index 42c1c47e71..f8f763de9d 100644
--- a/README.org
+++ b/README.org
@@ -42,8 +42,8 @@ Refer to the screenshots below for a teaser of what it can
do.
- [[#defun-omnext][defun om/next]]
- [[#defgroup-org-marginalia][(defgroup org-marginalia]]
- [[#defface-omhighlighter][(defface om/highlighter]]
- - [[#look]["Look]]
- [[#interactive][interactive]]
+ - [[#defun-ommark][defun om/mark]]
:END:
* Installation
@@ -169,8 +169,8 @@ This section is used as a demonstration and a collection of
my ideas for this pa
** defun om/next
:PROPERTIES:
:marginalia-id: 33710cc4
-:marginalia-source-beg: 15744
-:marginalia-source-end: 15757
+:marginalia-source-beg: 15735
+:marginalia-source-end: 15748
:END:
[[file:~/local-repos/org-marginalia/org-marginalia.el][org-marginalia]]
I need to think it through.
@@ -180,26 +180,63 @@ At the moment, ~om/list-highlights-positions~ has been
changed to return beginni
** (defgroup org-marginalia
:PROPERTIES:
:marginalia-id: 0d953675
-:marginalia-source-beg: 6409
-:marginalia-source-end: 6433
+:marginalia-source-beg: 6402
+:marginalia-source-end: 6426
:END:
[[file:~/local-repos/org-marginalia/org-marginalia.el][org-marginalia]]
** (defface om/highlighter
:PROPERTIES:
:marginalia-id: 8ccff166
-:marginalia-source-beg: 6624
-:marginalia-source-end: 6647
+:marginalia-source-beg: 6617
+:marginalia-source-end: 6640
:END:
[[file:~/local-repos/org-marginalia/org-marginalia.el][org-marginalia]]
-** "Look
-[[file:~/local-repos/org-marginalia/org-marginalia.el][org-marginalia]]
** interactive
:PROPERTIES:
:marginalia-id: 9f60c405
-:marginalia-source-beg: 15935
-:marginalia-source-end: 15946
+:marginalia-source-beg: 15926
+:marginalia-source-end: 15937
:END:
[[file:~/local-repos/org-marginalia/org-marginalia.el][org-marginalia]]
+** defun om/mark
+:PROPERTIES:
+:marginalia-id: b652604e
+:marginalia-source-beg: 9101
+:marginalia-source-end: 9114
+:END:
+[[file:~/local-repos/org-marginalia/org-marginalia.el][org-marginalia]]
+Some syntactic elements keep their faces descpite being marked.
+It appears to be the way font-lock-mode works. Experimenting.
+This might also lead to a way for copy and paste (need to deal with duplicate
IDs)
+#+begin_src
+;; Comment dddd
+;; This is considered
+;; Comment
+
+;;Comment dd
+jit-lock-register
+
+(defun)
+
+(jit-lock-register #'my/font-lock-fn)
+(font-lock-unfontify-buffer)
+(jit-lock-refontify)
+(font-lock-fontify-buffer)
+
+(point);; comment
+;; Comment
+(my/font-lock-fn 155 160)
+
+(let ((beg 1)
+ (end 10))
+ (list beg end))
+
+(defun my/font-lock-fn (beg end &optional context)
+ (unless context
+ (list beg)
+ (if (get-char-property beg 'om/id)
+ (font-lock-unfontify-region beg end))))
+#+end_src
* COMMENT Local Variables
# Local Variables:
diff --git a/org-marginalia.el b/org-marginalia.el
index 2848814cb1..adfae9242e 100644
--- a/org-marginalia.el
+++ b/org-marginalia.el
@@ -5,7 +5,7 @@
;; Author: Noboru Ota <m...@nobiot.com>
;; URL: https://github.com/nobiot/org-marginalia
;; Version: 0.0.3
-;; Last Modified: 2020-12-24T153114
+;; Last Modified: 2020-12-25
;; Package-Requires: ((emacs "27.1") (org "9.4"))
;; Keywords: org-mode, annotation, writing, note-taking, margin-notes
@@ -279,7 +279,7 @@ This is achieved via `after-save-hook' (added via
`om/highlights' is the local variable that tracks every highlight in the
current buffer. Each highlight is represented by this data structure:
- (id (beg-marker . end-marker))"
+ (id beg-marker . end-marker)"
(interactive)
(let* ((filename (buffer-file-name))
(source-path (abbreviate-file-name filename))
