Updated: 2025-12-28 Sun 19:48

# emacs-stuff-elisp

planted: 2025-03-26 last tended to: 2025-12-28

– 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)))

Backlinks

- emacsmoc