(byte-recompile-directory ".emacs.d/var/lisp/" 0 t)

# the variable
MY-VARIABLE="SOME VALUE"
# add to Emacs environment variables, 'process-environment'
emacsclient -e "(setenv \"MY-VARIABLE\" \"$MY-VARIABLE\")"

(defun run-command-and-get-exit-status (label output-buffer command-string)
  (let ((proc (start-process-shell-command label output-buffer command-string))
        command-exit-status)
    (set-process-sentinel proc (lambda (_ __)
                                 (when (eq 'exit (process-status proc))
                                   (setq command-exit-status (process-exit-status proc))
                                   (throw 'exit nil))))
    (recursive-edit)
    command-exit-status))

(defun compilation-run-command-maybe (buffer desc)
  "Launch compiled binary if compilation exit with success status."
  (when (string= desc "finished\n")
    (let* ((splited (split-string compile-command))
           (cmd (car splited))
           (binary (pcase cmd
                     ((or "gcc" "g++")
                      (nth (1+ (seq-position splited "-o")) splited))
                     (code ""))))
      (when (not (string= binary ""))
        (term (concat (file-name-as-directory compilation-directory)
                      binary))))))

(add-hook 'compilation-finish-functions #'compilation-run-command-maybe)

(defun pedro-persp-switch ()
  "Does not take care if persp keybinding is not control+digit!!!.
Does not take care if current persp name is not a string number!!!.
The constant 67108912 if for 'C-0'."
  (interactive)
  (let* ((control-zero-keyseq-value 67108912)

         (new-persp-name (number-to-string
                          (- (elt (this-command-keys-vector) 0)
                             control-zero-keyseq-value)))
         (current-persp-name (persp-current-name)))

    (if (string= current-persp-name new-persp-name)
        (persp-switch-last)
      (persp-switch new-persp-name))))

(let (message-log-max)
  (message ...))

(let ((inhibit-message  t))
  (message "Msg only to be logged in *Messages*"))

(defun screenshot-svg ()
  "Save a screenshot of the current frame as an SVG image.
Saves to a temp file and puts the filename in the kill ring."
  (interactive)
  (let* ((filename (make-temp-file "Emacs" nil ".svg"))
         (data (x-export-frames nil 'svg)))
    (with-temp-file filename
      (insert data))
    (kill-new filename)
    (message filename)))