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

(Emacs)+:auto-insert use-package keyword

Browse Source 
Defines an auto-insert skeleton using the same schema as
~auto-insert-alist~.  This makes the configuration more modular and
the auto-inserts closer to the packages/modes they actually matter in.
This commit is contained in:
Aryadev Chavali
2023-07-13 17:12:59 +01:00
parent 22e8e9011f
commit 15b6f3d943
1 changed files with 135 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1045,99 +1045,30 @@ Honestly didn't find much use for this currently, so disabled.
',skeleton-name))))) ',skeleton-name)))))
#+end_src #+end_src
*** Auto insert *** Auto insert
Allows inserting text on creating of a new buffer with a given name. Allows inserting text immediately upon creating a new buffer with a
Supports skeletons for inserting text. Here I define an HTML skeleton given name. Supports skeletons for inserting text. To make it easier
and a Makefile skeleton. for later systems to define their own auto inserts, I define a
~use-package~ keyword ~auto-insert~ which allows one to define an
entry for ~auto-insert-alist~.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package autoinsert (use-package autoinsert
:straight nil :straight nil
:demand t
:hook (after-init-hook . auto-insert-mode) :hook (after-init-hook . auto-insert-mode)
:config :config
(add-to-list (with-eval-after-load "use-package-core"
'auto-insert-alist (add-to-list 'use-package-keywords ':auto-insert)
'(("LICENSE" . "MIT License") (defun use-package-normalize/:auto-insert (_name-symbol _keyword args)
"" args)
"MIT License (defun use-package-handler/:auto-insert (name _keyword args rest state)
(use-package-concat
Copyright (c) 2023 Aryadev Chavali (use-package-process-keywords name rest state)
(mapcar
Permission is hereby granted, free of charge, to any person obtaining a copy #'(lambda (arg)
of this software and associated documentation files (the \"Software\"), to deal `(add-to-list
in the Software without restriction, including without limitation the rights 'auto-insert-alist
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell ',arg))
copies of the Software, and to permit persons to whom the Software is args)))))
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE."))
(add-to-list
'auto-insert-alist
'(("\\.html\\'" . "HTML Skeleton")
""
"<!doctype html>
<html class='no-js' lang=''>
<head>
<meta charset='utf-8'>
<meta http-equiv='x-ua-compatible' content='ie=edge'>
<title>"(read-string "Enter title: ") | """</title>
<meta name='description' content='" (read-string "Enter description: ") | "" "'>
<meta name='author' content='"user-full-name"'/>
<meta name='viewport' content='width=device-width, initial-scale=1'>
<link rel='apple-touch-icon' href='/apple-touch-icon.png'>
<link rel='shortcut icon' href='/favicon.ico'/>
<!-- Place favicon.ico in the root directory -->
</head>
<body>
<!--[if lt IE 8]>
<p class='browserupgrade'>
You are using an <strong>outdated</strong> browser. Please
<a href='http://browsehappy.com/'>upgrade your browser</a> to improve
your experience.
</p>
<![endif]-->
"
_
" </body>
</html>"))
(add-to-list
'auto-insert-alist
'(("Makefile" . "Makefile skeleton")
""
"CC=gcc
CFLAGS=-Wall -ggdb
OBJECTS=main.o
OUT=main
ARGS=
%.o: %.c
$(CC) $(CFLAGS) -c $^ -o $@
$(OUT): $(OBJECTS)
$(CC) $(CFLAGS) $^ -o $@
.PHONY:
clean:
rm -rfv $(OUT) $(OBJECTS)
.PHONY: run
run: $(OUT)
./$^ $(ARGS)
.PHONY: memcheck
memcheck: $(OUT)
sh /etc/profile.d/debuginfod.sh && valgrind --leak-check=full -s --tool=memcheck ./$^ $(ARGS)"
_)))
#+end_src #+end_src
*** Yasnippet default *** Yasnippet default
Look at the snippets [[file:.config/yasnippet/snippets/][folder]] for all snippets I've got. Look at the snippets [[file:.config/yasnippet/snippets/][folder]] for all snippets I've got.
@@ -2308,7 +2239,38 @@ keymaps.
"[" #'le-thesaurus-get-synonyms "[" #'le-thesaurus-get-synonyms
"]" #'le-thesaurus-get-antonyms)) "]" #'le-thesaurus-get-antonyms))
#+end_src #+end_src
* Programming modes ** Licensing
Defines an auto-insert for LICENSE files. NOTE: The LICENSE is
MIT, but I might change that.
#+begin_src emacs-lisp
(use-package emacs
:straight nil
:auto-insert
(("LICENSE" . "MIT License")
""
"MIT License
Copyright (c) 2023 Aryadev Chavali
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the \"Software\"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE."))
#+end_src
* Programming packages
Packages that help with programming in general, providing IDE like Packages that help with programming in general, providing IDE like
capabilities. capabilities.
** Eldoc ** Eldoc
@@ -2435,6 +2397,39 @@ I give won't do it justice.
:demand t :demand t
:hook :hook
(prog-mode-hook . aggressive-indent-mode)) (prog-mode-hook . aggressive-indent-mode))
** Makefile
Defines an auto-insert for Makefiles. Assumes C but it's very easy to
change it for C++.
#+begin_src emacs-lisp
(use-package emacs
:auto-insert
(("[mM]akefile'" . "Makefile skeleton")
""
"CC=gcc
CFLAGS=-Wall -Wextra -pedantic -ggdb -fsanitize=address
OBJECTS=main.o
OUT=main
ARGS=
%.o: %.c
$(CC) $(CFLAGS) -c $^ -o $@
$(OUT): $(OBJECTS)
$(CC) $(CFLAGS) $^ -o $@
.PHONY:
clean:
rm -rfv $(OUT) $(OBJECTS)
.PHONY: run
run: $(OUT)
./$^ $(ARGS)
.PHONY: memcheck
memcheck: $(OUT)
sh /etc/profile.d/debuginfod.sh && valgrind --leak-check=full -s --tool=memcheck ./$^ $(ARGS)"
_))
#+end_src #+end_src
* Org mode * Org mode
2023-03-30: finally decided to give org mode its own section. 2023-03-30: finally decided to give org mode its own section.
@@ -2956,26 +2951,23 @@ Tons of stuff, namely:
(setq-default c-basic-offset 2) (setq-default c-basic-offset 2)
(setq-default c-auto-newline nil) (setq-default c-auto-newline nil)
(setq-default c-default-style '((other . "user"))) (setq-default c-default-style '((other . "user")))
:auto-insert
(with-eval-after-load "autoinsert" (("\\.c\\'" . "C skeleton")
(let ((skeleton ""
'("" "/* " (file-name-nondirectory (buffer-file-name (current-buffer))) "\n"
"/* " (file-name-nondirectory (buffer-file-name (current-buffer))) "\n" " * Created: " (format-time-string "%Y-%m-%d") "\n"
" * Created: " (format-time-string "%Y-%m-%d") "\n" " * Author: " user-full-name "\n"
" * Author: " user-full-name "\n" " * Description: " _ "\n"
" */\n" " */\n"
"#include <stdio.h>\n" "\n")
"#include <stdlib.h>\n" (("\\.cpp\\'" "C++ skeleton")
"#include <malloc.h>\n" ""
"#include <string.h>\n" "/* " (file-name-nondirectory (buffer-file-name (current-buffer))) "\n"
"\n" " * Created: " (format-time-string "%Y-%m-%d") "\n"
_))) " * Author: " user-full-name "\n"
(define-auto-insert " * Description: " _ "\n"
'("\\.c\\'" . "C skeleton") " */\n"
skeleton) "\n")
(define-auto-insert
'("\\.cpp\\'" . "C++ skeleton")
skeleton)))
:config :config
(c-add-style (c-add-style
"user" "user"
@@ -3275,6 +3267,40 @@ Emmet for super speed code writing.
"M-j" #'emmet-next-edit-point "M-j" #'emmet-next-edit-point
"M-k" #'emmet-prev-edit-point)) "M-k" #'emmet-prev-edit-point))
#+end_src #+end_src
*** HTML Auto insert
#+begin_src emacs-lisp
(use-package web-mode
:auto-insert
(("\\.html\\'" . "HTML Skeleton")
""
"<!doctype html>
<html class='no-js' lang=''>
<head>
<meta charset='utf-8'>
<meta http-equiv='x-ua-compatible' content='ie=edge'>
<title>"(read-string "Enter title: ") | """</title>
<meta name='description' content='" (read-string "Enter description: ") | "" "'>
<meta name='author' content='"user-full-name"'/>
<meta name='viewport' content='width=device-width, initial-scale=1'>
<link rel='apple-touch-icon' href='/apple-touch-icon.png'>
<link rel='shortcut icon' href='/favicon.ico'/>
<!-- Place favicon.ico in the root directory -->
</head>
<body>
<!--[if lt IE 8]>
<p class='browserupgrade'>
You are using an <strong>outdated</strong> browser. Please
<a href='http://browsehappy.com/'>upgrade your browser</a> to improve
your experience.
</p>
<![endif]-->
"
_
" </body>
</html>"))
#+end_src
** Typescript ** Typescript
Kinda expressive, interesting. Kinda expressive, interesting.
#+begin_src emacs-lisp #+begin_src emacs-lisp