[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.

sd-quick-export

Commit
750ba03e9b7f5e4aca4d180302a6641d4a549802
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
smart-documents.org
index c532d47b..865e7797 100644..100644
@@ -573,7 +573,7 @@
573 573 **** Document
574 574
575 575 #+BEGIN_SRC emacs-lisp :tangle yes
576 Removed: (global-set-key (kbd "C-p") 'sd-org-quick-export)
576 Added: (global-set-key (kbd "C-p") 'sd-quick-export)
577 577 #+END_SRC
578 578
579 579 **** TODO Presentation
@@ -1326,11 +1326,38 @@
1326 1326 PDF]].
1327 1327
1328 1328 #+BEGIN_SRC emacs-lisp :tangle yes
1329 Removed: (defun sd-org-quick-export ()
1330 Removed: "Org async export to PDF and open.
1331 Removed: This basically reimplements `C-c C-e C-a l o'."
1332 Removed: (interactive)
1329 Added: (defun sd-quick-export--org ()
1330 Added: "Org mode async export to PDF and open.
1331 Added: This basically reimplements `C-c C-e C-a l o'."
1333 1332 (org-open-file (org-latex-export-to-pdf)))
1333 Added:
1334 Added: (defun sd-quick-export--ledger-report ()
1335 Added: "Quick export for `ledger-mode' report buffers."
1336 Added: (let ((old-buffer (current-buffer)))
1337 Added: (with-output-to-temp-buffer "**SD Export**"
1338 Added: (print "#+SETUPFILE: ~/.emacs.d/templates/documents/default.org")
1339 Added: (newline)
1340 Added: (insert-buffer-substring old-buffer)
1341 Added: (forward-line 10)
1342 Added: (org-table-convert-region (point) (goto-char (point-max)))
1343 Added: (setq more-lines-p t)
1344 Added: (while more-lines-p
1345 Added: (move-end-of-line 1)
1346 Added: (newline)
1347 Added: (setq more-lines-p (= 0 (forward-line 1))))
1348 Added: (org-open-file (org-latex-export-to-pdf)))))
1349 Added:
1350 Added: (defun sd-quick-export ()
1351 Added: "Quickly prettify and export current buffer to PDF."
1352 Added: (interactive)
1353 Added: (cond ((eq major-mode 'org-mode)
1354 Added: (sd-quick-export--org))
1355 Added: ((eq major-mode 'emacs-lisp-mode)
1356 Added: (message "No quick-export implemented yet."))
1357 Added: ((eq major-mode 'ledger-report-mode)
1358 Added: (sd-quick-export--ledger-report))
1359 Added: (t (message (concat "No sd-quick-export backend for "
1360 Added: (format "%s" major-mode) ".")))))
1334 1361 #+END_SRC
1335 1362
1336 1363 ** Beautify buffer