fix syntax

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba-orgmode.org b/bba-orgmode.org
index e37222f6a4ba6126b6eaca7577b0afb8d1394085..f7c4850ecb2c2ab618136a012a1c7fc8c2edd56c 100644 (file)
--- 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 <f5>") '(lambda () (interactive) (find-file "~/org/notes.org")))
+  (global-set-key (kbd "C-c <f5>") #'(lambda () (interactive) (find-file "~/org/notes.org")))
 
-  (global-set-key (kbd "C-c <f7>") '(lambda () (interactive) (find-file "~/org/todo.org")))
-  (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/org/workhours.org")))
+  (global-set-key (kbd "C-c <f7>") #'(lambda () (interactive) (find-file "~/org/todo.org")))
+  (global-set-key (kbd "C-c <f8>") #'(lambda () (interactive) (find-file "~/org/workhours.org")))
   (if (equal "work" (getenv "SYSENV"))
       (progn
-        (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/workorg/work.org")))
-        (global-set-key (kbd "C-c S-<f6>") '(lambda () (interactive) (find-file "~/workorg/work_archive.org")))
-        (global-set-key (kbd "C-c C-<f6>") '(lambda () (interactive) (org-id-goto "0C6EAD45-9046-4A56-96C3-3B378A444263")))
+        (global-set-key (kbd "C-c <f6>") #'(lambda () (interactive) (find-file "~/workorg/work.org")))
+        (global-set-key (kbd "C-c S-<f6>") #'(lambda () (interactive) (find-file "~/workorg/work_archive.org")))
+        (global-set-key (kbd "C-c C-<f6>") #'(lambda () (interactive) (org-id-goto "0C6EAD45-9046-4A56-96C3-3B378A444263")))
         )
     (progn
-      (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/org/work.org")))
+      (global-set-key (kbd "C-c <f6>") #'(lambda () (interactive) (find-file "~/org/work.org")))
       ))
 
-  (global-set-key (kbd "C-c <f9>") '(lambda () (interactive)
+  (global-set-key (kbd "C-c <f9>") #'(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 <f10>") '(lambda () (interactive) (find-file "~/.emacs.d/bba.org")))
+  (global-set-key (kbd "C-c <f10>") #'(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 94fd746d512188a964dbac5d189e0407d1874d5f..f530605896a49e3550bd82b04099137c706e9070 100644 (file)
--- 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 2084949f1ed528a10d1ba51b47f667be2e45c40d..913e6b3bc26f1a0a30923d553924f77a11ad9034 100644 (file)
--- 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 bb3fa249c6b2fee7e181686088d1a0369cf1932f..0fbb05bc0a245e2461db10fb0dcfd340d66c8ed3 100644 (file)
--- 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 a;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&nbpples-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"))))
-
-