moving compilation window to right side

This commit is contained in:
Chris Cochrun 2022-04-01 07:32:52 -05:00
parent 8786fac182
commit e992f58abd
2 changed files with 62 additions and 64 deletions

View file

@ -1022,7 +1022,7 @@ Tempel is another templating system. Also perhaps even more powerful with it's e
I'm going to use projectile to keep my projects inline. I'm going to use projectile to keep my projects inline.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package projectile (use-package projectile
:defer t :ensure t
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -1083,6 +1083,10 @@ Ace link provides an avy like search for links. Upon using the keybindings prese
(display-buffer-in-side-window) (display-buffer-in-side-window)
(side . right) (side . right)
(window-width . 0.4)) (window-width . 0.4))
("*compilation*"
(display-buffer-in-side-window)
(side . right)
(window-width . 0.4))
("*org-roam*" ("*org-roam*"
(display-buffer-in-side-window) (display-buffer-in-side-window)
(side . right) (side . right)
@ -1498,7 +1502,22 @@ Let's start by creating a self contained function of what I'd like started on ev
(display-line-numbers-mode -1) (display-line-numbers-mode -1)
(variable-pitch-mode +1) (variable-pitch-mode +1)
(setq visual-fill-column-width 100 (setq visual-fill-column-width 100
visual-fill-column-center-text t)) visual-fill-column-center-text t)
;;Let's make sure org-mode faces are inheriting fixed pitch faces.
(dolist (face '(org-block
org-block-begin-line
org-block-end-line
org-code
org-document-info-keyword
org-meta-line
org-table
org-date
org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch))
(defun chris/org-agenda-setup () (defun chris/org-agenda-setup ()
(interactive) (interactive)
@ -1507,6 +1526,7 @@ Let's start by creating a self contained function of what I'd like started on ev
(visual-fill-column-mode +1) (visual-fill-column-mode +1)
(display-line-numbers-mode -1) (display-line-numbers-mode -1)
(variable-pitch-mode -1) (variable-pitch-mode -1)
(toggle-truncate-lines +1)
(setq visual-fill-column-width 120 (setq visual-fill-column-width 120
visual-fill-column-center-text t)) visual-fill-column-center-text t))
#+end_src #+end_src
@ -1572,20 +1592,13 @@ Part of this config includes some special capture templates for my work as a you
("r" "Templates for projects") ("r" "Templates for projects")
("rt" "Project-local todo" entry ("rt" "Project-local todo" entry
(file+headline chris/project-todo "Inbox") (file+headline chris/project-todo "Inbox")
"* TODO %?\n%i\n%a" :prepend t) "* TODO %?\n%a\n%i\n" :prepend t)
("rn" "Project-local notes" entry ("rn" "Project-local notes" entry
(file+headline +org-capture-project-notes-file "Inbox") (file+headline chris/project-todo "Notes")
"* %U %?\n%i\n%a" :prepend t) "* %U %?\n%a\n%i\n" :prepend t)
("rc" "Project-local changelog" entry ("rc" "Project-local changelog" entry
(file+headline +org-capture-project-changelog-file "Unreleased") (file+headline chris/project-changelog "Changelog")
"* %U %?\n%i\n%a" :prepend t) "* %U %?\n%a\n%i\n" :prepend t))
("o" "Centralized templates for projects")
("ot" "Project todo" entry #'+org-capture-central-project-todo-file
"* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
("on" "Project notes" entry #'+org-capture-central-project-notes-file
"* %U %?\n %i\n %a" :heading "Notes" :prepend t)
("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file
"* %U %?\n %i\n %a" :heading "Changelog" :prepend t))
org-capture-use-agenda-date t org-capture-use-agenda-date t
org-agenda-timegrid-use-ampm t org-agenda-timegrid-use-ampm t
org-agenda-show-inherited-tags nil org-agenda-show-inherited-tags nil
@ -1620,7 +1633,7 @@ Part of this config includes some special capture templates for my work as a you
"/home/chris/dev/church-presenter/TODO.org" "/home/chris/dev/church-presenter/TODO.org"
"/home/chris/org/lessons/") "/home/chris/org/lessons/")
org-id-method 'ts org-id-method 'ts
org-agenda-tags-column -105) org-agenda-tags-column -75)
(defun chris/org-columns-view () (defun chris/org-columns-view ()
"Turn on org-columns overlay and turn off olivetti-mode" "Turn on org-columns overlay and turn off olivetti-mode"
@ -1641,21 +1654,6 @@ Part of this config includes some special capture templates for my work as a you
(add-hook 'org-agenda-finalize-hook 'evil-normal-state) (add-hook 'org-agenda-finalize-hook 'evil-normal-state)
(add-hook 'org-agenda-finalize-hook 'chris/org-agenda-setup) (add-hook 'org-agenda-finalize-hook 'chris/org-agenda-setup)
;;Let's make sure org-mode faces are inheriting fixed pitch faces.
(dolist (face '(org-block
org-block-begin-line
org-block-end-line
org-code
org-document-info-keyword
org-meta-line
org-table
org-date
org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch)
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 6)))) (setq org-refile-targets '((org-agenda-files . (:maxlevel . 6))))
(setq org-agenda-window-setup 'current-window) (setq org-agenda-window-setup 'current-window)
@ -1717,7 +1715,10 @@ We need to create a lesson capture function to find our lesson files differently
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun chris/project-todo () (defun chris/project-todo ()
(concat (projectile-project-root) "TODO.org")) (concat (projectile-project-root) "TODO.org"))
(defun chris/project-changelog ()
(concat (projectile-project-root) "CHANGELOG.org"))
#+end_src #+end_src
We are also going to make our config auto-tangle. This is so helpful on saving the .org file tangles out the config automatically. We are also going to make our config auto-tangle. This is so helpful on saving the .org file tangles out the config automatically.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun chris/org-babel-tangle-config () (defun chris/org-babel-tangle-config ()

65
init.el
View file

@ -622,7 +622,7 @@ targets."
) )
(use-package projectile (use-package projectile
:defer t :ensure t
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -664,6 +664,10 @@ targets."
(display-buffer-in-side-window) (display-buffer-in-side-window)
(side . right) (side . right)
(window-width . 0.4)) (window-width . 0.4))
("*compilation*"
(display-buffer-in-side-window)
(side . right)
(window-width . 0.4))
("*org-roam*" ("*org-roam*"
(display-buffer-in-side-window) (display-buffer-in-side-window)
(side . right) (side . right)
@ -923,7 +927,22 @@ targets."
(display-line-numbers-mode -1) (display-line-numbers-mode -1)
(variable-pitch-mode +1) (variable-pitch-mode +1)
(setq visual-fill-column-width 100 (setq visual-fill-column-width 100
visual-fill-column-center-text t)) visual-fill-column-center-text t)
;;Let's make sure org-mode faces are inheriting fixed pitch faces.
(dolist (face '(org-block
org-block-begin-line
org-block-end-line
org-code
org-document-info-keyword
org-meta-line
org-table
org-date
org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch))
(defun chris/org-agenda-setup () (defun chris/org-agenda-setup ()
(interactive) (interactive)
@ -932,6 +951,7 @@ targets."
(visual-fill-column-mode +1) (visual-fill-column-mode +1)
(display-line-numbers-mode -1) (display-line-numbers-mode -1)
(variable-pitch-mode -1) (variable-pitch-mode -1)
(toggle-truncate-lines +1)
(setq visual-fill-column-width 120 (setq visual-fill-column-width 120
visual-fill-column-center-text t)) visual-fill-column-center-text t))
@ -992,20 +1012,13 @@ targets."
("r" "Templates for projects") ("r" "Templates for projects")
("rt" "Project-local todo" entry ("rt" "Project-local todo" entry
(file+headline chris/project-todo "Inbox") (file+headline chris/project-todo "Inbox")
"* TODO %?\n%i\n%a" :prepend t) "* TODO %?\n%a\n%i\n" :prepend t)
("rn" "Project-local notes" entry ("rn" "Project-local notes" entry
(file+headline +org-capture-project-notes-file "Inbox") (file+headline chris/project-todo "Notes")
"* %U %?\n%i\n%a" :prepend t) "* %U %?\n%a\n%i\n" :prepend t)
("rc" "Project-local changelog" entry ("rc" "Project-local changelog" entry
(file+headline +org-capture-project-changelog-file "Unreleased") (file+headline chris/project-changelog "Changelog")
"* %U %?\n%i\n%a" :prepend t) "* %U %?\n%a\n%i\n" :prepend t))
("o" "Centralized templates for projects")
("ot" "Project todo" entry #'+org-capture-central-project-todo-file
"* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
("on" "Project notes" entry #'+org-capture-central-project-notes-file
"* %U %?\n %i\n %a" :heading "Notes" :prepend t)
("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file
"* %U %?\n %i\n %a" :heading "Changelog" :prepend t))
org-capture-use-agenda-date t org-capture-use-agenda-date t
org-agenda-timegrid-use-ampm t org-agenda-timegrid-use-ampm t
org-agenda-show-inherited-tags nil org-agenda-show-inherited-tags nil
@ -1040,7 +1053,7 @@ targets."
"/home/chris/dev/church-presenter/TODO.org" "/home/chris/dev/church-presenter/TODO.org"
"/home/chris/org/lessons/") "/home/chris/org/lessons/")
org-id-method 'ts org-id-method 'ts
org-agenda-tags-column -105) org-agenda-tags-column -75)
(defun chris/org-columns-view () (defun chris/org-columns-view ()
"Turn on org-columns overlay and turn off olivetti-mode" "Turn on org-columns overlay and turn off olivetti-mode"
@ -1061,21 +1074,6 @@ targets."
(add-hook 'org-agenda-finalize-hook 'evil-normal-state) (add-hook 'org-agenda-finalize-hook 'evil-normal-state)
(add-hook 'org-agenda-finalize-hook 'chris/org-agenda-setup) (add-hook 'org-agenda-finalize-hook 'chris/org-agenda-setup)
;;Let's make sure org-mode faces are inheriting fixed pitch faces.
(dolist (face '(org-block
org-block-begin-line
org-block-end-line
org-code
org-document-info-keyword
org-meta-line
org-table
org-date
org-verbatim))
(set-face-attribute `,face nil :inherit 'fixed-pitch))
(set-face-attribute 'org-block-end-line nil :inherit 'org-block-begin-line)
(set-face-attribute 'org-quote nil :background "#242631" :inherit 'fixed-pitch)
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 6)))) (setq org-refile-targets '((org-agenda-files . (:maxlevel . 6))))
(setq org-agenda-window-setup 'current-window) (setq org-agenda-window-setup 'current-window)
@ -1132,6 +1130,8 @@ targets."
(defun chris/project-todo () (defun chris/project-todo ()
(concat (projectile-project-root) "TODO.org")) (concat (projectile-project-root) "TODO.org"))
(defun chris/project-changelog ()
(concat (projectile-project-root) "CHANGELOG.org"))
(defun chris/org-babel-tangle-config () (defun chris/org-babel-tangle-config ()
(when (string-equal (buffer-file-name) (when (string-equal (buffer-file-name)
@ -2037,13 +2037,10 @@ interfere with the default `bongo-playlist-buffer'."
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(custom-safe-themes
'("1d44ec8ec6ec6e6be32f2f73edf398620bb721afeed50f75df6b12ccff0fbb15" default))
'(pdf-misc-print-program "/usr/bin/lpr" t) '(pdf-misc-print-program "/usr/bin/lpr" t)
'(pdf-misc-print-program-args '("-o media=Letter" "-o fitplot") t) '(pdf-misc-print-program-args '("-o media=Letter" "-o fitplot") t)
'(safe-local-variable-values '(safe-local-variable-values
'((aggressive-indent-mode) '((projectile-project-run-cmd . "./build/bin/presenter")
(projectile-project-run-cmd . "./build/bin/presenter")
(projectile-project-compilation-cmd . "cmake -DCMAKE_EXPORT_COMPILE_COMMANDS=1 -B build/ . && make --dir build/")))) (projectile-project-compilation-cmd . "cmake -DCMAKE_EXPORT_COMPILE_COMMANDS=1 -B build/ . && make --dir build/"))))
(custom-set-faces (custom-set-faces
;; custom-set-faces was added by Custom. ;; custom-set-faces was added by Custom.