diff options
-rw-r--r-- | README.md | 114 |
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 | ||