blog/content/post/2008/12/23/2008-12-23-00001102.md

61 lines
3.5 KiB
Markdown
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

---
title: 『やさしいEmacsLisp講座』の練習問題
author: kazu634
date: 2008-12-23
url: /2008/12/23/_1182/
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">&#34;Revision Date: \\([A-z]+\\) \\([A-z]+\\) \\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([0-9]+\\)&#34;</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', 'やさしいEmacsLisp講座');">やさしいEmacsLisp講座</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 &#8211; 武蔵の日記');" target="_blank"> カーソル位置から行末までの数字を全て加算してその結果を返すelisp &#8211; 武蔵の日記</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の勉強 &#8211; 武蔵の日記');" target="_blank"> Emacs-Lispの勉強 &#8211; 武蔵の日記</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', ' 『やさしいEmacsLisp講座』を購入 &#8211; 武蔵の日記');" target="_blank"> 『やさしいEmacsLisp講座』を購入 &#8211; 武蔵の日記</a>
</li>
</ul>
</li>
</ul>
</blockquote>
</div>