(defunset-user-system-prompt (_command)  (let* ((now   (current-time))         (date  (format-time-string"%A, %B %d, %Y" now))         (time  (format-time-string"%H:%M" now))         (prompt (concat"You use markdown liberally to structure responses.""Always show code snippets in markdown blocks with language labels.""The user’s most recent query has been submitted at the following date:"                  date" and the local time (in the London timezone) is" time". Please preface all your replies with the metadata ["                  date"/" time"].\n")))    (setq chatgpt-shell-system-prompts          `(("tl;dr"."Be as succinct but informative as possible and respond in tl;dr form to my queries")            ("General".,prompt)))))(add-hook'chatgpt-shell-before-command-functions#'set-user-system-prompt)