oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs)~rename and rearrange some code

Browse Source
This commit is contained in:
Aryadev Chavali
2021-09-15 12:15:15 +01:00
parent 1ab74174c6
commit 97bb7e9d7f
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Emacs/.config/emacs/config.org
View File

@@ -1259,6 +1259,13 @@ initial startup screen in default Emacs.
:states '(normal motion emacs) :states '(normal motion emacs)
:keymaps 'dashboard-mode-map :keymaps 'dashboard-mode-map
"q" (proc (interactive) (kill-this-buffer))) "q" (proc (interactive) (kill-this-buffer)))
(general-def
:states '(normal motion)
:keymaps 'dashboard-mode-map
"r" #'dashboard-jump-to-recent-files
"p" #'dashboard-jump-to-projects
"}" #'dashboard-next-section
"{" #'dashboard-previous-section)
:init :init
(setq initial-buffer-choice "*dashboard*" (setq initial-buffer-choice "*dashboard*"
dashboard-banner-logo-title "Oreomacs" dashboard-banner-logo-title "Oreomacs"
@@ -1270,15 +1277,7 @@ initial startup screen in default Emacs.
dashboard-items '((projects . 5) dashboard-items '((projects . 5)
(recents . 5))) (recents . 5)))
:config :config
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook))
(general-def
:states '(normal motion)
:keymaps 'dashboard-mode-map
"r" #'dashboard-jump-to-recent-files
"p" #'dashboard-jump-to-projects
"}" #'dashboard-next-section
"{" #'dashboard-previous-section))
#+end_src #+end_src
** EWW ** EWW
#+begin_src emacs-lisp #+begin_src emacs-lisp
@@ -2345,10 +2344,12 @@ opposing style.
#+end_src #+end_src
*** Clang format *** Clang format
Clang format comes in built with clang, so download that before using Clang format comes in built with clang, so download that before using
this. this. Formats C/C++ files depending on a format (checkout the Clang
format [[file:~/Dotfiles/ClangFormat/.clang-format][config file]] in my dotfiles).
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package clang-format (use-package clang-format
:straight nil
:load-path "/usr/share/clang/" :load-path "/usr/share/clang/"
:after cc-mode :after cc-mode
:commands +code/clang-format-region-or-buffer :commands +code/clang-format-region-or-buffer
@@ -2585,7 +2586,7 @@ appropriately.
("mapc" . "∀") ("mapc" . "∀")
("mapcar" . "∀")) ("mapcar" . "∀"))
:config :config
(defun +modded/lisp-indent-function (indent-point state) (defun +dx/lisp-indent-function (indent-point state)
(let ((normal-indent (current-column)) (let ((normal-indent (current-column))
(orig-point (point))) (orig-point (point)))
(goto-char (1+ (elt state 1))) (goto-char (1+ (elt state 1)))
@@ -2634,5 +2635,5 @@ appropriately.
indent-point normal-indent)) indent-point normal-indent))
(method (method
(funcall method indent-point state)))))))) (funcall method indent-point state))))))))
(add-hook 'emacs-lisp-mode-hook (proc (interactive) (setq-local lisp-indent-function #'+modded/lisp-indent-function)))) (add-hook 'emacs-lisp-mode-hook (proc (interactive) (setq-local lisp-indent-function #'+dx/lisp-indent-function))))
#+end_src #+end_src