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

The org-padding mode doesn't work with SVGs

Browse source 
I think I'd rather go back to including extra lines.
This commit is contained in:
Howard Abrams 2022-04-01 11:39:11 -07:00
parent b84fbeb5d4
commit 6c85de73e2
1 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -337,19 +337,19 @@ What does do? Here are some examples:
* Padding * Padding
The [[https://github.com/TonCherAmi/org-padding][org-padding]] project looks places extra space before and after headers and blocks (essentially leading), to create a more word-processor-y experience. Great idea, however, I have spent a lot of extra time entering blank lines before and after my headers and blocks: The [[https://github.com/TonCherAmi/org-padding][org-padding]] project looks places extra space before and after headers and blocks (essentially leading), to create a more word-processor-y experience. Great idea, however, I have spent a lot of extra time entering blank lines before and after my headers and blocks:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp :tangle no
(use-package org-padding (use-package org-padding
:straight (:type git :protocol ssh :host github :repo "TonCherAmi/org-padding") :straight (:type git :protocol ssh :host github :repo "TonCherAmi/org-padding")
: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
However, I'm just going to have to write a function to clean this. However, I'm just going to have to write a function to clean this.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp :tangle no
(defun ha-remove-superfluous-org-padding () (defun ha-remove-superfluous-org-padding ()
(interactive) (interactive)
(goto-char (point-min)) (goto-char (point-min))