Emacs: Convert regular expressions to normal syntax.

This commit is contained in:
tastytea 2019-12-26 08:44:45 +01:00
parent 2cf765ea69
commit 67f180d1bd
8 changed files with 40 additions and 39 deletions

View File

@ -1,6 +1,6 @@
;;; buffers.el --- Default settings for buffers. -*- lexical-binding: t; -*- ;;; buffers.el --- Default settings for buffers. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-11-25T20:52:35+00:00> ;; Time-stamp: <2019-12-26T07:37:53+00:00>
;;; Commentary: ;;; Commentary:
;; * Setup scratch buffer. ;; * Setup scratch buffer.
@ -64,11 +64,12 @@
:config :config
(setq clean-buffer-list-kill-regexps ; Add these to special buffers. (setq clean-buffer-list-kill-regexps ; Add these to special buffers.
(nconc clean-buffer-list-kill-regexps (nconc clean-buffer-list-kill-regexps
'("\\`magit-?.*:" '("^magit-?.*:"
"\\.log\\'" "\\.log$"
"\\`\\*rdm\\*\\'" "^\\*rdm\\*$"
"\\`\\*Backtrace\\*\\'" "^\\*Backtrace\\*$"
"\\`Pfuture-Callback"))) "^Pfuture-Callback"
)))
(midnight-mode t) (midnight-mode t)
) )

View File

@ -1,6 +1,6 @@
;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*- ;;; server.el --- Set up network stuff.. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-11-04T19:43:41+00:00> ;; Time-stamp: <2019-12-26T07:39:57+00:00>
;;; Commentary: ;;; Commentary:
@ -57,11 +57,11 @@
:custom :custom
(edit-server-url-major-mode-alist (edit-server-url-major-mode-alist
'( '(
("\\`likeable\\.space/" . markdown-mode) ("^likeable\\.space/" . markdown-mode)
("\\`schlomp\\.space/" . markdown-mode) ("^schlomp\\.space/" . markdown-mode)
("\\`wiki\\.gentoo\\.org/" . mediawiki-mode) ("^wiki\\.gentoo\\.org/" . mediawiki-mode)
("\\`github\\.com/" . markdown-mode) ("^github\\.com/" . markdown-mode)
("\\`gitlab\\.com/" . markdown-mode) ("^gitlab\\.com/" . markdown-mode)
)) ))
:config :config

View File

@ -1,6 +1,6 @@
;;; c++.el --- C++ settings. -*- lexical-binding: t; -*- ;;; c++.el --- C++ settings. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-12-19T18:21:05+00:00> ;; Time-stamp: <2019-12-26T07:40:19+00:00>
;;; Commentary: ;;; Commentary:
@ -139,8 +139,8 @@
:unless (string-match-p "gentoo" operating-system-release) :unless (string-match-p "gentoo" operating-system-release)
:mode :mode
("CMakeLists\\.txt\\'" . cmake-mode) ("CMakeLists\\.txt$" . cmake-mode)
("\\.cmake\\'" . cmake-mode) ("\\.cmake$" . cmake-mode)
) )
;; CMake reference. ;; CMake reference.

View File

@ -161,16 +161,16 @@
:config :config
(add-to-list 'auto-insert-alist (add-to-list 'auto-insert-alist
'(("\\.\\(cpp\\|cc\\|cxx\\|c\\+\\+\\)\\'" . "C++ program") . '(("\\.\\(cpp\\|cc\\|cxx\\|c\\+\\+\\)$" . "C++ program") .
["cpp" my/autoinsert-yas-expand])) ["cpp" my/autoinsert-yas-expand]))
(add-to-list 'auto-insert-alist (add-to-list 'auto-insert-alist
'(("\\.\\(hpp\\|hh\\|hxx\\|h\\+\\+\\)\\'" . "C++ header") . '(("\\.\\(hpp\\|hh\\|hxx\\|h\\+\\+\\)$" . "C++ header") .
["hpp" my/autoinsert-yas-expand])) ["hpp" my/autoinsert-yas-expand]))
(add-to-list 'auto-insert-alist (add-to-list 'auto-insert-alist
'(("\\.[1-9]\\.adoc\\'" . "AsciiDoc manpage") . '(("\\.[1-9]\\.adoc$" . "AsciiDoc manpage") .
["manpage.adoc" my/autoinsert-yas-expand])) ["manpage.adoc" my/autoinsert-yas-expand]))
(add-to-list 'auto-insert-alist (add-to-list 'auto-insert-alist
'(("\\.user.js\\'" . "Userscript") . '(("\\.user.js$" . "Userscript") .
["user.js" my/autoinsert-yas-expand])) ["user.js" my/autoinsert-yas-expand]))
:hook :hook

View File

@ -1,6 +1,6 @@
;;; latex.el --- Settings for LaTeX. -*- lexical-binding: t; -*- ;;; latex.el --- Settings for LaTeX. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-11-14T23:33:19+00:00> ;; Time-stamp: <2019-12-26T07:41:35+00:00>
;;; Commentary: ;;; Commentary:
@ -18,7 +18,7 @@
(TeX-engine 'xetex) (TeX-engine 'xetex)
:mode :mode
("\\.tex\\'" . LaTeX-mode) ("\\.tex$" . LaTeX-mode)
:config :config
;; To have the buffer refresh after compilation. ;; To have the buffer refresh after compilation.

View File

@ -1,6 +1,6 @@
;;; misc.el --- Miscellaneous file formats. -*- lexical-binding: t; -*- ;;; misc.el --- Miscellaneous file formats. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-12-19T00:36:29+00:00> ;; Time-stamp: <2019-12-26T07:43:33+00:00>
;;; Commentary: ;;; Commentary:
@ -10,9 +10,9 @@
(use-package conf-mode (use-package conf-mode
:mode :mode
("\\`/etc/conf\\.d/" . conf-mode) ; openrc config files. ("^/etc/conf\\.d/" . conf-mode) ; openrc config files.
("\\`/etc/portage/package\\.use/" . conf-space-mode) ; Portage config. ("^/etc/portage/package\\.use/" . conf-space-mode) ; Portage config.
("\\`/etc/portage/package\\.accept_keywords/" . conf-space-mode) ("^/etc/portage/package\\.accept_keywords/" . conf-space-mode)
("\\.pc\\(\\.in\\)?$" . conf-mode) ; pkg-config files. ("\\.pc\\(\\.in\\)?$" . conf-mode) ; pkg-config files.
("conanfile\\.txt$" . conf-mode) ; Conan recipes. ("conanfile\\.txt$" . conf-mode) ; Conan recipes.
) )
@ -24,7 +24,7 @@
:mode :mode
("/cron\\.d/" . crontab-mode) ("/cron\\.d/" . crontab-mode)
("\\`'/etc/crontab\\'" . crontab-mode) ("^'/etc/crontab$" . crontab-mode)
:hook :hook
(crontab-mode . (lambda () (auto-fill-mode -1))) ; No word-wrapping. (crontab-mode . (lambda () (auto-fill-mode -1))) ; No word-wrapping.
@ -43,14 +43,14 @@
(use-package yaml-mode (use-package yaml-mode
:mode :mode
("\\.yml\\'" . yaml-mode) ("\\.yml$" . yaml-mode)
) )
(use-package mediawiki) (use-package mediawiki)
(use-package csv-mode (use-package csv-mode
:mode :mode
("\\.[Cc][Ss][Vv]\\'" . csv-mode) ("\\.[Cc][Ss][Vv]$" . csv-mode)
) )
(use-package adoc-mode (use-package adoc-mode
@ -79,7 +79,7 @@
(markup-verbatim-face ((t (:background "gray5")))) (markup-verbatim-face ((t (:background "gray5"))))
:mode :mode
("\\.adoc\\'" . adoc-mode) ("\\.adoc$" . adoc-mode)
:hook :hook
(adoc-mode . auto-fill-mode) ; Wrap at fill-column. (adoc-mode . auto-fill-mode) ; Wrap at fill-column.
@ -113,9 +113,9 @@
:weight bold)))) :weight bold))))
:mode :mode
(("README\\.md\\'" . gfm-mode) (("README\\.md$" . gfm-mode)
("\\.md\\'" . markdown-mode) ("\\.md$" . markdown-mode)
("\\.markdown\\'" . markdown-mode)) ("\\.markdown$" . markdown-mode))
:hook :hook
(markdown-mode . auto-fill-mode) ; Wrap at fill-column. (markdown-mode . auto-fill-mode) ; Wrap at fill-column.

View File

@ -1,6 +1,6 @@
;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*- ;;; tools.el --- Configure text tools. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-11-24T18:25:06+00:00> ;; Time-stamp: <2019-12-26T07:42:10+00:00>
;;; Commentary: ;;; Commentary:
@ -32,7 +32,7 @@
) )
;; Open manpages in new window. ;; Open manpages in new window.
(setq display-buffer-alist '(("\\`\\*WoMan" display-buffer-pop-up-window))) (setq display-buffer-alist '(("^\\*WoMan" display-buffer-pop-up-window)))
:bind :bind
("C-<f1>" . my/woman-topic-at-point) ("C-<f1>" . my/woman-topic-at-point)
) )

View File

@ -1,6 +1,6 @@
;;; web.el --- Settings for web stuff. -*- lexical-binding: t; -*- ;;; web.el --- Settings for web stuff. -*- lexical-binding: t; -*-
;; Time-stamp: <2019-10-14T15:23:46+00:00> ;; Time-stamp: <2019-12-26T07:41:59+00:00>
;;; Commentary: ;;; Commentary:
@ -16,9 +16,9 @@
(use-package web-mode (use-package web-mode
:mode :mode
("\\.p?html?\\'" . web-mode) ("\\.p?html?$" . web-mode)
("\\.tmpl\\'" . web-mode) ; Gitea templates. ("\\.tmpl$" . web-mode) ; Gitea templates.
("\\.php\\'" . web-mode) ("\\.php$" . web-mode)
:hook :hook
(web-mode . (lambda () (set-fill-column 100))) (web-mode . (lambda () (set-fill-column 100)))
@ -35,7 +35,7 @@
:height 1.4)))) :height 1.4))))
:mode :mode
("\\.epub\\'" . nov-mode) ("\\.epub$" . nov-mode)
) )
(provide 'text/web) (provide 'text/web)