[BUG] org-screenshot cl-lib function name errors [9.5.2 (9.5.2-gbebf0b @ /home/jds6696/.emacs.d/straight/build/org/)]

[BUG] org-screenshot cl-lib function name errors [9.5.2 (9.5.2-gbebf0b @ /home/jds6696/.emacs.d/straight/build/org/)]

[Justin Silverman]

[-- Attachment #1.1: Type: text/plain, Size: 12648 bytes --]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

<https://orgmode.org/manual/Feedback.html#Feedback>

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

I started getting errors in the org-screenshot library.

Errors such as void function incf or plusp. I was able to fix them by adding (require 'cl-lib) and changing incf -> cl-incf and plusp -> cl-plusp

Best,
Justin

Emacs  : GNU Emacs 28.1.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.33, cairo version 1.17.6)
 of 2022-04-18
Package: Org mode version 9.5.2 (9.5.2-gbebf0b @ /home/jds6696/.emacs.d/straight/build/org/)

current state:
`============'
(setq
 org-msg-attached-file-reference "see[ 	\n]\\(?:the[ 	\n]\\)?\\(?:\\w+[ 	\n]\\)\\{0,3\\}\\(?:attached\\|enclosed\\)\\|(\\(?:attached\\|enclosed\\))\\|\\(?:attached\\|enclosed\\)[ 	\n]\\(?:for\\|is\\)[ 	\n]"
 org-link-elisp-confirm-function 'yes-or-no-p
 org-directory "~/Dropbox/org"
 org-after-refile-insert-hook '(org-gcal--refile-post)
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-agenda-custom-commands '(("d" "Custom Day View"
			       ((agenda ""
				 ((org-agenda-span 'day)
				  (org-agenda-skip-function
				   '(lambda nil (interactive) (skip-tag "mail")))
				  )
				 )
				(todo "NEXT"
				 ((org-agenda-sorting-strategy
				   `(priority-down effort-down))
				  (org-agenda-overriding-header "Next")
				  (org-agenda-skip-function
				   '(org-agenda-skip-entry-if 'timestamp))
				  )
				 )
				(agenda ""
				 ((org-agenda-span 'day)
				  (org-agenda-overriding-header "Mail")
				  (org-agenda-format-date "")
				  (org-agenda-skip-function
				   '(lambda nil (interactive) (skip-not-tag "mail")))
				  )
				 )
				(tags-todo "REFILE"
				 ((org-agenda-overriding-header "To Refile")
				  (org-tags-match-list-sublevels nil))
				 )
				)
			       )
			      )
 org-agenda-skip-scheduled-if-done t
 org-agenda-files '("~/Dropbox/org/GTAM_hours.org" "~/Dropbox/org/cal-gmail.org"
		    "~/Dropbox/org/cal-psu.org" "~/Dropbox/org/calendar.org"
		    "~/Dropbox/org/inbox.org" "~/Dropbox/org/inbox_mobile.org"
		    "~/Dropbox/org/mail.org" "~/Dropbox/org/meetings_anarres.org"
		    "~/Dropbox/org/meetings_psu.org" "~/Dropbox/org/notes.org"
		    "~/Dropbox/org/tasks.org")
 org-capture-templates '(("#" "used by gnus-icalendar-org" entry
			  (file+olp "~/Dropbox/org/calendar.org" "Calendar") "%i"
			  :immediate-finish t)
			 ("t" "todo")
			 ("ta" "todo with attachment" entry
			  (file "~/Dropbox/org/inbox.org") "* TODO %?\n %U\n %a")
			 ("te" "todo tweaks" entry
			  (file+headline "~/Dropbox/org/tasks.org" "Emacs")
			  "* TODO %? :TWEAKS:\n %U")
			 ("tt" "plain todo" entry (file "~/Dropbox/org/inbox.org")
			  "* TODO %?\n %U")
			 ("m" "meetings")
			 ("ma" "meeting anarres" entry
			  (file "~/Dropbox/org/meetings_anarres.org")
			  "* MEETING with %? :MEETING:\n %U" :jump-to-captured t)
			 ("mp" "meeting psu" entry
			  (file "~/Dropbox/org/meetings_psu.org")
			  "* MEETING with %? :MEETING:\n %U" :jump-to-captured t)
			 ("mP" "meeting specific person")
			 ("mPm" "meeting Michelle" entry
			  (file "~/Dropbox/org/meetings_psu.org")
			  "* MEETING with Michelle :MEETING:w_michelle:\n  %U\n** TRAM :p_tram:\n** Bacteremia :p_bacteremia:\n" :jump-to-captured t)
			 ("mPd" "meeting DIHI" entry
			  (file "~/Dropbox/org/meetings_psu.org")
			  "* MEETING with DIHI :MEETING:w_michelle:p_bacteremia:\n  %U\n  %?" :jump-to-captured t)
			 ("mPk" "meeting kyle" entry
			  (file "~/Dropbox/org/meetings_psu.org")
			  "* MEETING with Kyle :MEETING:w_kyle:\n  %U\n** cGSEA :p_cgsea:\n** Future Plans :p_cgsea:\n  %?" :jump-to-captured t)
			 ("c" "calendar event")
			 ("cc" "plain event" entry
			  (file+headline "~/Dropbox/org/calendar.org" "Calendar")
			  "* %? \n %^T")
			 ("ca" "event with attachment" entry
			  (file+headline "~/Dropbox/org/calendar.org" "Calendar")
			  "* %? \n %^T\n %a")
			 ("n" "note" entry
			  (file+headline "~/Dropbox/org/notes.org" "Notes")
			  "* NOTE %? :NOTE:\n %U")
			 )
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-default-notes-file "~/Dropbox/org/inbox.org"
 org-refile-use-outline-path 'file
 org-publish-timestamp-directory "/home/jds6696/.emacs.d/var/org/timestamps/"
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
		  org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-catch-invisible-edits 'error
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-msg-options "html-postamble:nil num:nil ^:{} toc:nil author:nil email:nil \\n:t tex:dvipng"
 org-link-from-user-regexp "\\<jds6696@archsil24\\>"
 org-mode-hook '(citar-filenotify-local-watches
		 evil-collection-mu4e-org-set-header-to-normal-mode
		 aas-activate-for-major-mode evil-tex-mode
		 #[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree]
		   2]
		 evil-org-mode turn-on-org-cdlatex er/add-org-mode-expansions
		 #[0 "\300\301\302\303\304$\207"
		   [add-hook change-major-mode-hook org-show-all append local] 5]
		 #[0 "\300\301\302\303\304$\207"
		   [add-hook change-major-mode-hook org-babel-show-result-all append
		    local]
		   5]
		 org-babel-result-hide-spec org-babel-hide-all-hashes org-eldoc-load
		 embrace-org-mode-hook)
 org-agenda-skip-deadline-if-done t
 org-id-locations-file "/home/jds6696/.emacs.d/var/org/id-locations.el"
 org-gcal-client-id "1088626916330-4u7te53umpnq31q5k65f8dgppk6edepo.apps.googleusercontent.com"
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-ellipsis " ▾"
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-msg-default-alternatives '((new text html) (reply-to-html text html)
				(reply-to-text text))
 org-stuck-projects '("/PROJ" ("NEXT" "TODO") nil "SCHEDULED:")
 org-startup-indented t
 org-ctrl-c-ctrl-c-final-hook '(org-msg-ctrl-c-ctrl-c)
 org-highlight-latex-and-related '(latex entities)
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-mode-hook '(jds~org-agenda-local-bindings evil-org-agenda-set-keys
			(closure (t) nil (visual-line-mode -1))
			(closure
			 ((mode . org-agenda-mode-hook) (--dolist-tail--)
			  bootstrap-version t)
			 nil (display-line-numbers-mode 0))
			)
 org-startup-truncated nil
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-complete-tags-always-offer-all-agenda-tags t
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
		     org-src-mode-configure-edit-buffer
		     doom-modeline-set-org-src-modeline)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-window-setup 'current-window
 org-cycle-separator-lines 0
 org-hide-leading-stars t
 org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "MAYBE(m)" "PROJ(p)" "|" "DONE(d)"
		      "CANCELED(c)")
		     (sequence "WAITING(w)" "HOLD(h)" "|" "MEETING(M)"))
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-clock-persist-file "/home/jds6696/.emacs.d/var/org/clock-persist.el"
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-msg-convert-citation t
 org-priority-default 67
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-persist-directory "/home/jds6696/.emacs.d/var/org/persist/"
 org-capture-before-finalize-hook '((closure (t) nil (org-align-tags t))
				    (closure
				     ((mode . org-capture-before-finalize-hook)
				      (--dolist-tail--) bootstrap-version t)
				     nil (display-line-numbers-mode 0))
				    )
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-link-shell-confirm-function 'yes-or-no-p
 org-babel-pre-tangle-hook '(save-buffer)
 org-gcal-dir "/home/jds6696/.emacs.d/var/org/gcal/"
 org-agenda-loop-over-headlines-in-active-region nil
 org-todo-keyword-faces '(("TODO" :foreground "orange" :weight bold)
			  ("NEXT" :foreground "red" :weight bold)
			  ("DONE" :foreground "forest green" :weight bold)
			  ("PROJ" :foreground "light blue" :weight bold)
			  ("MAYBE" :foreground "light orange" :weight bold)
			  ("WAITING" :foreground "orange" :weight bold)
			  ("CANCELED" :foreground "magenta" :weight bold)
			  ("HOLD" :foreground "magenta" :weight bold)
			  ("MEETING" :foreground "forest green" :weight bold))
 org-capture-mode-hook '(evil-insert-state)
 org-msg-startup "hidestars indent inlineimages"
 org-occur-hook '(org-first-headline-recenter)
 org-capture-after-finalize-hook '(org-gcal--capture-post)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-treat-S-cursor-todo-selection-as-state-change nil
 org-link-parameters '(("attachment" :follow org-attach-follow :complete
			org-attach-complete-link)
		       ("mu4e" :follow mu4e-org-open :store mu4e-org-store-link)
		       ("emacs-slack" :follow ol/slack-follow-link :export
			ol/slack-export :store ol/slack-store-link)
		       ("eww" :follow org-eww-open :store org-eww-store-link)
		       ("rmail" :follow org-rmail-open :store org-rmail-store-link)
		       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
		       ("irc" :follow org-irc-visit :store org-irc-store-link :export
			org-irc-export)
		       ("info" :follow org-info-open :export org-info-export :store
			org-info-store-link)
		       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
		       ("docview" :follow org-docview-open :export org-docview-export
			:store org-docview-store-link)
		       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
		       ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete
			org-bbdb-complete-link :store org-bbdb-store-link)
		       ("w3m" :store org-w3m-store-link)
		       ("doi" :follow org-link-doi-open :export org-link-doi-export)
		       ("id" :follow org-id-open) ("file+sys") ("file+emacs")
		       ("shell" :follow org-link--open-shell)
		       ("news" :follow
			#[514 "\301\300\302Q\"\207" ["news" browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("mailto" :follow
			#[514 "\301\300\302Q\"\207" ["mailto" browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("https" :follow
			#[514 "\301\300\302Q\"\207" ["https" browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("http" :follow
			#[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("ftp" :follow
			#[514 "\301\300\302Q\"\207" ["ftp" browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("help" :follow org-link--open-help :store org-link--store-help)
		       ("file" :complete org-link-complete-file)
		       ("elisp" :follow org-link--open-elisp))
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-skip-additional-timestamps-same-entry t
 org-refile-allow-creating-parent-nodes 'confirm
 org-use-fast-todo-selection t
 org-blank-before-new-entry '((heading) (plain-list-item . auto))
 org-return-follows-link t
 org-gcal-client-secret "MHxJXx8BE57LGMPRI81maFMX"
 org-outline-path-complete-in-steps nil
 org-msg-mode t
 org-special-ctrl-a/e t
 org-tags-column -100
 org-agenda-current-time-string ">>>>>>>>>> NOW <<<<<<<<<<"
 org-agenda-block-separator nil
 org-gcal-fetch-file-alist '(("jsilve24@gmail.com" .
			      "~/Dropbox/org/exclude-beorg/cal-gmail.org")
			     )
 org-refile-target-verify-function 'bh/verify-refile-target
 )

[-- Attachment #1.2.1: Type: text/html, Size: 17663 bytes --]

[-- Attachment #1.2.2: latexbeOKux_c81650c6be646751c87e784b6f14ea0261b51353.png --]
[-- Type: image/png, Size: 525 bytes --]

[-- Attachment #1.2.3: latex9SY0Q2_80a4d205fb1b9a358e8a669ab749feaaf23881cb.png --]
[-- Type: image/png, Size: 483 bytes --]

[-- Attachment #1.2.4: latex8QQ8mV_48847d4aa56c5bd87e96d11c0a931c54d5d677f5.png --]
[-- Type: image/png, Size: 1001 bytes --]

[-- Attachment #1.2.5: latexUOsEqh_48847d4aa56c5bd87e96d11c0a931c54d5d677f5.png --]
[-- Type: image/png, Size: 1001 bytes --]

[-- Attachment #1.2.6: latexkJNDd1_48847d4aa56c5bd87e96d11c0a931c54d5d677f5.png --]
[-- Type: image/png, Size: 1001 bytes --]

[-- Attachment #1.2.7: latexmXDFh4_ec1c682b17e1dd264717c28f9d8ae31179e187d3.png --]
[-- Type: image/png, Size: 645 bytes --]

Re: [BUG] org-screenshot cl-lib function name errors [9.5.2 (9.5.2-gbebf0b @ /home/jds6696/.emacs.d/straight/build/org/)]

[Ihor Radchenko]

Justin Silverman <jsilve24@gmail.com> writes:

> I started getting errors in the org-screenshot library.
>
> Errors such as void function incf or plusp. I was able to fix them by adding (require 'cl-lib) and changing incf -> cl-incf and plusp -> cl-plusp

Should be fixed in
https://git.sr.ht/~bzg/org-contrib/commit/a33dd6f11756e5755dfd1b3a2ded6098ae8bf872

Best,
Ihor