kreyren/Zernit
1
0
Fork 0
Code Issues 129 Pull Requests Releases Activity

elisp: more fixes

Browse Source
This commit is contained in:
Jacob Hrbek 2020-09-01 22:16:00 +02:00
parent a4c18ee7bd
commit ecd7088439
6 changed files with 15 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/RXT0112-1/downstream-classes/zeres-0/elisp/UNLEASH.el
View File

@ -15,7 +15,6 @@
;; Source variables
(load "/home/kreyren/Repositories/Zernit/src/RXT0112-1/downstream-classes/zeres-0/elisp/variables/emacs-debug.el")
(load "/home/kreyren/Repositories/Zernit/src/RXT0112-1/downstream-classes/zeres-0/elisp/variables/emacs-log-file.el")
;;(setq emacs-log-file "/home/kreyren/emacs.log")
;; Source functions
(load "/home/kreyren/Repositories/Zernit/src/RXT0112-1/downstream-classes/zeres-0/elisp/output/die.el")
@ -24,5 +23,3 @@
(load "/home/kreyren/Repositories/Zernit/src/RXT0112-1/downstream-classes/zeres-0/elisp/output/efixme.el")
(load "/home/kreyren/Repositories/Zernit/src/RXT0112-1/downstream-classes/zeres-0/elisp/output/edebug.el")
(load "/home/kreyren/Repositories/Zernit/src/RXT0112-1/downstream-classes/zeres-0/elisp/output/eerror.el")
(die "true")

6
src/RXT0112-1/downstream-classes/zeres-0/elisp/output/edebug.el
View File

@ -9,12 +9,12 @@
"Non-standard function used to output in the buffer with logging support to annoy the end-user with fixme messages for code quality issues that might influence the runtime"
(cond
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
((> (length message) 0)
(princ (format edebug-format-string message)
(append-to-file (format edebug-format-string message) nil emacs-log-file)) )
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
(t
(princ (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)))
(append-to-file (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)) nil emacs-log-file)

6
src/RXT0112-1/downstream-classes/zeres-0/elisp/output/eerror.el
View File

@ -8,12 +8,12 @@
"Non-standard function used to output in the buffer with logging support to inform the end-user about non-fatal errors"
(cond
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
((> (length message) 0)
(princ (format eerror-format-string message))
(append-to-file (format eerror-format-string message) nil emacs-log-file))
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
(t
(princ (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)))
(append-to-file (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)) nil emacs-log-file)

6
src/RXT0112-1/downstream-classes/zeres-0/elisp/output/efixme.el
View File

@ -9,12 +9,12 @@
"Non-standard function used to output in the buffer with logging support to annoy the end-user with fixme messages for code quality issues that might influence the runtime"
(cond
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file)) )
((> (length message) 0)
(princ (format efixme-format-string message)
(append-to-file (format efixme-format-string message) nil emacs-log-file)) )
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file)) )
(t
(princ (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)))
(append-to-file (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)) nil emacs-log-file)

6
src/RXT0112-1/downstream-classes/zeres-0/elisp/output/einfo.el
View File

@ -8,12 +8,12 @@
"Non-standard function used to output in the buffer with logging support to inform the end-user about runtime events"
(cond
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
((> (length message) 0)
(princ (format einfo-format-string message)
(append-to-file (format einfo-format-string message) nil emacs-log-file)) )
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
(t
(princ (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)))
(append-to-file (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)) nil emacs-log-file)

6
src/RXT0112-1/downstream-classes/zeres-0/elisp/output/ewarn.el
View File

@ -8,12 +8,12 @@
"Non-standard function used to output in the buffer with logging support to warn the end-user about potential issues"
(cond
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
((> (length message) 0)
(princ (format ewarn-format-string message))
(append-to-file (format ewarn-format-string message) nil emacs-log-file) )
((or (= (length message) 0) (boundp 'message))
(princ (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message))
(append-to-file (format die-format-string-bug (format "Function '%1$s' was used without specified message '%2$s'" function-name message)) nil emacs-log-file) )
(t
(princ (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message))
(append-to-file (format die-format-string-unexpected (format "Function '%1$s' with argument 'message' storing value '%2$s' triggered an unexpected trap which usually indicates insufficient programming logic" function-name message)) nil emacs-log-file))) )