about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--README.md114
1 files changed, 100 insertions, 14 deletions
diff --git a/README.md b/README.md index 63c5086..302d5dc 100644 --- a/README.md +++ b/README.md
@@ -1434,20 +1434,17 @@ I’m only enabling this at home for now, since it requires building stuff.
1434 (cuss mu4e-confirm-quit nil) 1434 (cuss mu4e-confirm-quit nil)
1435 1435
1436 (cuss mu4e-bookmarks 1436 (cuss mu4e-bookmarks
1437 '(( 1437 '((:name "Unread"
1438 :name "Unread" 1438 :query
1439 :query 1439 "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam"
1440 "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam" 1440 :key ?u)
1441 :key ?u) 1441 (:name "Today"
1442 ( 1442 :query "date:today..now and not and not flag:trashed maildir:/Spam"
1443 :name "Today" 1443 :key ?t)
1444 :query "date:today..now and not maildir:/Spam" 1444 (:name "This week"
1445 :key ?t) 1445 :query "date:7d..now and not maildir:/Spam and not flag:trashed"
1446 ( 1446 :hide-unread t
1447 :name "This week" 1447 :key ?w)))
1448 :query "date:7d..now and not maildir:/Spam"
1449 :hide-unread t
1450 :key ?w)))
1451 1448
1452 (cuss mu4e-headers-fields 1449 (cuss mu4e-headers-fields
1453 '((:human-date . 12) 1450 '((:human-date . 12)
@@ -1456,12 +1453,101 @@ I’m only enabling this at home for now, since it requires building stuff.
1456 (:from-or-to . 22) 1453 (:from-or-to . 22)
1457 (:subject))) 1454 (:subject)))
1458 1455
1456 (cuss mu4e-maildir-shortcuts
1457 `(("/INBOX" . ?i)
1458 (,mu4e-refile-folder . ?a)
1459 (,mu4e-sent-folder . ?s)
1460 (,mu4e-drafts-folder . ?d)
1461 (,mu4e-trash-folder . ?t)))
1462
1459 (defun acdw/setup-mu4e-view-mode () 1463 (defun acdw/setup-mu4e-view-mode ()
1460 (visual-fill-column-mode +1)) 1464 (visual-fill-column-mode +1))
1461 1465
1462 (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode)) 1466 (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode))
1463 1467
1464 1468
1469### Add a keybinding
1470
1471 (defun acdw/mu4e-or-warn ()
1472 "If `mu4e' is around, run it, or tell the user it isn't."
1473 (interactive)
1474 (if (featurep 'mu4e)
1475 (mu4e)
1476 (warn "Mu4e isn't available :/.")))
1477
1478 (define-key acdw/map "m" #'acdw/mu4e-or-warn)
1479
1480
1481## Smolweb
1482
1483
1484### Elpher
1485
1486 (straight-use-package '(elpher
1487 :repo "git://thelambdalab.xyz/elpher.git"))
1488
1489 (with-eval-after-load 'no-littering
1490 (cuss elpher-certificate-directory
1491 (no-littering-expand-var-file-name "elpher-certificates/")))
1492
1493 (cuss elpher-ipv4-always t)
1494
1495 (cussface '(elpher-gemini-heading1
1496 ((t (:inherit (modus-theme-heading-1))))))
1497 (cussface '(elpher-gemini-heading2
1498 ((t (:inherit (modus-theme-heading-2))))))
1499 (cussface '(elpher-gemini-heading3
1500 ((t (:inherit (modus-theme-heading-3))))))
1501
1502 (defun elpher:eww-browse-url (original url &optional new-window)
1503 "Handle gemini/gopher links with eww."
1504 (cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url)
1505 (require 'elpher)
1506 (elpher-go url))
1507 (t (funcall original url new-window))))
1508 (advice-add 'eww-browse-url :around 'elpher:eww-browse-url)
1509
1510 (with-eval-after-load 'elpher
1511 (define-key elpher-mode-map "n" #'elpher-next-link)
1512 (define-key elpher-mode-map "p" #'elpher-prev-link)
1513 (define-key elpher-mode-map "o" #'elpher-follow-current-link)
1514 (define-key elpher-mode-map "G" #'elpher-go-current))
1515
1516 (add-hook 'elpher-mode-hook #'visual-fill-column-mode)
1517
1518 (bind-key acdw/map "e" #'elpher)
1519
1520
1521### Gemini-mode
1522
1523 (straight-use-package '(gemini-mode
1524 :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
1525
1526 (add-to-list 'auto-mode-alist
1527 '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode))
1528
1529 (cussface '(gemini-heading-face-1
1530 ((t (:inherit (elpher-gemini-heading1))))))
1531 (cussface '(gemini-heading-face2
1532 ((t (:inherit (elpher-gemini-heading2))))))
1533 (cussface '(gemini-heading-face3
1534 ((t (:inherit (elpher-gemini-heading3))))))
1535
1536 (defun acdw/setup-gemini-mode ()
1537 (visual-fill-column-mode +1)
1538 (variable-pitch-mode -1))
1539
1540 (add-hook 'gemini-mode-hook #'acdw/setup-gemini-mode)
1541
1542
1543### Gemini-write
1544
1545 (straight-use-package '(gemini-write
1546 :repo "https://alexschroeder.ch/cgit/gemini-write"))
1547
1548 ;; TODO : add tokens ... somehow
1549
1550
1465# Appendices 1551# Appendices
1466 1552
1467 1553