From: Andreas Gerler Date: Mon, 29 Jan 2024 10:35:22 +0000 (+0100) Subject: fix syntax X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=0b3dbc46270453019424b900ce0d0f32be5aaa2f;p=emacsconfig.git fix syntax Signed-off-by: Andreas Gerler --- diff --git a/bba-orgmode.org b/bba-orgmode.org index e37222f6..f7c4850e 100644 --- a/bba-orgmode.org +++ b/bba-orgmode.org @@ -492,7 +492,7 @@ remove duplicates in modes like sqli. #+begin_src emacs-lisp (add-hook 'comint-mode-hook - '(lambda () (setq comint-input-ignoredups t))) + #'(lambda () (setq comint-input-ignoredups t))) #+end_src ** comint-write-buffer @@ -1204,25 +1204,25 @@ and call this function. #+BEGIN_SRC emacs-lisp - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/notes.org"))) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) (find-file "~/org/notes.org"))) - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/todo.org"))) - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/workhours.org"))) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) (find-file "~/org/todo.org"))) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) (find-file "~/org/workhours.org"))) (if (equal "work" (getenv "SYSENV")) (progn - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/workorg/work.org"))) - (global-set-key (kbd "C-c S-") '(lambda () (interactive) (find-file "~/workorg/work_archive.org"))) - (global-set-key (kbd "C-c C-") '(lambda () (interactive) (org-id-goto "0C6EAD45-9046-4A56-96C3-3B378A444263"))) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) (find-file "~/workorg/work.org"))) + (global-set-key (kbd "C-c S-") #'(lambda () (interactive) (find-file "~/workorg/work_archive.org"))) + (global-set-key (kbd "C-c C-") #'(lambda () (interactive) (org-id-goto "0C6EAD45-9046-4A56-96C3-3B378A444263"))) ) (progn - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/org/work.org"))) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) (find-file "~/org/work.org"))) )) - (global-set-key (kbd "C-c ") '(lambda () (interactive) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) ( if (file-exists-p "~/org/emacs.org") (find-file "~/org/emacs.org") (find-file "~/.emacs.d/org/emacs.org")))) - (global-set-key (kbd "C-c ") '(lambda () (interactive) (find-file "~/.emacs.d/bba.org"))) + (global-set-key (kbd "C-c ") #'(lambda () (interactive) (find-file "~/.emacs.d/bba.org"))) #+END_SRC @@ -1676,7 +1676,7 @@ TODO: this block should be splitted and moved to the right org files. (auto-fill-mode) (which-function-mode) (flyspell-mode -1) - (define-key org-mode-map "\C-h\C-y" '(lambda () (interactive) (find-file "~/.emacs.d/snippets/org-mode.org"))) + (define-key org-mode-map "\C-h\C-y" #'(lambda () (interactive) (find-file "~/.emacs.d/snippets/org-mode.org"))) (when (display-graphic-p) (progn (rainbow-delimiters-mode)) @@ -1711,7 +1711,7 @@ TODO: this block should be splitted and moved to the right org files. (add-hook 'org-mode-hook (lambda () (auto-fill-mode) - (define-key org-mode-map "\C-h\C-y" '(lambda () (interactive) (find-file "~/.emacs.d/snippets/org-mode.org")))) + (define-key org-mode-map "\C-h\C-y" #'(lambda () (interactive) (find-file "~/.emacs.d/snippets/org-mode.org")))) )) ) diff --git a/bba-programming.org b/bba-programming.org index 94fd746d..f5306058 100644 --- a/bba-programming.org +++ b/bba-programming.org @@ -71,7 +71,7 @@ (define-key cfengine3-mode-map "\C-c," (lambda() (interactive) (browse-url (concat "https://docs.cfengine.com/latest/search.html?q=" (word-at-point))))) - (define-key cfengine3-mode-map "\C-h\C-y" '(lambda () (interactive) (find-file "~/.emacs.d/snippets/cfengine3-mode.org"))) + (define-key cfengine3-mode-map "\C-h\C-y" #'(lambda () (interactive) (find-file "~/.emacs.d/snippets/cfengine3-mode.org"))) )) diff --git a/bba.org b/bba.org index 2084949f..913e6b3b 100644 --- a/bba.org +++ b/bba.org @@ -2505,7 +2505,7 @@ character before any spaces." (define-key global-map "\C-c\S-t" 'visit-tags-table) (define-key global-map "\C-cf" 'tags-search) - (define-key global-map (kbd "s-c") '(lambda () "insertwhichfunc" (interactive)(insert (which-function)))) + (define-key global-map (kbd "s-c") #'(lambda () "insertwhichfunc" (interactive)(insert (which-function)))) (define-key global-map (kbd "s-b") 'clone-indirect-buffer) (define-key global-map (kbd "s-m") 'toggle-maximize-buffer) (define-key global-map (kbd "M-s-m") 'maximize-window) @@ -2552,12 +2552,12 @@ easy access to secrets. #+BEGIN_SRC emacs-lisp (define-prefix-command 'bba/pw) (define-key global-map "\C-xp" bba/pw) - (define-key bba/pw "p" '(lambda () "awsprod" (interactive)(bba-pw-lookup "0DA39906-79C8-4468-AB0A-C72DB613C529"))) - (define-key bba/pw "t" '(lambda () "awstest" (interactive)(bba-pw-lookup "D0518F8B-C724-45B8-8D85-C568DCDD5913"))) - (define-key bba/pw "c" '(lambda () "awscn" (interactive)(bba-pw-lookup "53D5B091-0295-42BA-9D91-4A36055E554B"))) - (define-key bba/pw "s" '(lambda () "sys" (interactive)(bba-pw-lookup "FABC2AFA-E966-4AC3-AEEB-2883DE790DE4"))) - (define-key bba/pw "S" '(lambda () "ssh" (interactive)(bba-pw-lookup "BF852AE1-57B7-4C7F-BE02-F73095D4CD52"))) - (define-key bba/pw "i" '(lambda () "it" (interactive)(bba-pw-lookup "83752B2C-5DE4-4B2F-A306-B191348A2E26"))) + (define-key bba/pw "p" #'(lambda () "awsprod" (interactive)(bba-pw-lookup "0DA39906-79C8-4468-AB0A-C72DB613C529"))) + (define-key bba/pw "t" #'(lambda () "awstest" (interactive)(bba-pw-lookup "D0518F8B-C724-45B8-8D85-C568DCDD5913"))) + (define-key bba/pw "c" #'(lambda () "awscn" (interactive)(bba-pw-lookup "53D5B091-0295-42BA-9D91-4A36055E554B"))) + (define-key bba/pw "s" #'(lambda () "sys" (interactive)(bba-pw-lookup "FABC2AFA-E966-4AC3-AEEB-2883DE790DE4"))) + (define-key bba/pw "S" #'(lambda () "ssh" (interactive)(bba-pw-lookup "BF852AE1-57B7-4C7F-BE02-F73095D4CD52"))) + (define-key bba/pw "i" #'(lambda () "it" (interactive)(bba-pw-lookup "83752B2C-5DE4-4B2F-A306-B191348A2E26"))) (defun bba-pw-lookup (id) @@ -2617,7 +2617,7 @@ function to convert groups of spaces to hard tabs. (define-key bba/launcher "d" 'ediff-buffers) (define-key bba/launcher "e" 'eshell) (define-key bba/launcher "E" 'elfeed) - (define-key bba/launcher "g" '(lambda()"epa-file-encrypt-to"(interactive) (describe-variable 'epa-file-encrypt-to))) + (define-key bba/launcher "g" #'(lambda()"epa-file-encrypt-to"(interactive) (describe-variable 'epa-file-encrypt-to))) (define-key bba/launcher "i" 'ielm) (define-key bba/launcher "k" 'bba/keyboard-maestro) (define-key bba/launcher "l" 'magit-log-buffer-file) @@ -2653,7 +2653,7 @@ function to convert groups of spaces to hard tabs. (define-key global-map "\C-c\C-w" 'fixup-whitespace) (define-key global-map "\M-g\M-d" 'magit-diff-unstaged) - (define-key global-map "\M-g\S-d" '(lambda() + (define-key global-map "\M-g\S-d" #'(lambda() (interactive) (call-interactively 'magit-file-delete) (kill-buffer) diff --git a/custom.el b/custom.el index bb3fa249..0fbb05bc 100644 --- a/custom.el +++ b/custom.el @@ -33,7 +33,7 @@ '("~/org/notes.org" "~/org/motorcycles.org" "~/org/milling.org" "~/org/kitchen.org" "~/org/todo.org")) '(org-startup-folded t) '(package-selected-packages - '(eshell-bookmark eshell-vterm websocket tablist sesman projectile popup pdf-tools parseclj julia-mode ivy eldoc s restclient popwin ox-pandoc key-chord json-snatcher json-reformat ht helm-bibtex go-translate flymake-easy erlang dwim-shell-command direx dired-hacks-utils closql biblio-core auto-complete-pcmp auto-complete flycheck-mmark terraform-doc hcl-mode yaxception yaml ob-graphql emacsql-sqlite docker-cli citeproc spinner symbol-overlay sqlite3 outline-minor-faces forge bibtex-completion detached atomic-chrome org-mac-link noflet pcre2el vterm german-holidays jenkinsfile-mode cider company seq flymake log4e annotate a magit-section bicycle beacon alert graphviz-dot-mode helm-core apache-mode groovy-mode kubel solarized-theme lsp-ui docker-tramp dockerfile-mode yasnippet with-editor treepy transient simple-httpd request markdown-mode magit-popup hydra htmlize hl-todo helm git-commit f elfeed dash-functional dash clomacs clojure-mode async magit org lsp-mode git-link eglot helm-org biblio parsebib parseedn lv yaml-mode xah-lookup x-path-walker visual-regexp visual-ascii-mode vertica-snippets undo-tree twittering-mode tt-mode tldr terraform-mode tabulated-list sx string-inflection string-edit sqlup-mode sokoban smartparens sicp s3ed rhtml-mode restclient-helm rainbow-mode rainbow-delimiters puppet-mode paradox pacmacs package-lint ox-reveal ox-jira ox-clip org-tree-slide org-sticky-header org-ref org-plus-contrib org-mime org-jira org-chef org-ac ob-tmux ob-restclient ob-cfengine3 ob-async neotree mwe-log-commands mustache multiple-cursors mew magit-todos magit-gitflow langtool keyfreq json-mode impatient-mode highlight-symbol helm-swoop helm-safari helm-projectile helm-gtags helm-git helm-descbinds helm-c-yasnippet helm-aws guide-key graphql go-snippets go-mode gnuplot git-timemachine ghub ggtags fullscreen-mode fullframe flymake-yaml flymake-puppet flymake-perlcritic flymake-json flycheck fast-scroll expand-region ess epoch-view engine-mode elfeed-org ejc-sql editorconfig edit-indirect dired-narrow dired+ demo-it debian-changelog-mode csv-nav csv-mode command-log-mode color-identifiers-mode centered-cursor-mode bug-hunter aws-snippets avy ascii artbollocks-mode apples-mode ac-helm)) + '(pinentry eshell-bookmark eshell-vterm websocket tablist sesman projectile popup pdf-tools parseclj julia-mode ivy eldoc s restclient popwin ox-pandoc key-chord json-snatcher json-reformat ht helm-bibtex go-translate flymake-easy erlang dwim-shell-command direx dired-hacks-utils closql biblio-core auto-complete-pcmp auto-complete flycheck-mmark terraform-doc hcl-mode yaxception yaml ob-graphql emacsql-sqlite docker-cli citeproc spinner symbol-overlay sqlite3 outline-minor-faces forge bibtex-completion detached atomic-chrome org-mac-link noflet pcre2el vterm german-holidays jenkinsfile-mode cider company seq flymake log4e annotate a magit-section bicycle beacon alert graphviz-dot-mode helm-core apache-mode groovy-mode kubel solarized-theme lsp-ui docker-tramp dockerfile-mode yasnippet with-editor treepy transient simple-httpd request markdown-mode magit-popup hydra htmlize hl-todo helm git-commit f elfeed dash-functional dash clomacs clojure-mode async magit org lsp-mode git-link eglot helm-org biblio parsebib parseedn lv yaml-mode xah-lookup x-path-walker visual-regexp visual-ascii-mode vertica-snippets undo-tree twittering-mode tt-mode tldr terraform-mode tabulated-list sx string-inflection string-edit sqlup-mode sokoban smartparens sicp s3ed rhtml-mode restclient-helm rainbow-mode rainbow-delimiters puppet-mode paradox pacmacs package-lint ox-reveal ox-jira ox-clip org-tree-slide org-sticky-header org-ref org-plus-contrib org-mime org-jira org-chef org-ac ob-tmux ob-restclient ob-cfengine3 ob-async neotree mwe-log-commands mustache multiple-cursors mew magit-todos magit-gitflow langtool keyfreq json-mode impatient-mode highlight-symbol helm-swoop helm-safari helm-projectile helm-gtags helm-git helm-descbinds helm-c-yasnippet helm-aws guide-key graphql go-snippets go-mode gnuplot git-timemachine ghub ggtags fullscreen-mode fullframe flymake-yaml flymake-puppet flymake-perlcritic flymake-json flycheck fast-scroll expand-region ess epoch-view engine-mode elfeed-org ejc-sql editorconfig edit-indirect dired-narrow dired+ demo-it debian-changelog-mode csv-nav csv-mode command-log-mode color-identifiers-mode centered-cursor-mode bug-hunter aws-snippets avy ascii artbollocks-mode apples-mode ac-helm)) '(package-user-dir "~/.emacs.d/elpa") '(paradox-github-token t) '(safe-local-variable-values @@ -88,5 +88,3 @@ ;; '(show-paren-match ((t (:underline (:color "#07e30d" :style line))))) ;; '(show-paren-mismatch ((t (:underline (:color "red" :style wave))))) ;; '(stripes-face ((t :background "gray0")))) - -