chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

changing laptop name to syl

Browse source
This commit is contained in:
Chris Cochrun 2021-03-28 04:44:50 -05:00
parent bd27d8a7a1
commit 9e53f20b10
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
README.org
View file

@ -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. 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 #+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 240)
(defvar chris/default-font-size 120)) (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 #+begin_src emacs-lisp
(defun chris/org-babel-tangle-config () (defun chris/org-babel-tangle-config ()
(when (string-equal (buffer-file-name) (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)) (let ((org-confirm-babel-evaluate nil))
(org-babel-tangle)))) (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 (lambda nil
(let ((path (abbreviate-file-name (eshell/pwd)))) (let ((path (abbreviate-file-name (eshell/pwd))))
(concat (concat
(if (or (string= system-name "archdesktop") (string= system-name "chris-linuxlaptop")) (if (or (string= system-name "archdesktop") (string= system-name "syl"))
nil nil
(format (format
(propertize "\n(%s@%s)" 'face '(:foreground "#606580")) (propertize "\n(%s@%s)" 'face '(:foreground "#606580"))

6
init.el
View file

@ -18,7 +18,7 @@
(blink-cursor-mode -1) (blink-cursor-mode -1)
(column-number-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 240)
(defvar chris/default-font-size 120)) (defvar chris/default-font-size 120))
@ -537,7 +537,7 @@ vertically."
(defun chris/org-babel-tangle-config () (defun chris/org-babel-tangle-config ()
(when (string-equal (buffer-file-name) (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)) (let ((org-confirm-babel-evaluate nil))
(org-babel-tangle)))) (org-babel-tangle))))
@ -1011,7 +1011,7 @@ If on a:
(lambda nil (lambda nil
(let ((path (abbreviate-file-name (eshell/pwd)))) (let ((path (abbreviate-file-name (eshell/pwd))))
(concat (concat
(if (or (string= system-name "archdesktop") (string= system-name "chris-linuxlaptop")) (if (or (string= system-name "archdesktop") (string= system-name "syl"))
nil nil
(format (format
(propertize "\n(%s@%s)" 'face '(:foreground "#606580")) (propertize "\n(%s@%s)" 'face '(:foreground "#606580"))