From 9e53f20b1095a686c1d0a831381e667731ceedd1 Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Sun, 28 Mar 2021 04:44:50 -0500 Subject: [PATCH 1/2] changing laptop name to syl --- README.org | 6 +++--- init.el | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/README.org b/README.org index 7f7b1ce5..1af25d99 100644 --- a/README.org +++ b/README.org @@ -71,7 +71,7 @@ Let's start by making some basic ui changes like turning off the scrollbar, tool In order to have this config work on both my desktop with regular joe-schmoe monitors and my laptop with new-hotness HiDPI monitor, I will set the font size if my system is the laptop to much higher. #+begin_src emacs-lisp -(if (string-equal (system-name) "chris-linuxlaptop") +(if (string-equal (system-name) "syl") (defvar chris/default-font-size 240) (defvar chris/default-font-size 120)) @@ -808,7 +808,7 @@ We are also going to make our config auto-tangle. This is so helpful on saving t #+begin_src emacs-lisp (defun chris/org-babel-tangle-config () (when (string-equal (buffer-file-name) - (expand-file-name "~/.dotemacs/README.org")) + (expand-file-name "~/.emacs.d/README.org")) (let ((org-confirm-babel-evaluate nil)) (org-babel-tangle)))) @@ -1333,7 +1333,7 @@ Let's add our own eshell prompt. and set the password cache to a significantly h (lambda nil (let ((path (abbreviate-file-name (eshell/pwd)))) (concat - (if (or (string= system-name "archdesktop") (string= system-name "chris-linuxlaptop")) + (if (or (string= system-name "archdesktop") (string= system-name "syl")) nil (format (propertize "\n(%s@%s)" 'face '(:foreground "#606580")) diff --git a/init.el b/init.el index 2f3c2d03..15e836f3 100644 --- a/init.el +++ b/init.el @@ -18,7 +18,7 @@ (blink-cursor-mode -1) (column-number-mode +1) -(if (string-equal (system-name) "chris-linuxlaptop") +(if (string-equal (system-name) "syl") (defvar chris/default-font-size 240) (defvar chris/default-font-size 120)) @@ -537,7 +537,7 @@ vertically." (defun chris/org-babel-tangle-config () (when (string-equal (buffer-file-name) - (expand-file-name "~/.dotemacs/README.org")) + (expand-file-name "~/.emacs.d/README.org")) (let ((org-confirm-babel-evaluate nil)) (org-babel-tangle)))) @@ -1011,7 +1011,7 @@ If on a: (lambda nil (let ((path (abbreviate-file-name (eshell/pwd)))) (concat - (if (or (string= system-name "archdesktop") (string= system-name "chris-linuxlaptop")) + (if (or (string= system-name "archdesktop") (string= system-name "syl")) nil (format (propertize "\n(%s@%s)" 'face '(:foreground "#606580")) From 15a4ac6f395aefea52bef3c560aa51a38c746b76 Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Mon, 29 Mar 2021 10:45:51 -0500 Subject: [PATCH 2/2] Adding view in browser to mu4e --- README.org | 5 +++++ init.el | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/README.org b/README.org index 15002099..8c495157 100644 --- a/README.org +++ b/README.org @@ -1202,6 +1202,11 @@ If on a: (:from . 22) (:subject))) + (setq mu4e-view-actions + '(("capture message" . mu4e-action-capture-message) + ("view in browser" . mu4e-action-view-in-browser) + ("show this thread" . mu4e-action-show-thread))) + (defun chris/setup-mu4e-headers () (toggle-truncate-lines +1) (display-line-numbers-mode -1)) diff --git a/init.el b/init.el index f18b0901..3a1bc4f0 100644 --- a/init.el +++ b/init.el @@ -901,6 +901,11 @@ If on a: (:from . 22) (:subject))) + (setq mu4e-view-actions + '(("capture message" . mu4e-action-capture-message) + ("view in browser" . mu4e-action-view-in-browser) + ("show this thread" . mu4e-action-show-thread))) + (defun chris/setup-mu4e-headers () (toggle-truncate-lines +1) (display-line-numbers-mode -1))