diff options
| -rwxr-xr-x | init.el | 177 |
1 files changed, 99 insertions, 78 deletions
@@ -1,14 +1,12 @@ -; compatibility with some strange packages that were not updated for emacs 24 - ;; Added by Package.el. This must come before configurations of ;; installed packages. Don't delete this line. If you don't want it, ;; just comment it out by adding a semicolon to the start of the line. ;; You may delete these explanatory comments. (package-initialize) -(defalias 'make-local-hook 'ignore) +; compatibility with some strange packages that were not updated for emacs 24 -(add-to-list 'load-path (expand-file-name "~/.emacs-lisp") t) ; my path at the end +(defalias 'make-local-hook 'ignore) (load "/usr/share/emacs/site-lisp/site-gentoo") @@ -18,27 +16,25 @@ ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(ack-command "ack --nopager ") + '(auth-source-save-behavior nil) '(auto-coding-alist - (quote - (("\\.\\(arc\\|zip\\|lzh\\|zoo\\|jar\\|tar\\|tgz\\)\\'" . no-conversion) + '(("\\.\\(arc\\|zip\\|lzh\\|zoo\\|jar\\|tar\\|tgz\\)\\'" . no-conversion) ("\\.\\(gz\\|Z\\|bz\\|bz2\\|gpg\\)\\'" . no-conversion) - ("^/home/dakkar/.claws-mail/tmp" . utf-8)))) - '(browse-url-browser-function (quote browse-url-generic)) + ("^/home/dakkar/.claws-mail/tmp" . utf-8))) + '(browse-url-browser-function 'browse-url-generic) '(browse-url-generic-program "/usr/bin/firefox") '(browse-url-lynx-input-attempts 10 t) '(browse-url-netscape-program "/usr/bin/firefox") '(c-cleanup-list - (quote - (brace-else-brace brace-elseif-brace brace-catch-brace empty-defun-braces scope-operator))) + '(brace-else-brace brace-elseif-brace brace-catch-brace empty-defun-braces scope-operator)) '(c-echo-syntactic-information-p t) '(c-tab-always-indent nil) '(calendar-week-start-day 1) '(case-fold-search t) '(column-number-mode t) '(confluence-default-space-alist - (quote - (("https://confluence.nap/rpc/xmlrpc" . "TA") - ("https://confluence.nap/rpc/xmlrpc" . "BAK")))) + '(("https://confluence.nap/rpc/xmlrpc" . "TA") + ("https://confluence.nap/rpc/xmlrpc" . "BAK"))) '(confluence-url "https://confluence.nap/rpc/xmlrpc") '(cperl-close-paren-offset -4) '(cperl-continued-statement-offset 4) @@ -48,39 +44,35 @@ '(cperl-under-as-char nil) '(current-language-environment "English") '(default-frame-alist - (quote - ((tool-bar-lines . 0) - (width . 80) - (height . 25) - (right-fringe) - (left-fringe) - (fullscreen . fullheight)))) + '((tool-bar-lines . 0) + (width . 80) + (height . 25) + (right-fringe) + (left-fringe) + (fullscreen . fullheight))) '(desktop-load-locked-desktop t) '(desktop-save t) '(desktop-save-mode t) '(diary-date-forms - (quote - ((month "/" day "[^/0-9]") + '((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W") - (year "-" month "-" day "[^0-9]")))) + (year "-" month "-" day "[^0-9]"))) '(ecb-cedet-url "http://belnet.dl.sourceforge.net/sourceforge/ecb/") '(ecb-download-url "http://belnet.dl.sourceforge.net/sourceforge/ecb/") '(ecb-options-version "2.27") '(emacs-wiki-charset-default "utf-8") - '(emacs-wiki-coding-default (quote utf-8)) + '(emacs-wiki-coding-default 'utf-8) '(emacs-wiki-grep-command "find %D -type f ! -name '*~' | xargs grep -E -n -e \"\\<%W\\>\"") '(emacs-wiki-mode-hook - (quote - (emacs-wiki-use-font-lock footnote-mode highlight-changes-mode))) + '(emacs-wiki-use-font-lock footnote-mode highlight-changes-mode)) '(enable-local-variables t) '(espresso-indent-level 2) '(file-coding-system-alist - (quote - (("\\.po\\'\\|\\.po\\." . po-find-file-coding-system) + '(("\\.po\\'\\|\\.po\\." . po-find-file-coding-system) ("\\.dz\\'" no-conversion . no-conversion) ("\\.g?z\\(~\\|\\.~[0-9]+~\\)?\\'" no-conversion . no-conversion) ("\\.tgz\\'" no-conversion . no-conversion) @@ -93,11 +85,10 @@ ("\\.tar\\'" no-conversion . no-conversion) ("\\.po[tx]?\\'\\|\\.po\\." . po-find-file-coding-system) ("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system) - ("" undecided . utf-8)))) - '(file-name-coding-system (quote utf-8) t) + ("" undecided . utf-8))) + '(file-name-coding-system 'utf-8 t) '(flymake-allowed-file-name-masks - (quote - (("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init nil nil) + '(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init nil nil) ("\\.xml\\'" flymake-xml-init nil nil) ("\\.html?\\'" flymake-xml-init nil nil) ("\\.cs\\'" flymake-simple-make-init nil nil) @@ -108,12 +99,11 @@ ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup nil) ("\\.tex\\'" flymake-simple-tex-init nil nil) ("\\.idl\\'" flymake-simple-make-init nil nil) - ("\\.ino\\'" flymake-simple-make-init nil nil)))) + ("\\.ino\\'" flymake-simple-make-init nil nil))) '(flymake-log-level 0) - '(flymake-master-file-dirs (quote ("." "./src" "./lib" "./t/lib"))) + '(flymake-master-file-dirs '("." "./src" "./lib" "./t/lib")) '(flymake-proc-allowed-file-name-masks - (quote - (("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init nil nil) + '(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init nil nil) ("\\.xml\\'" flymake-xml-init nil nil) ("\\.html?\\'" flymake-xml-init nil nil) ("\\.cs\\'" flymake-simple-make-init nil nil) @@ -124,16 +114,15 @@ ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup nil) ("\\.tex\\'" flymake-simple-tex-init nil nil) ("\\.idl\\'" flymake-simple-make-init nil nil) - ("\\.ino\\'" flymake-simple-make-init nil nil)))) - '(flymake-proc-master-file-dirs (quote ("." "./src" "./lib" "./t/lib"))) + ("\\.ino\\'" flymake-simple-make-init nil nil))) + '(flymake-proc-master-file-dirs '("." "./src" "./lib" "./t/lib")) '(footnote-section-tag-regexp "Notes?\\(\\[.\\]\\)?: ") '(footnote-spaced-footnotes nil) '(global-font-lock-mode t nil (font-lock)) - '(gnus-default-charset (quote iso-8859-15)) - '(gnus-default-posting-charset (quote iso-8859-15)) + '(gnus-default-charset 'iso-8859-15) + '(gnus-default-posting-charset 'iso-8859-15) '(gnus-group-charset-alist - (quote - (("^hk\\>\\|^tw\\>\\|\\<big5\\>" cn-big5) + '(("^hk\\>\\|^tw\\>\\|\\<big5\\>" cn-big5) ("^cn\\>\\|\\<chinese\\>" cn-gb-2312) ("^fj\\>\\|^japan\\>" iso-2022-jp-2) ("^tnn\\>\\|^pin\\>\\|^sci.lang.japan" iso-2022-7bit) @@ -145,22 +134,18 @@ ("^alt.chinese.text.big5\\>" chinese-big5) ("^soc.culture.vietnamese\\>" vietnamese-viqr) ("^\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-15) - (".*" iso-8859-15)))) + (".*" iso-8859-15))) '(gnus-group-posting-charset-alist - (quote - (("^\\(no\\|fr\\)\\.[^,]*\\(,[ -]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-15 - (iso-8859-15)) - ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ -]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r - (koi8-r)) + '(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \11\12]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-15 + (iso-8859-15)) + ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \11\12]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r + (koi8-r)) (message-this-is-mail nil nil) - (message-this-is-news nil t)))) + (message-this-is-news nil t))) '(gnus-ignored-headers - (quote - ("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:" "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:" "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:" "^X-MimeOLE:" "^X-MSMail-Priority:" "^X-Priority:" "^X-Loop:" "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face:" "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:" "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:" "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:" "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:" "^X-Poster:" "^X-Mail2News-Path:" "^X-Server-Date:" "^X-Cache:" "^Originator:" "^X-Problems-To:" "^X-Auth-User:" "^X-Post-Time:" "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+:" "^X-Mailing-List:" "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:" "^X-Orcpt:" "^Old-Received:" "^X-Pgp" "^X-Auth:" "^X-From-Line:" "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:" "^MBOX-Line" "^Priority:" "^X-Pgp" "^X400-[-A-Za-z]+:" "^Status:" "^X-Gnus-Mail-Source:" "^Cancel-Lock:" "^X-FTN" "^X-EXP32-SerialNo:" "^Encoding:" "^Importance:" "^Autoforwarded:" "^Original-Encoded-Information-Types:" "^X-Ya-Pop3:" "^X-Face-Version:" "^X-Vms-To:" "^X-ML-NAME:" "^X-ML-COUNT:" "^Mailing-List:" "^X-finfo:" "^X-md5sum:" "^X-md5sum-Origin:" "^X-Sun-Charset:" "^X-Accept-Language:" "^X-Envelope-Sender:" "^List-[A-Za-z]+:" "^X-Listprocessor-Version:" "^X-Received:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:" "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:" "^X-Received:" "^Content-length:" "X-precedence:"))) + '("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:" "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:" "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:" "^X-MimeOLE:" "^X-MSMail-Priority:" "^X-Priority:" "^X-Loop:" "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face:" "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:" "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:" "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:" "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:" "^X-Poster:" "^X-Mail2News-Path:" "^X-Server-Date:" "^X-Cache:" "^Originator:" "^X-Problems-To:" "^X-Auth-User:" "^X-Post-Time:" "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+:" "^X-Mailing-List:" "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:" "^X-Orcpt:" "^Old-Received:" "^X-Pgp" "^X-Auth:" "^X-From-Line:" "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:" "^MBOX-Line" "^Priority:" "^X-Pgp" "^X400-[-A-Za-z]+:" "^Status:" "^X-Gnus-Mail-Source:" "^Cancel-Lock:" "^X-FTN" "^X-EXP32-SerialNo:" "^Encoding:" "^Importance:" "^Autoforwarded:" "^Original-Encoded-Information-Types:" "^X-Ya-Pop3:" "^X-Face-Version:" "^X-Vms-To:" "^X-ML-NAME:" "^X-ML-COUNT:" "^Mailing-List:" "^X-finfo:" "^X-md5sum:" "^X-md5sum-Origin:" "^X-Sun-Charset:" "^X-Accept-Language:" "^X-Envelope-Sender:" "^List-[A-Za-z]+:" "^X-Listprocessor-Version:" "^X-Received:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:" "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:" "^X-Received:" "^Content-length:" "X-precedence:")) '(gnus-large-newsgroup 2000) - '(gnus-select-method (quote (nntp "news.ngi.it"))) + '(gnus-select-method '(nntp "news.ngi.it")) '(icomplete-mode t nil (icomplete)) '(indent-tabs-mode nil) '(ledger-clear-whole-transactions t) @@ -169,12 +154,15 @@ '(ledger-use-iso-dates t) '(lpr-command "gtklp") '(lpr-switches nil) - '(magit-default-tracking-name-function (quote magit-default-tracking-name-branch-only)) + '(lsp-go-gopls-server-path "/home/dakkar/go/bin/gopls") + '(lsp-prefer-flymake nil) + '(lsp-ui-sideline-show-code-actions t) + '(magit-default-tracking-name-function 'magit-default-tracking-name-branch-only) '(markdown-command "markdown_py") '(menu-bar-mode nil) '(message-signature-file "~/.signature/news.sig") - '(message-signature-separator "^-- [ ]*$") - '(message-subject-re-regexp "^[ ]*\\([Rr][Ee]?:[ ]*\\)*[ ]*") + '(message-signature-separator "^-- [ \11]*$") + '(message-subject-re-regexp "^[ \11]*\\([Rr][Ee]?:[ \11]*\\)*[ \11]*") '(mouse-wheel-follow-mouse t) '(mouse-yank-at-point t) '(msb-mode t nil (msb)) @@ -182,30 +170,27 @@ '(nxml-auto-insert-xml-declaration-flag t) '(nxml-char-ref-display-glyph-flag nil) '(nxml-child-indent 1) - '(nxml-default-buffer-file-coding-system (quote utf-8)) + '(nxml-default-buffer-file-coding-system 'utf-8) '(nxml-slash-auto-complete-flag t) '(package-archives - (quote - (("gnu" . "https://elpa.gnu.org/packages/") - ("melpa" . "https://melpa.org/packages/")))) + '(("gnu" . "https://elpa.gnu.org/packages/") + ("melpa" . "https://melpa.org/packages/"))) '(package-selected-packages - (quote - (gnu-elpa-keyring-update wgrep web-mode unicode-fonts perl6-mode markdown-mode magit-tramp magit-find-file ledger-mode))) + '(editorconfig typescript-mode yasnippet lsp-mode lsp-ui go-mode magit magit-filenotify magit-gh-pulls magit-gitflow magit-vcsh gnu-elpa-keyring-update wgrep web-mode unicode-fonts perl6-mode markdown-mode magit-tramp magit-find-file ledger-mode)) '(pov-external-viewer-command "display") '(pov-help-file "povuser.txt") '(reftex-extra-bindings nil) - '(reftex-label-alist (quote (AMSTeX))) + '(reftex-label-alist '(AMSTeX)) '(rst-adornment-faces-alist - (quote - ((1 . rst-level-1-face) + '((1 . rst-level-1-face) (2 . rst-level-2-face) (3 . rst-level-3-face) (4 . rst-level-4-face) (5 . rst-level-5-face) (6 . rst-level-6-face) (t . font-lock-keyword-face) - (nil . font-lock-keyword-face)))) - '(rst-directive-face (quote font-lock-constant-face)) + (nil . font-lock-keyword-face))) + '(rst-directive-face 'font-lock-constant-face) '(rst-mode-lazy nil) '(ruby-deep-indent-paren nil) '(select-enable-primary t) @@ -216,40 +201,37 @@ "^/home/dakkar/\\.claws-mail/tmp\\|/tmp/\\(Re\\|mutt\\)\\|/draft$") '(sgml-balanced-tag-edit t t) '(sgml-catalog-files - (quote - ("catalog" "/usr/local/lib/sgml/catalog" "/home/dakkar/.emacs-lisp/catalog")) t) + '("catalog" "/usr/local/lib/sgml/catalog" "/home/dakkar/.emacs-lisp/catalog") t) '(sgml-indent-data t t) '(sgml-indent-step 1 t) '(sgml-insert-end-tag-on-new-line t t) '(sgml-live-element-indicator t t) '(sgml-local-catalogs nil t) '(sgml-markup-faces - (quote - ((start-tag . font-lock-builtin-face) + '((start-tag . font-lock-builtin-face) (end-tag . font-lock-builtin-face) (comment . font-lock-comment-face) (pi . bold) (sgml . bold) (doctype . bold) (entity . italic) - (shortref . bold))) t) + (shortref . bold)) t) '(sgml-name-8bit-mode nil) '(sgml-set-face t t) '(sgml-slash-distance nil) '(smiley-regexp-alist nil) '(speedbar-show-unknown-files nil) '(speedbar-supported-extension-expressions - (quote - (".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".f\\(90\\|77\\|or\\)?" ".ada" ".pl" ".tcl" ".m" ".scm" ".pm" ".py" ".s?html" "Makefile\\(\\.in\\)?" ".x[ms]l"))) + '(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".f\\(90\\|77\\|or\\)?" ".ada" ".pl" ".tcl" ".m" ".scm" ".pm" ".py" ".s?html" "Makefile\\(\\.in\\)?" ".x[ms]l")) '(strokes-use-strokes-buffer nil) - '(tex-default-mode (quote latex-mode)) + '(tex-default-mode 'latex-mode) '(tex-dvi-view-command "xdvi") '(tool-bar-mode nil nil (tool-bar)) '(tooltip-delay 1.5) '(tooltip-short-delay 0.2) '(tramp-default-proxies-alist nil) '(truncate-partial-width-windows nil) - '(uniquify-buffer-name-style (quote forward) nil (uniquify)) + '(uniquify-buffer-name-style 'forward nil (uniquify)) '(url-be-asynchronous t) '(url-external-retrieval-args nil) '(url-external-retrieval-program "wget") @@ -257,12 +239,13 @@ '(w3-do-incremental-display t) '(w3-use-terminal-characters nil) '(w3-user-colors-take-precedence t) - '(web-mode-attr-indent-offset nil) + '(warning-suppress-types '((comp))) '(web-mode-code-indent-offset 2) '(web-mode-css-indent-offset 2) '(web-mode-markup-indent-offset 2) '(which-func-mode-global t nil (which-func)) '(widget-use-overlay-change t t) + '(x-gtk-use-native-input nil) '(x-stretch-cursor t)) (custom-set-faces @@ -347,6 +330,7 @@ ; help perl6-mode recognise the new name (add-to-list 'auto-mode-alist '("\\.rakumod\\'" . perl6-mode)) +(add-to-list 'auto-mode-alist '("\\.raku\\'" . perl6-mode)) (add-to-list 'interpreter-mode-alist '("raku" . perl6-mode)) @@ -402,3 +386,40 @@ ; from one of those packages here; see also ; https://www.emacswiki.org/emacs/ELPA (add-hook 'after-init-hook 'unicode-fonts-setup) +(add-hook 'after-init-hook 'gnu-elpa-keyring-update) + +(defun dakkar/perl-indent (beg end) + (interactive "r") + (if (use-region-p) + (cond ((get-text-property beg 'in-pod) + (let* ( + (text (buffer-substring beg end)) + (indented-text (with-temp-buffer + (insert text) + (cperl-mode) + (cperl-indent-region 0 (buffer-size)) + (indent-rigidly 0 (buffer-size) cperl-indent-level) + (buffer-string)))) + (delete-region beg end) + (insert indented-text))) + (t (cperl-indent-region beg end))))) + +(defun dakkar/setup-cperl-mode () + (setq indent-region-function 'dakkar/perl-indent) + (substitute-key-definition + 'indent-region 'dakkar/perl-indent + cperl-mode-map global-map)) + +(add-hook 'cperl-mode-hook 'dakkar/setup-cperl-mode) + +(require 'lsp-mode) +(add-hook 'go-mode-hook 'lsp-deferred) +(add-hook 'lsp-mode-hook (lambda() + (progn + (lsp-ui-mode) + (yas-minor-mode)))) + +(editorconfig-mode 1) + +(add-to-list 'auto-mode-alist '("\\.vue$" . web-mode)) + |