2019-03-31 11:00:21 +00:00
|
|
|
|
---
|
|
|
|
|
|
title: 『やさしいEmacs‐Lisp講座』の練習問題
|
|
|
|
|
|
author: kazu634
|
|
|
|
|
|
date: 2008-12-23
|
|
|
|
|
|
wordtwit_post_info:
|
|
|
|
|
|
- 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4461;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}'
|
|
|
|
|
|
categories:
|
|
|
|
|
|
- Emacs
|
|
|
|
|
|
- Lisp
|
|
|
|
|
|
|
|
|
|
|
|
---
|
|
|
|
|
|
<div class="section">
|
|
|
|
|
|
<p>
|
|
|
|
|
|
<a href="http://d.hatena.ne.jp/sirocco634/20081221/1229868038" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20081221/1229868038', '”前回”');" target="_blank">”前回”</a>のつづきです。
|
|
|
|
|
|
</p>
|
|
|
|
|
|
|
|
|
|
|
|
<blockquote>
|
|
|
|
|
|
<p>
|
|
|
|
|
|
次のような書式のタイムスタンプがあるとき、このタイムスタンプを検索し、曜日のところにポイントを移動させる関数を作成せよ。
|
|
|
|
|
|
</p>
|
|
|
|
|
|
|
|
|
|
|
|
<p>
|
|
|
|
|
|
Revision Date: Tue Dec 23 20:07:26 2008
|
|
|
|
|
|
</p>
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
|
|
|
|
|
<h4>
|
|
|
|
|
|
作成したコード
|
|
|
|
|
|
</h4>
|
|
|
|
|
|
|
|
|
|
|
|
<pre class="syntax-highlight">
|
|
|
|
|
|
<span class="synSpecial">(</span><span class="synStatement">defun</span> my-place-date <span class="synSpecial">()</span>
|
|
|
|
|
|
<span class="synSpecial">(</span>interactive<span class="synSpecial">)</span>
|
|
|
|
|
|
<span class="synSpecial">(</span><span class="synStatement">let</span> <span class="synSpecial">((</span>r_exp <span class="synConstant">"Revision Date: \\([A-z]+\\) \\([A-z]+\\) \\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([0-9]+\\)"</span><span class="synSpecial">))</span>
|
|
|
|
|
|
<span class="synSpecial">(</span>re-search-forward r_exp <span class="synStatement">nil</span> <span class="synStatement">t</span><span class="synSpecial">)</span>
|
|
|
|
|
|
<span class="synSpecial">(</span>goto-char <span class="synSpecial">(</span>match-beginning <span class="synConstant">1</span><span class="synSpecial">))))</span>
|
|
|
|
|
|
</pre>
|
|
|
|
|
|
|
|
|
|
|
|
<p>
|
|
|
|
|
|
r_expという変数を導入して、正規表現を代入するという形にしてみました。
|
|
|
|
|
|
</p>
|
|
|
|
|
|
|
|
|
|
|
|
<blockquote>
|
|
|
|
|
|
<ul>
|
|
|
|
|
|
<li>
|
|
|
|
|
|
「<a href="http://d.hatena.ne.jp/asin/4906391702" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/asin/4906391702', 'やさしいEmacs‐Lisp講座');">やさしいEmacs‐Lisp講座</a>」に関連する最近のエントリ <ul>
|
|
|
|
|
|
<li>
|
|
|
|
|
|
<a href="http://d.hatena.ne.jp/sirocco634/20081221/1229868038" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20081221/1229868038', ' カーソル位置から行末までの数字を全て加算してその結果を返すelisp – 武蔵の日記');" target="_blank"> カーソル位置から行末までの数字を全て加算してその結果を返すelisp – 武蔵の日記</a>
|
|
|
|
|
|
</li>
|
|
|
|
|
|
<li>
|
|
|
|
|
|
<a href="http://d.hatena.ne.jp/sirocco634/20081214/1229256984" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20081214/1229256984', ' Emacs-Lispの勉強 – 武蔵の日記');" target="_blank"> Emacs-Lispの勉強 – 武蔵の日記</a>
|
|
|
|
|
|
</li>
|
|
|
|
|
|
<li>
|
|
|
|
|
|
<a href="http://d.hatena.ne.jp/sirocco634/20081207/1228655543" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://d.hatena.ne.jp/sirocco634/20081207/1228655543', ' 『やさしいEmacs‐Lisp講座』を購入 – 武蔵の日記');" target="_blank"> 『やさしいEmacs‐Lisp講座』を購入 – 武蔵の日記</a>
|
|
|
|
|
|
</li>
|
|
|
|
|
|
</ul>
|
|
|
|
|
|
</li>
|
|
|
|
|
|
</ul>
|
|
|
|
|
|
</blockquote>
|
2019-04-02 16:06:15 +00:00
|
|
|
|
</div>
|
