64 lines
1.4 KiB
Markdown
64 lines
1.4 KiB
Markdown
– use `<s` followed by `TAB`
|
||
|
||
``` elisp
|
||
(defun my-echo-input ()
|
||
"Prompt the user for input and echo it back."
|
||
(interactive)
|
||
(message "hello"))
|
||
```
|
||
|
||
``` commonlisp
|
||
(shell-command "thunar ~/Documents/ &")
|
||
(run-at-time "1 sec" nil #'delete-other-windows)
|
||
```
|
||
|
||
``` elisp
|
||
(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 " "."))))
|
||
)
|
||
```
|
||
|
||
``` elisp
|
||
|
||
(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)
|
||
|
||
```
|
||
|
||
``` elisp
|
||
|
||
(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)))
|
||
|
||
|
||
```
|