Compare commits

...

2 Commits

Author SHA1 Message Date
contrapunctus 226cb898c8 feat: auto-align tags; move tags column to .dir-locals.el 2021-06-09 07:14:42 +05:30
contrapunctus b12705af1f feat: add links to tangled source, remove autotangle code 2021-06-09 07:09:53 +05:30
3 changed files with 1857 additions and 9 deletions

View File

@ -19,4 +19,8 @@
("js" . "jabber-socks5")
("jv" . "jabber-vcard")
("jw" . "jabber-whitespace")
("jx" . "jabber-xml"))))))
("jx" . "jabber-xml")))))
(org-mode . ((org-tags-column . -60)
(eval . (progn
(make-local-variable 'before-save-hook)
(add-hook 'before-save-hook #'org-align-all-tags))))))

1850
jabber.el

File diff suppressed because it is too large Load Diff

View File

@ -245,7 +245,7 @@ We don't want comments to be inserted within the comment structure, and certainl
(require 'cl))
#+END_SRC
*** jabber-escape-xml :function:
*** jabber-escape-xml :function:
#+BEGIN_SRC emacs-lisp
(defun jabber-escape-xml (str)
"Escape strings for XML."
@ -283,7 +283,7 @@ We don't want comments to be inserted within the comment structure, and certainl
str))
#+END_SRC
*** jabber-sexp2xml :function:
*** jabber-sexp2xml :function:
#+BEGIN_SRC emacs-lisp
(defun jabber-sexp2xml (sexp)
"Return SEXP as well-formatted XML.
@ -16639,9 +16639,3 @@ Contents of process buffers might be useful for debugging."
;;; jabber.el ends here
#+END_SRC
* Local variables :noexport:
# Local Variables:
# org-tags-column: -60
# eval: (add-hook 'after-save-hook (lambda nil (interactive) (compile (mapconcat #'shell-quote-argument `("emacs" "-q" "-Q" "--batch" "--eval=(require 'ob-tangle)" ,(format "--eval=(org-babel-tangle-file \"%s\")" (buffer-file-name))) " "))) nil t)
# End: