howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Making org files look pretty without the notebook

Browse source 
Still having trouble getting the notebook working, but at this point,
I really just want Org to look cooler. :-D
This commit is contained in:
Howard Abrams 2022-03-25 11:11:15 -07:00
parent ccebc03e7f
commit 6ddd2f6c95
2 changed files with 28 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
ha-org-word-processor.org
View file

@ -227,7 +227,7 @@ While I'm intrigued with [[https://github.com/rougier][Nicolas P. Rougier]]'s [[
:straight (:type git :protocol ssh :host github :repo "rougier/svg-lib")) :straight (:type git :protocol ssh :host github :repo "rougier/svg-lib"))
(use-package svg-tag-mode (use-package svg-tag-mode
:straight (:type git :protocol ssh :host github :repo "rougier/svg-tag-mode") :straight (:type git :protocol ssh :host github :repo "howardabrams/svg-tag-mode")
:config :config
(setq svg-tag-tags (setq svg-tag-tags
'(("TODO:" . ((lambda (tag) (svg-tag-make "TODO" :face 'org-todo '(("TODO:" . ((lambda (tag) (svg-tag-make "TODO" :face 'org-todo
@ -235,15 +235,29 @@ While I'm intrigued with [[https://github.com/rougier][Nicolas P. Rougier]]'s [[
:margin 0 :padding 0 :height 0.8)))) :margin 0 :padding 0 :height 0.8))))
("NOTE:" . ((lambda (tag) (svg-tag-make "NOTE" :face 'org-done ("NOTE:" . ((lambda (tag) (svg-tag-make "NOTE" :face 'org-done
:inverse nil :margin 0 :radius 2 :height 0.8)))) :inverse nil :margin 0 :radius 2 :height 0.8))))
; The notebook-mode overrides this:
; ("#\\+RESULTS:" . ((lambda (tag) (svg-tag-make tag :beg 0 :end -1 :height 0.6))))
("\\(:[A-Z-]+\\):[a-zA-Z#0-9]+:" . ((lambda (tag) ("\\(:[A-Z-]+\\):[a-zA-Z#0-9]+:" . ((lambda (tag)
(svg-tag-make tag :beg 1 :inverse t (svg-tag-make tag :beg 1 :inverse t
:margin 0 :crop-right t)))) :margin 0 :crop-right t))))
(":[A-Z-]+\\(:[a-zA-Z#0-9]+:\\)" . ((lambda (tag) (":[A-Z-]+\\(:[a-zA-Z#0-9]+:\\)" . ((lambda (tag)
(svg-tag-make tag :beg 1 :end -1 (svg-tag-make tag :beg 1 :end -1
:margin 0 :crop-left t)))) :margin 0 :crop-left t))))
("\\(:[A-Z-]+:\\)[ \n]" . ((lambda (tag) (svg-tag-make tag :beg 1 :end -1 :margin 0)))))) ("\\(:[A-Z-]+:\\)[ \n]" . ((lambda (tag) (svg-tag-make tag :beg 1 :end -1 :margin 0))))
; The notebook-mode overrides these:
("#\\+BEGIN_SRC [a-zA-Z#0-9-]+" . ((lambda (tag)
(svg-tag-make "SRC" :face 'org-block-begin-line
:height 0.6
:inverse t :margin 0 :crop-right t))))
("#\\+BEGIN_SRC \\([a-zA-Z#0-9-]+\\)" . ((lambda (tag)
(svg-tag-make tag :face 'org-block-begin-line
:height 0.6
:margin 0 :crop-left t))))
("#\\+END_SRC" . ((lambda (tag)
(svg-tag-make "SRC" :face 'org-block-end-line
:height 0.6
:beg 0 :inverse t :margin 0))))
("\\(#\\+[a-zA-Z#0-9-_]+:\\)" . ((lambda (tag) (svg-tag-make tag :face 'org-document-info-keyword
:beg 2 :end -1 :height 0.6))))))
(global-svg-tag-mode 1)) (global-svg-tag-mode 1))
#+END_SRC #+END_SRC
@ -252,8 +266,9 @@ What does do? Here are some examples:
- NOTE: Highlights comments and other notes. - NOTE: Highlights comments and other notes.
- :PROP:tag: are highlighted as two parts of the same tag - :PROP:tag: are highlighted as two parts of the same tag
- And :TAG: with colons are highlighted, which include :PROPERTY: drawers. - And :TAG: with colons are highlighted, which include :PROPERTY: drawers.
- Org-specific #+PROPERTY: entries are highlighted.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp :tangle no
(use-package notebook (use-package notebook
:straight (:type git :protocol ssh :host github :repo "rougier/notebook") :straight (:type git :protocol ssh :host github :repo "rougier/notebook")
:after org :after org
@ -268,8 +283,8 @@ The [[https://github.com/TonCherAmi/org-padding][org-padding]] project looks pla
:hook :hook
(org-mode . org-padding-mode) (org-mode . org-padding-mode)
:config :config
(setq org-padding-block-begin-line-padding '(0.5 . 0.3) (setq ;; org-padding-block-begin-line-padding '(0.5 . 0.3)
org-padding-block-end-line-padding '(0.1 . 0.5) ;; org-padding-block-end-line-padding '(0.1 . 0.5)
org-padding-heading-padding-alist org-padding-heading-padding-alist
'((4.0 . 1.5) (3.0 . 0.5) (3.0 . 0.5) (3.0 . 0.5) (2.5 . 0.5) (2.0 . 0.5) (1.5 . 0.5) (0.5 . 0.5)))) '((4.0 . 1.5) (3.0 . 0.5) (3.0 . 0.5) (3.0 . 0.5) (2.5 . 0.5) (2.0 . 0.5) (1.5 . 0.5) (0.5 . 0.5))))
#+END_SRC #+END_SRC

5
ha-org.org
View file

@ -592,12 +592,13 @@ With overlapping goals to =write-good=, the [[https://github.com/amperser/prosel
Next, create a configuration file, =~/.config/proselint/config= file, to turn on/off checks: Next, create a configuration file, =~/.config/proselint/config= file, to turn on/off checks:
#+BEGIN_SRC js :tangle ~/.config/proselint/config.json :mkdirp yes #+BEGIN_SRC js :tangle ~/.config/proselint/config.json :mkdirp yes
{ {
"checks": { "checks": {
"typography.diacritical_marks": false, "typography.diacritical_marks": false,
"annotations.misc": false,
"consistency.spacing": false "consistency.spacing": false
} }
} }
#+END_SRC #+END_SRC
And tell [[https://www.flycheck.org/][flycheck]] to use this: And tell [[https://www.flycheck.org/][flycheck]] to use this: