sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 03:33:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor(emacs): move Emacs.org to the root

Browse source
This commit is contained in:
Pavel Korytov 2021-03-27 12:46:14 +03:00
parent cdbeaa1fff
commit c520a1387d
3 changed files with 30 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.emacs.d/custom.el
View file

@ -26,7 +26,7 @@
(:name "drafts" :query "tag:draft")))
'(notmuch-search-oldest-first nil)
'(org-agenda-files
'("~/Documents/org-mode/ETU/sem-10.org" "~/Documents/org-mode/ETU/r&d.org" "~/Documents/org-mode/Personal/misc.org" "~/Documents/org-mode/Job/dig-traject.org" "~/Documents/org-mode/Personal/look-forward.org" "~/Documents/org-mode/ETU/sem-9.org"))
'("~/Documents/org-mode/Personal/life-4.org" "~/Documents/org-mode/ETU/sem-10.org" "~/Documents/org-mode/ETU/r&d.org" "~/Documents/org-mode/Job/dig-traject.org"))
'(org-edit-src-content-indentation 0)
'(send-mail-function 'smtpmail-send-it)
'(sgml-basic-offset 2)

16
.emacs.d/init.el
View file

@ -73,7 +73,7 @@
(defun my/edit-configuration ()
"Open the init file."
(interactive)
(find-file "~/.emacs.d/emacs.org"))
(find-file "~/Emacs.org"))
;; (defun my/edit-exwm-configuration ()
;; "Open the exwm config file."
@ -745,7 +745,8 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(add-hook 'org-src-mode-hook
(lambda ()
(hs-minor-mode 0)))
(hs-minor-mode 0)
(highlight-indent-guides-mode 0)))
(use-package ob-async
:straight t
@ -821,6 +822,17 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:config
(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1))))
(if (not my/lowpower)
(setq org-agenda-category-icon-alist
`(
("work" ,(list (all-the-icons-faicon "cog")) nil nil :ascent center)
("lesson" ,(list (all-the-icons-faicon "book")) nil nil :ascent center)
("education" ,(list (all-the-icons-material "build")) nil nil :ascent center)
("meeting" ,(list (all-the-icons-material "chat")) nil nil :ascent center)
("music" ,(list (all-the-icons-faicon "music")) nil nil :ascent center)
("misc" ,(list (all-the-icons-material "archive")) nil nil :ascent center)
("event" ,(list (all-the-icons-octicon "clock")) nil nil :ascent center))))
(use-package hide-mode-line
:straight t)

28
.emacs.d/emacs.org → Emacs.org
View file

@ -1,4 +1,4 @@
#+PROPERTY: header-args:emacs-lisp :tangle ./init.el :mkdirp yes
#+PROPERTY: header-args:emacs-lisp :tangle ./.emacs.d/init.el :mkdirp yes
#+TODO: CHECK(s) | OFF(o)
Watch out for the GitHub org renderer, it does not show =:tangle no=
@ -113,7 +113,7 @@ Watch out for the GitHub org renderer, it does not show =:tangle no=
(defun my/edit-configuration ()
"Open the init file."
(interactive)
(find-file "~/.emacs.d/emacs.org"))
(find-file "~/Emacs.org"))
;; (defun my/edit-exwm-configuration ()
;; "Open the exwm config file."
@ -945,7 +945,8 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(add-hook 'org-src-mode-hook
(lambda ()
(hs-minor-mode 0)))
(hs-minor-mode 0)
(highlight-indent-guides-mode 0)))
(use-package ob-async
:straight t
@ -1067,16 +1068,17 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1))))
#+end_src
** Org Agenda
#+begin_src emacs-lisp :tangle no
(setq org-agenda-category-icon-alist `(
("work" ,(list (all-the-icons-faicon "cog")) nil nil :ascent center)
("lesson" ,(list (all-the-icons-faicon "book")) nil nil :ascent center)
("education" ,(list (all-the-icons-material "build")) nil nil :ascent center)
("meeting" ,(list (all-the-icons-material "chat")) nil nil :ascent center)
("music" ,(list (all-the-icons-faicon "music")) nil nil :ascent center)
("misc" ,(list (all-the-icons-material "archive")) nil nil :ascent center)
("event" ,(list (all-the-icons-octicon "clock")) nil nil :ascent center)
))
#+begin_src emacs-lisp
(if (not my/lowpower)
(setq org-agenda-category-icon-alist
`(
("work" ,(list (all-the-icons-faicon "cog")) nil nil :ascent center)
("lesson" ,(list (all-the-icons-faicon "book")) nil nil :ascent center)
("education" ,(list (all-the-icons-material "build")) nil nil :ascent center)
("meeting" ,(list (all-the-icons-material "chat")) nil nil :ascent center)
("music" ,(list (all-the-icons-faicon "music")) nil nil :ascent center)
("misc" ,(list (all-the-icons-material "archive")) nil nil :ascent center)
("event" ,(list (all-the-icons-octicon "clock")) nil nil :ascent center))))
#+end_src
** Presentations
#+begin_src emacs-lisp