vault/Technical/Emacs/Elisp.md

– use <s followed by TAB

(defun my-echo-input ()
  "Prompt the user for input and echo it back."
  (interactive)
  (message "hello")) 

(shell-command "thunar ~/Documents/ &")
(run-at-time "1 sec" nil #'delete-other-windows)

(defun open-current-dir()
  (interactive)
  (cond ((string-equal system-type "gnu/linux")
     (shell-command (concat "thunar " ".")))
    ((string-equal system-type "darwin")
     (shell-command (concat "open " "."))))
)

  (defun test()
    (interactive)
    (cond ((string-equal system-type "gnu/linux")
     (message "linux"))
    ((string-equal system-type "darwin")
     (message "mac"))
  )
    )

(defun kill-other-buffers-startup ()
  "Kill all buffers except the current one."
  (interactive)
  (mapc (lambda (buffer)
          (unless (eq buffer (current-buffer))
            (kill-buffer buffer)))
        (buffer-list)))


;(add-hook 'emacs-startup-hook #'kill-other-buffers-startup)

    (defun create-weekly-entry ()
      (interactive)
      (let* ((current-date-time-format "[%Y-week-%V]")
             (timestamp (format-time-string current-date-time-format))
             (entry (concat "* Weekly Entry: " timestamp "\n"
              "** Tasks:\n"
              "** Notes:\n"

)))
        (write-region entry nil "~/master-folder/org_files/todo/master-tl.org" 'append)))