From: Andreas Gerler Date: Wed, 14 Dec 2022 10:20:42 +0000 (+0100) Subject: adjust org-agenda view X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=a89ac32e077537a1a718dcfa093b1469124b3fa5;p=emacsconfig.git adjust org-agenda view Signed-off-by: Andreas Gerler --- diff --git a/bba-orgmode.org b/bba-orgmode.org index 74caa8bd..37942160 100644 --- a/bba-orgmode.org +++ b/bba-orgmode.org @@ -82,6 +82,12 @@ this is how your firefox bookmark must look like: #+END_SRC +We want to see the next weeks as well in the agenda. + +#+begin_src emacs-lisp + (setq org-agenda-span 30) +#+end_src + ** org sync to icloud [2022-09-07 Wed 11:11] diff --git a/custom.el b/custom.el index f7a8b3e7..b98634ca 100644 --- a/custom.el +++ b/custom.el @@ -7,9 +7,10 @@ ["black" "red3" "green3" "yellow3" "LightSkyBlue1" "magenta3" "cyan3" "gray90"]) '(aws-snippets-ec2-list-instances-query '("Reservations[].Instances[].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Schedule`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime]" "Reservations[].Instances[].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Schedule`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime, IamInstanceProfile.Arn]" "Reservations[].Instances[].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Schedule`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime, KeyName]" "Reservations[].Instances[?IamInstanceProfile.Arn==null].[Tags[?Key==`Name`].Value[] | [0],Tags[?Key==`Type`].Value[] | [0],Tags[?Key==`Project`].Value[] | [0],InstanceId, State.Name, PublicDnsName, InstanceType,Placement.AvailabilityZone,LaunchTime, IamInstanceProfile.Arn]")) - '(aws-snippets-profiles '("test" "prod" "cn")) + '(aws-snippets-profiles '("test" "prod" "cn-prod")) '(aws-snippets-regions '("us-east-1" "eu-west-1" "ap-southeast-1" "cn-north-1")) '(blink-cursor-mode t) + '(bmkp-last-as-first-bookmark-file "~/workorg/bookmarks") '(cfengine-parameters-indent '(promise pname 2)) '(custom-safe-themes '("8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" default)) @@ -17,6 +18,7 @@ '(grep-template "grep -i -nH -e ") '(helm-comint-mode-list '(comint-mode slime-repl-mode sql-interactive-mode)) '(history-length 1000) + '(kubel-use-namespace-list 'on) '(magit-commit-arguments '("--signoff" "--gpg-sign=43BA01102D205F88")) '(magit-commit-signoff t) '(magit-git-global-arguments '("--no-pager")) @@ -24,8 +26,13 @@ '(magit-log-margin '(t "%Y-%m-%d %H:%M " magit-log-margin-width t 18)) '(magit-pull-arguments nil) '(magit-repo-dirs '("~/git")) + '(org-mobile-directory + "~/Library/Mobile Documents/iCloud~com~mobileorg~mobileorg/Documents/") + '(org-mobile-files + '("~/org/notes.org" "~/org/motorcycles.org" "~/org/milling.org" "~/org/kitchen.org" "~/org/todo.org")) + '(org-startup-folded t) '(package-selected-packages - '(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)) + '(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 @@ -34,7 +41,18 @@ (bba-keep-whitespaces . 1))) '(template-default-directories '("~/.emacs.d/templates/")) '(toolbar-visible-p nil) - '(vc-handled-backends '(RCS CVS SVN SCCS Bzr Hg Arch))) + '(vc-handled-backends '(RCS CVS SVN SCCS Bzr Hg Arch)) + '(warning-suppress-types + '((comp) + (comp) + (comp) + (comp) + (comp) + (comp) + (comp) + (comp) + (comp) + (comp)))) (defcustom sql-mysql-program "~/bin/mysql" "*Command to start mysql by mysqlDB." :type 'file @@ -46,6 +64,7 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. + '(default ((t (:inherit nil :extend nil :stipple nil :background "#282828" :foreground "#07e30d" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry "nil" :family "Menlo")))) '(org-block ((t (:inherit shadow :background "#29759c" :foreground "#84cbef" :distant-forground "#131313" :extend t)))) '(org-block-begin-line ((t (:background "#07538a" :foreground "#84cbef" :extend t)))) '(org-block-end-line ((t (:inherit org-block-begin-line)))) diff --git a/elpa/apples-mode-20110121.418/apples-mode.el b/elpa/apples-mode-20110121.418/apples-mode.el index 45bf6edf..ee16459e 100644 --- a/elpa/apples-mode-20110121.418/apples-mode.el +++ b/elpa/apples-mode-20110121.418/apples-mode.el @@ -65,7 +65,7 @@ ;;; Code: -(require 'cl) +; (require 'cl) (require 'easymenu) (require 'newcomment) @@ -129,7 +129,7 @@ the same directory where apples-mode.el is located." "apples-tmp-dir"))))) (unless (file-directory-p dir) (mkdir dir t)) - (loop for file in (apples-plist-get :tmp-files) + (cl-loop for file in (apples-plist-get :tmp-files) for tmp = (format "%s/%s.applescript" dir file) do (set file tmp) @@ -293,7 +293,7 @@ nothing (nil). See also `apples-end-completion-hl-duration'." :group 'apples) ;; Faces -(macrolet ((face (name &rest attrs) +(cl-macrolet ((face (name &rest attrs) `(defface ,(intern (format "apples-%s" name)) '((t (,@attrs))) ,(subst-char-in-string ?- ? (format "Face for %s." name)) @@ -784,7 +784,7 @@ are skipped.\n - Lines whose bol is in string or in comment - Comments" (save-excursion - (loop initially (beginning-of-line) + (cl-loop initially (beginning-of-line) while (not (bobp)) do (forward-line -1) unless (or (looking-at "\\s-*$") @@ -930,7 +930,7 @@ whitespaces are deleted." ;; end completion (defconst apples-statements - `(,@(loop for word in '("considering" "ignoring" "try" "if" + `(,@(cl-loop for word in '("considering" "ignoring" "try" "if" "repeat" "tell" "using terms from") collect (cons word word)) ("with timeout" . "timeout" ) @@ -953,20 +953,20 @@ whitespaces are deleted." (catch 'val (save-excursion (while (/= (point) min) - (catch 'loop + (catch 'cl-loop (if (null (setq bol (apples-ideal-prev-bol))) (throw 'val nils) (goto-char bol) (setq lstr (apples-line-string)) (if (string-match "^end\\>" lstr) (incf count) - (loop for (beg . end) in apples-statements + (cl-loop for (beg . end) in apples-statements when (and (string-match (concat "^" beg "\\>") lstr) (not (apples-string-match apples-noindent-regexps lstr))) do (if (zerop (decf count)) (throw 'val (values bol beg end)) - (throw 'loop nil)) + (throw 'cl-loop nil)) finally ;; in case of `on' (when (and (string-match (concat "^on \\(" @@ -1193,7 +1193,7 @@ specified, also highlight the matching statement." "Macintosh HD:System:Library:Speech:Voices:" "/System/Library/Speech/Voices/") ))) - (loop for (folder path posix) in (nreverse lst) + (cl-loop for (folder path posix) in (nreverse lst) collect (propertize folder 'path path 'posix posix)))) ) "Keywords of AppleScript. Each element has the form (TYPE . KEYWORDS).") @@ -1269,7 +1269,7 @@ See also `font-lock-defaults' and `font-lock-keywords'.") ["Key => Key Code" apples-lookup-key->key-code] ["Key Code => Key" apples-lookup-key-code->key]) ("path to..." - ,@(loop for folder in (nreverse (apples-keywords 'standard-folders)) + ,@(cl-loop for folder in (nreverse (apples-keywords 'standard-folders)) collect (multiple-value-bind (path posix) (with-temp-buffer (insert folder) @@ -1300,7 +1300,7 @@ See also `font-lock-defaults' and `font-lock-keywords'.") "Set up keybindings for `apples-mode' according to `apples-keymap'." (when (and apples-keymap (not (apples-plist-get :keybinded?))) - (loop for (key . cmd) in apples-keymap + (cl-loop for (key . cmd) in apples-keymap do (define-key apples-mode-map (read-kbd-macro key) cmd) finally (apples-plist-put :keybinded? t)))) @@ -1323,7 +1323,7 @@ See also `font-lock-defaults' and `font-lock-keywords'.") (?\) ")( 4b") (?* ". 23b") ))) - (loop for (char entry) in lst + (cl-loop for (char entry) in lst do (modify-syntax-entry char entry st)) st) "Syntax table used in `apples-mode'.")