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

feat(emacs): conditions for pntk

Browse source
This commit is contained in:
Pavel Korytov 2020-12-31 09:48:31 +03:00
parent e4bbb752a0
commit ac499424a9
2 changed files with 30 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
.emacs.d/emacs.org
View file

@ -22,6 +22,10 @@
(straight-use-package 'use-package)
(eval-when-compile (require 'use-package))
#+end_src
** System
#+begin_src emacs-lisp
(setq my/lowpower (string= (system-name) "pntk"))
#+end_src
** Load user files
#+begin_src emacs-lisp
(defconst user-init-dir
@ -79,7 +83,7 @@
#+begin_src emacs-lisp
(use-package which-key
:config
(setq which-key-idle-delay 0.3)
(setq which-key-idle-delay (if my/lowpower 1 0.3))
(setq which-key-popup-type 'frame)
(which-key-mode)
(which-key-setup-side-window-bottom)
@ -163,7 +167,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package evil-collection
:straight t
:config
(evil-collection-init '(eww dired dasboard company vterm flycheck ebuku)))
(evil-collection-init '(eww dired company vterm flycheck profiler)))
(use-package evil-quickscope
:straight t
@ -191,6 +195,9 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(my-leader-def "?" 'which-key-show-top-level)
(my-leader-def "E" 'eval-expression)
(my-leader-def "Ps" 'profiler-start)
(my-leader-def "Pe" 'profiler-stop)
(my-leader-def "Pp" 'profiler-report)
#+end_src
*** Help
#+begin_src emacs-lisp
@ -424,11 +431,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t
:config
(global-company-mode)
(setq company-idle-delay 0.125)
(setq company-idle-delay (if my/lowpower 0.5 0.125))
(setq company-show-numbers t))
(use-package company-box
:straight t
:if (not my/lowpower)
:hook (company-mode . company-box-mode))
(general-imap "C-SPC" 'company-complete)
@ -613,6 +621,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package all-the-icons-dired
:straight t
:if (not my/lowpower)
:config
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode))
@ -948,10 +957,11 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(setq doom-modeline-minor-modes nil)
(setq doom-modeline-buffer-state-icon nil))
#+end_src
** Emoji
** CHECK Emoji
#+begin_src emacs-lisp
(use-package emojify
:straight t
:if (not my/lowpower)
:hook (after-init . global-emojify-mode))
#+end_src
** Icons
@ -959,7 +969,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package all-the-icons
:straight t)
#+end_src
** Dashboard
** OFF Dashboard
#+begin_src emacs-lisp
;; (use-package dashboard
;; :straight t
@ -994,6 +1004,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
#+begin_src emacs-lisp
(use-package highlight-indent-guides
:straight t
:if (not my/lowpower)
:hook (
(prog-mode . highlight-indent-guides-mode)
(vue-mode . highlight-indent-guides-mode)
@ -1004,6 +1015,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package rainbow-delimiters
:straight t
:if (not my/lowpower)
:config
(add-hook 'org-mode-hook #'rainbow-delimiters-mode)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))

16
.emacs.d/init.el
View file

@ -14,6 +14,8 @@
(straight-use-package 'use-package)
(eval-when-compile (require 'use-package))
(setq my/lowpower (string= (system-name) "pntk"))
(defconst user-init-dir
(cond ((boundp 'user-emacs-directory)
user-emacs-directory)
@ -53,7 +55,7 @@
(use-package which-key
:config
(setq which-key-idle-delay 0.3)
(setq which-key-idle-delay (if my/lowpower 1 0.3))
(setq which-key-popup-type 'frame)
(which-key-mode)
(which-key-setup-side-window-bottom)
@ -126,7 +128,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package evil-collection
:straight t
:config
(evil-collection-init '(eww dired dasboard company vterm flycheck ebuku)))
(evil-collection-init '(eww dired company vterm flycheck profiler)))
(use-package evil-quickscope
:straight t
@ -151,6 +153,9 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(my-leader-def "?" 'which-key-show-top-level)
(my-leader-def "E" 'eval-expression)
(my-leader-def "Ps" 'profiler-start)
(my-leader-def "Pe" 'profiler-stop)
(my-leader-def "Pp" 'profiler-report)
(my-leader-def
:infix "h"
@ -366,11 +371,12 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
:straight t
:config
(global-company-mode)
(setq company-idle-delay 0.125)
(setq company-idle-delay (if my/lowpower 0.5 0.125))
(setq company-show-numbers t))
(use-package company-box
:straight t
:if (not my/lowpower)
:hook (company-mode . company-box-mode))
(general-imap "C-SPC" 'company-complete)
@ -523,6 +529,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package all-the-icons-dired
:straight t
:if (not my/lowpower)
:config
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode))
@ -815,6 +822,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package emojify
:straight t
:if (not my/lowpower)
:hook (after-init . global-emojify-mode))
(use-package all-the-icons
@ -849,6 +857,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package highlight-indent-guides
:straight t
:if (not my/lowpower)
:hook (
(prog-mode . highlight-indent-guides-mode)
(vue-mode . highlight-indent-guides-mode)
@ -859,6 +868,7 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
(use-package rainbow-delimiters
:straight t
:if (not my/lowpower)
:config
(add-hook 'org-mode-hook #'rainbow-delimiters-mode)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))