diff options
-rw-r--r-- | config.org | 30 |
1 files changed, 20 insertions, 10 deletions
diff --git a/config.org b/config.org index 8a959d7..a3f09e0 100644 --- a/config.org +++ b/config.org | |||
@@ -5,7 +5,7 @@ | |||
5 | #+EXPORT_FILE_NAME: README.md | 5 | #+EXPORT_FILE_NAME: README.md |
6 | #+OPTIONS: toc:nil | 6 | #+OPTIONS: toc:nil |
7 | #+BANKRUPTCY_COUNT: 3.2 | 7 | #+BANKRUPTCY_COUNT: 3.2 |
8 | #+Time-stamp: <2021-01-05 17:16:15 acdw> | 8 | #+Time-stamp: <2021-01-07 19:41:59 acdw> |
9 | 9 | ||
10 | * Basics | 10 | * Basics |
11 | 11 | ||
@@ -1728,6 +1728,18 @@ I’m only enabling this at home for now, since it requires building stuff. | |||
1728 | 1728 | ||
1729 | ** Smolweb | 1729 | ** Smolweb |
1730 | 1730 | ||
1731 | *** A common function to make a cohesive smolweb experience | ||
1732 | |||
1733 | #+begin_src emacs-lisp | ||
1734 | (defun acdw/setup-smolweb () | ||
1735 | "Configure emacs to view the smolweb." | ||
1736 | (setq visual-fill-column-center-text t) | ||
1737 | (visual-fill-column-mode +1) | ||
1738 | (visual-line-mode +1) | ||
1739 | (variable-pitch-mode -1) | ||
1740 | (text-scale-increase +1)) | ||
1741 | #+end_src | ||
1742 | |||
1731 | *** Elpher | 1743 | *** Elpher |
1732 | 1744 | ||
1733 | #+begin_src emacs-lisp | 1745 | #+begin_src emacs-lisp |
@@ -1741,11 +1753,11 @@ I’m only enabling this at home for now, since it requires building stuff. | |||
1741 | (cuss elpher-ipv4-always t) | 1753 | (cuss elpher-ipv4-always t) |
1742 | 1754 | ||
1743 | (cussface '(elpher-gemini-heading1 | 1755 | (cussface '(elpher-gemini-heading1 |
1744 | ((t (:inherit (modus-theme-heading-1)))))) | 1756 | ((t (:inherit (modus-theme-heading-1 variable-pitch)))))) |
1745 | (cussface '(elpher-gemini-heading2 | 1757 | (cussface '(elpher-gemini-heading2 |
1746 | ((t (:inherit (modus-theme-heading-2)))))) | 1758 | ((t (:inherit (modus-theme-heading-2 variable-pitch)))))) |
1747 | (cussface '(elpher-gemini-heading3 | 1759 | (cussface '(elpher-gemini-heading3 |
1748 | ((t (:inherit (modus-theme-heading-3)))))) | 1760 | ((t (:inherit (modus-theme-heading-3 variable-pitch)))))) |
1749 | 1761 | ||
1750 | (defun elpher:eww-browse-url (original url &optional new-window) | 1762 | (defun elpher:eww-browse-url (original url &optional new-window) |
1751 | "Handle gemini/gopher links with eww." | 1763 | "Handle gemini/gopher links with eww." |
@@ -1761,8 +1773,9 @@ I’m only enabling this at home for now, since it requires building stuff. | |||
1761 | (define-key elpher-mode-map "o" #'elpher-follow-current-link) | 1773 | (define-key elpher-mode-map "o" #'elpher-follow-current-link) |
1762 | (define-key elpher-mode-map "G" #'elpher-go-current)) | 1774 | (define-key elpher-mode-map "G" #'elpher-go-current)) |
1763 | 1775 | ||
1764 | (add-hook 'elpher-mode-hook #'visual-fill-column-mode) | 1776 | (add-hook 'elpher-mode-hook #'acdw/setup-smolweb) |
1765 | 1777 | ||
1778 | (autoload 'elpher-bookmarks "elpher") | ||
1766 | (define-key acdw/map "e" #'elpher-bookmarks) | 1779 | (define-key acdw/map "e" #'elpher-bookmarks) |
1767 | #+end_src | 1780 | #+end_src |
1768 | 1781 | ||
@@ -1782,11 +1795,7 @@ I’m only enabling this at home for now, since it requires building stuff. | |||
1782 | (cussface '(gemini-heading-face3 | 1795 | (cussface '(gemini-heading-face3 |
1783 | ((t (:inherit (elpher-gemini-heading3)))))) | 1796 | ((t (:inherit (elpher-gemini-heading3)))))) |
1784 | 1797 | ||
1785 | (defun acdw/setup-gemini-mode () | 1798 | (add-hook 'gemini-mode-hook #'acdw/setup-smolweb) |
1786 | (visual-fill-column-mode +1) | ||
1787 | (variable-pitch-mode -1)) | ||
1788 | |||
1789 | (add-hook 'gemini-mode-hook #'acdw/setup-gemini-mode) | ||
1790 | #+end_src | 1799 | #+end_src |
1791 | 1800 | ||
1792 | *** Gemini-write | 1801 | *** Gemini-write |
@@ -1794,6 +1803,7 @@ I’m only enabling this at home for now, since it requires building stuff. | |||
1794 | #+begin_src emacs-lisp | 1803 | #+begin_src emacs-lisp |
1795 | (straight-use-package '(gemini-write | 1804 | (straight-use-package '(gemini-write |
1796 | :repo "https://alexschroeder.ch/cgit/gemini-write")) | 1805 | :repo "https://alexschroeder.ch/cgit/gemini-write")) |
1806 | (require 'gemini-write) | ||
1797 | 1807 | ||
1798 | ;; TODO : add tokens ... somehow | 1808 | ;; TODO : add tokens ... somehow |
1799 | #+end_src | 1809 | #+end_src |