1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| -
!
-
-
|
|
|
|
|
|
|
|
|
!
| (defun h-twitter-to-file ()
"ツイートの内容をファイルに追加書き込み"
(interactive)
(save-excursion
(let ((=s)(=e)(filename "~/twmode-file"))
(beginning-of-line)
(setq =s (point))
(end-of-line)
(setq =e (point))
(copy-region-as-kill-nomark =s =e)
(set-buffer (find-file-noselect filename))
(end-of-buffer)
(yank)
(newline)(newline)
(basic-save-buffer))))
|