Topic: Error handling with style

[alanjt]

Code: [Select]

(defun *error* (msg)
  (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
    (progn (vl-bt)
           (command-s "_.browser" (strcat "https://www.google.com/search?q=\"" msg "\""))
           (princ (strcat "\nError: " msg))
    )
  )
)

[CAB]

I like it.

[Grrr1337]

Certainly with style! 

BTW got me thinking is there alternative to open a url with scripting objects instead of:

Code: [Select]

  (command-s "_.browser" (strcat "https://www.google.com/search?q=\"" msg "\""))

[MP]

Fixed.

Code: [Select]

(defun *error* ( msg )

    (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
        (progn
            (vl-bt)
            (command-s "_.browser"
                (strcat
                    "https://www.google.com/search?q=site:theswamp.org \""
                    msg
                    "\""
                )
            )
            (princ (strcat "\nError: " msg))
        )
    )
   
    (princ)
   
)
 

[alanjt]

That's about the truth.

Fixed.

Code: [Select]

(defun *error* ( msg )

    (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")))
        (progn
            (vl-bt)
            (command-s "_.browser"
                (strcat
                    "https://www.google.com/search?q=site:theswamp.org \""
                    msg
                    "\""
                )
            )
            (princ (strcat "\nError: " msg))
        )
    )
   
    (princ)
   
)