いろんな方のブログを見ていると，以下のようにかっこ良くソースコードを紹介しているケースが多いのですが，以前から，どうやっているんだろうと思っていました。『Emacsテクニックバイブル ?作業効率をカイゼンする200の技?』のp175で紹介されているgist.e…

twittering-modeを使って，Twitterをやっているのですが，最近，「Authorization via OAuth failed. Type M-x twit to retry. 」と出て，接続できない状況でした*1。 Googleなどで，調べてみても解決法を見つけ出すことができなかったのですが，そんなとき，…

twittering-mode 1.0.0がリリースされたので，早速，インストールしてみました。以前のバージョンでは，tweetを投稿するには，ミニバッファから入力する方法が採用されていましたが，1.0.0からポップアップバッファから投稿するようになりました。 非常に便…

数あるTwitterクライアントの中から，twittering-modeを愛用しています。 twittering-modeを起動すると， HTTPS(SSL) is not available because your 'cURL' cannot use HTTPS. Use HTTP instead?" と表示がでていましたので，HTTPSでは接続出来なかったんだ…

3ヶ月研修も早いもので2ヶ月が過ぎようとしています。次は何に取り組もうと考えていますが、研修課題が見つかるまで、今まで取り組んできたことを少しづつまとめています。やりはじめると、結構、作成したプログラムを載せる作業が煩雑です。 http://d.haten…

15.4 練習問題 グラフを表示する関数で、横棒のグラフを描くバージョンを作りなさい。 解答を以下に載せていますが，行の途中にポイントがある場合は，グラフがきれいに表示されません。 原因は，横棒を表示してから，forward-line関数で次の行に移動するの…

13.3 練習問題：句読点のカウント while ループを使って、リージョン内の句読点---終止符、カンマ、セミコロン、コロン、感嘆符、疑問符---の数を数える関数を書きなさい。同じ関数を再帰関数を使って書きなさい。 (defun count-punctuation-region (beginni…

12.7 re-search-forward についての練習問題 二行以上続く空行にマッチする正規表現を検索する関数を書きなさい。 (defun 12-7regexp-prac () (interactive) (if (re-search-forward "\\(^$\\)\n\\1\n") (goto-char (match-beginning 1))))上記のように，作…

11.3 ループについての練習問題 各々の行の値が行番号の自乗であるような場合に、triangle 関数と同様な関数を書きなさい。ただし、while ループを使うこと。 (defun triangle2 (number-of-rows) (let ((total 0) (row-number 1)) (while (<= row-number num…

10.3 yank と nthcdr についての練習問題 nthcdr と car を使って、各々リストの一番目、二番目、三番目、及び四番目の要素を返すような四つのＳ式を作りなさい。 ; first (car kill-ring) ; second (car (nthcdr 1 kill-ring)) ; third (car (nthcdr 2 kill…

練習問題 flowers に violet と buttercup をセットしなさい。また、このリストに更に二つの花を consし、新しく出来たリストを more-flowers にセットしなさい。flowers の CAR に魚の名前をセットしなさい。この時、more-flowers のリストの中身はどうなる…

Programming in Emacs Lisp*1の8章の練習問題を解いてみました。識者の皆さん，アドバイスをお願いします。 8.7 検索についての練習問題 文字列を検索するインタラクティブな関数を書きなさい。もし文字列の検索に成功すればその直後にポイントを移動し、「…

Programming in Emacs Lisp*1で，Emacs Lispを勉強中です。6章まで読んだので，以下の練習問題を解いてみました。 5.5 &optional引数の練習問題 (defun q55 (&optional arg) (interactive "P") (let (num) (if arg (setq num (prefix-numeric-value arg)) (s…