Compare commits

...

4 Commits

Author SHA1 Message Date
Marcel Kapfer aa20aa2365
🙈 (work) Add work config repo directory to gitignore
Publish / publish (push) Successful in 11s Details
2023-06-14 18:26:58 +02:00
Marcel Kapfer 4e1a212fc7
(Org) Add org-tree-slide for presentations 2023-06-14 18:25:52 +02:00
Marcel Kapfer 53e5436ab6
(mu4e/work) At shortcut for work-noreply 2023-06-14 18:23:47 +02:00
Marcel Kapfer abf90d727e
🩹 (eshell) Add visual subcommands for docker 2023-06-14 18:20:32 +02:00
2 changed files with 50 additions and 1 deletions

1
.gitignore vendored
View File

@ -77,3 +77,4 @@ projects
/.lsp-eslint-choices
/mastodon.plstore
/lisp/
/work/

View File

@ -1586,6 +1586,47 @@ After I wrote an [[https://mmk2410.org/2022/01/15/improving-my-new-blog-post-cre
#+end_src
** org-tree-slide for presentations
A presentation tool for org-mode based on the visibility of outline trees
GitHub: [[https://github.com/takaxp/org-tree-slide][GitHub:takaxp/org-tree-slide]]
#+begin_src emacs-lisp
(defun mmk2410/presentation-setup ()
(org-display-inline-images) ;; Can also use org-startup-with-inline-images
(setq-local face-remapping-alist '((default (:height 1.5) variable-pitch)
(header-line (:height 4.0) variable-pitch)
(org-document-title (:height 1.75) org-document-title)
(org-code (:height 1.55) org-code)
(org-table (:height 1.55) org-table)
(org-verbatim (:height 1.55) org-verbatim)
(org-block (:height 1.25) org-block)
(org-block-begin-line (:height 0.7) org-block)))
(setq header-line-format " ")
(setq visual-fill-column-width 150)
(hl-line-mode 0))
(defun mmk2410/presentation-end ()
(org-remove-inline-images)
(setq-local face-remapping-alist '((default variable-pitch default)))
(setq header-line-format nil)
(setq visual-fill-column-width 100)
(hl-line-mode 1))
(use-package org-tree-slide
:hook ((org-tree-slide-play . mmk2410/presentation-setup)
(org-tree-slide-stop . mmk2410/presentation-end))
:custom
(org-tree-slide-slide-in-effect t)
(org-tree-slide-activate-message "Presentation started!")
(org-tree-slide-deactivate-message "Presentation finished!")
(org-tree-slide-header t)
(org-tree-slide-breadcrumbs " > ")
(org-image-actual-width nil))
#+end_src
* Org Research Assistant
** Org Roam
@ -2108,7 +2149,11 @@ Resources:
#+begin_src emacs-lisp
(use-package eshell
:bind (("C-c s" . 'eshell)))
:bind (("C-c s" . 'eshell))
:config
(setq eshell-visual-subcommands
'(("docker" "pull" "build")
("docker-compose" "build"))))
#+end_src
* Elfeed
@ -2404,6 +2449,9 @@ I don't really like the default bookmarks that mu4e sets. Thats why I overwrite
'(( :name "Unread work messages"
:key ?w
:query "(flag:unread and m:/work/*) or m:/work/inbox" )
( :name "Unread no-reply work messages"
:key ?n
:query "flag:unread and m:/work-noreply/*" )
( :name "Unread private messages"
:key ?p
:query "(flag:unread and m:/mailbox/*) or m:/mailbox/inbox" )))