Hatena::ブログ(Diary)

日暮れて途遠し このページをアンテナに追加 RSSフィード

<ようこそ! 最初にお読みください。>
 告発、告訴の問題は、現在次のブログをメインにしています。
再審請求に向けて:http://hirono-hideki.cocolog-nifty.com/blog/

本日、金沢地方検察庁に電話連絡をしました。追って、エントリを書きます。
2008年1月21日

本日、金沢地方検察庁に電話連絡をしました。追って、エントリを書きます。
9月25日20時49分

 まだ書いていませんが、簡単にご報告しますと、今年度の新しい担当者のお名前は、「タカマツ」。たぶん、高松と書くのでしょう。当日不在ということで、 まだ声も聞いていないのですが、例の捜査官室長のような上司の人が、対応に出て、尋ねもしないのに、名前を教えてくれました。  とても変わった名前で、「戸澗(とま)」というそうです。  なお、この部分は、エントリに記載後、消去する予定のお知らせです。 10月4日23時31分


 ここ一ヶ月間のアクセス状況を公開しました。10分ほど前の記録になります。 2007年9月26日22時33分
2008年10月6日、金沢地方検察庁に電話連絡。応対したのは岸田さん。 2008年10月29日0時55分

2009-04-02 *1238669939*[Linux]GNU/Linuxの壁紙

[][]org-modeからhatena-modeへの変換処理

;;2009-04-02
(defun h-hatena-mode-0rg2post (&optional arg)
  "hatena-mode post ------  blog"
  (interactive "P")

  (let* ((file-name "~/saisinn/test.org")
		 (file-buffer-name
		  (progn
			(string-match ".+/\\(.+\\)$" file-name)
			(replace-match "\\1" nil nil file-name)))
		 (workbuf nil))

	(unless (null arg)
	  (save-excursion
		(setq file-name
			  (read-file-name 
			   "Select File:" "~/saisinn/" "~/saisinn/test.org" t "test.org"))
		(setq file-buffer-name
			  (or
			   (get-buffer 
				(progn
				  (string-match ".+/\\(.+\\)$" file-name)
				  (replace-match "\\1" nil nil file-name)))
			   (get-buffer (find-file-noselect file-name))))

		(switch-to-buffer file-buffer-name)
		(call-interactively 'org-export-as-html)))


	(let* ((mblst nil) (mbf nil)
		   sp ep tmpbuf fn startp  hatena-lst

		   (buflist-search (lambda () (setq mblst (mapcar '(lambda (x) (buffer-name x)) (buffer-list)))))
		   (hatena--search
			(lambda ()
			  (while (not (null mblst))
				(if (string-match "20[0-9][0-9][0-9][0-9][0-9][0-9]" (car mblst))
					(add-to-list  'hatena-lst (car mblst))
				  ())
				(setq mblst (cdr mblst))))))
	  
	  (funcall buflist-search)
	  (funcall hatena--search)
	  (when (null hatena-lst)
		(progn (find-file-noselect
				(concat "~/.hatena/" (format-time-string "%Y%m%d")))
			   (funcall buflist-search)
			   (funcall hatena--search)
			   (message "新規にhatena-記事投稿のバッファを作成しました。\n%s"
						hatena-lst)))
	  

	  (setq mbuf (car hatena-lst))
	  (message "select hatena- バッファ OK ")	

	  (switch-to-buffer mbuf)
		(beginning-of-buffer)
		(setq sp (point))
		(end-of-buffer)
		(setq ep (point))

		(when (= sp ep)
			(setq startp (point)))
		 
	  (message "ここまで来ました。")
	  
	  (save-excursion
		(if (setq fn (get-buffer file-buffer-name))
			(progn	
			  (message "Change buffer %s" fn)
			  (switch-to-buffer fn))
		  (progn 
			(message "Create file buffer")
			(setq fn (switch-to-buffer
					  (find-file-noselect
					   file-name)))))
		
		(call-interactively 'org-export-as-html)
		
		(setq tmpbuf (get-buffer-create "***tmp***"))
		(setq sp (beginning-of-buffer))
		(setq ep (end-of-buffer))
		(call-process-region
		 sp ep "sed" nil tmpbuf nil
		 "-f" "/home/u8w/saisinn/cocolog-css")


		(switch-to-buffer tmpbuf)
		(let ((beg (beginning-of-buffer))
			  (end (end-of-buffer)))
		  (append-to-buffer  mbuf beg end)
		  (message "change %s" mbuf))


		(switch-to-buffer mbuf))
	  (kill-buffer tmpbuf)
	  (kill-buffer file-buffer-name)
		(kill-buffer
		  (progn
			(string-match ".+/\\(.+\\)\\..+$" file-name)
			(replace-match "\\1.html" nil nil file-name)))
	  (goto-char startp))))

;;2009-04-02
(defun h-hatena-mode-0rg2post (&optional arg)
  "cocolog blog"
  (interactive "P")

  (let* ((file-name "~/saisinn/test.org")
		 (file-buffer-name
		  (progn
			(string-match ".+/\\(.+\\)$" file-name)
			(replace-match "\\1" nil nil file-name)))
		 (workbuf nil))

	(unless (null arg)
	  (save-excursion
		(setq file-name
			  (read-file-name 
			   "Select File:" "~/saisinn/" "~/saisinn/test.org" t "test.org"))
		(setq file-buffer-name
			  (or
			   (get-buffer 
				(progn
				  (string-match ".+/\\(.+\\)$" file-name)
				  (replace-match "\\1" nil nil file-name)))
			   (get-buffer (find-file-noselect file-name))))

		(switch-to-buffer file-buffer-name)
		(call-interactively 'org-export-as-html)))


	(let* ((mblst nil) (mbf nil)
		   sp ep tmpbuf fn startp  hatena-lst

		   (buflist-search (lambda () (setq mblst (mapcar '(lambda (x) (buffer-name x)) (buffer-list)))))
		   (hatena--search
			(lambda ()
			  (while (not (null mblst))
				(if (string-match "20[0-9][0-9][0-9][0-9][0-9][0-9]" (car mblst))
					(add-to-list  'hatena-lst (car mblst))
				  ())
				(setq mblst (cdr mblst))))))
	  
	  (funcall buflist-search)
	  (funcall hatena--search)
	  (when (null hatena-lst)
		(progn (find-file-noselect
				(concat "~/.hatena/" (format-time-string "%Y%m%d")))
			   (funcall buflist-search)
			   (funcall hatena--search)
			   (message "新規にhatena-記事投稿のバッファを作成しました。\n%s"
						hatena-lst)))
	  

	  (setq mbuf (car hatena-lst))
	  (message "select hatena- バッファ OK ")	

	  (switch-to-buffer mbuf)
		(beginning-of-buffer)
		(setq sp (point))
		(end-of-buffer)
		(setq ep (point))

		(when (= sp ep)
			(setq startp (point)))
		 
	  (message "ここまで来ました。")
	  
	  (save-excursion
		(if (setq fn (get-buffer file-buffer-name))
			(progn	
			  (message "Change buffer %s" fn)
			  (switch-to-buffer fn))
		  (progn 
			(message "Create file buffer")
			(setq fn (switch-to-buffer
					  (find-file-noselect
					   file-name)))))
		
		(call-interactively 'org-export-as-html)
		
		(setq tmpbuf (get-buffer-create "***tmp***"))
		(setq sp (beginning-of-buffer))
		(setq ep (end-of-buffer))
		(call-process-region
		 sp ep "sed" nil tmpbuf nil
		 "-f" "/home/u8w/saisinn/cocolog-css")


		(switch-to-buffer tmpbuf)
		(let ((beg (beginning-of-buffer))
			  (end (end-of-buffer)))
		  (append-to-buffer  mbuf beg end)
		  (message "change %s" mbuf))


		(switch-to-buffer mbuf))
	  (kill-buffer tmpbuf)
	  (kill-buffer file-buffer-name)
		(kill-buffer
		  (progn
			(string-match ".+/\\(.+\\)\\..+$" file-name)
			(replace-match "\\1.html" nil nil file-name)))
	  (goto-char startp))))

 ココログのを流用しただけあって、短時間で出来ましたが、使ってみるといくつか注意点があり、気をつけないとHTMLのソースがおかしくなるようです。org-modeでは、行頭でアスタリスクを付けることで、見出しになりますが、はてな記法も同じくエントリー名の見出しになります。

 org-modeでは、見出しが設定されることで、その部分がカラー表示されますが、まれにカラー表示にならないことがあり、そのままでは、アスタリスクのままhatena-modeに渡ることになって、予期せぬ部分が「はてな」の見出しになってしまいます。とにかく、はてな記法では行頭に記号を入れることで、それが変換処理されるので、他にも注意が必要だと思います。

2009-04-01 *1238618002*譛ャ譌・蛻??縲√お繝ウ繝医Μ縺ョ荳ヲ縺ウ鬆?r螟画峩

[][]org-modeからmapaeに記事を登録するコマンド

 昨日、二日がかりほどでようやく出来上がったコマンドです。勘違いして前置引数の指定で、org-modeからTexファイルにエクスポートする実装をしてしまいました。org-modeファイルの編集を反映させるにははHTMLエクスポートする必要があるのですが、そのうち直しておこうと思います。

 どのバッファにいても、同じように処理が出来るようにしました。org-modeで、HTMLエクスポートをしていれば、変更は反映されるので、さほど問題でもありません。

 hatena-modeでは、mapaeやbloggerpostのような、記事単位での投稿にはならず、日付に対応したファイルの編集で事足りるので、より沢山のエントリを作れそうですが、エントリ単位の管理となると、少しやりにくいこともありそうです。

;;2009-03-31
(defun h-cocolog-0rg2send (&optional arg)
  "cocolog blog"
  (interactive "P")
  (unless (null arg)
	(save-excursion
	  (let* ((workbuf
			  (buffer-name
			   (or
				(get-buffer "kokuso-tex.org")
				(find-file-noselect
				 "~/saisinn/kokuso-tex.org"))))
			 (create-file
			  (progn
				(string-match "\\(.+\\)\\..+" workbuf)
				(replace-match "\\1.tex" nil nil workbuf))))
		(switch-to-buffer workbuf)
		(save-excursion
		  (call-interactively 'org-export-as-latex-to-buffer))
		(switch-to-buffer "*Org LaTeX Export*")
		(save-excursion
		  (beginning-of-buffer)
		  (h-gtlt2escape)
		  (h-tex-preamble))
		(write-file create-file)
		(kill-buffer workbuf))))



  (let* ((mblst nil) (mbf nil)
		sp ep tmpbuf fn startp  mapaelst

	   (buflist-search (lambda () (setq mblst (mapcar '(lambda (x) (buffer-name x)) (buffer-list)))))
	   (mapae-search
		 (lambda ()
		   (while (not (null mblst))
				 (if (string-match "\\+mapae:.*" (car mblst))
					 (add-to-list  'mapaelst (car mblst))
				   ())
				 (setq mblst (cdr mblst))))))
   
	(funcall buflist-search)
	(funcall mapae-search)
 		(when (null mapaelst)
		(progn (mapae-new-post)
			   (funcall buflist-search)
			   (funcall mapae-search)
			   (message "新規にmapae記事投稿のバッファを作成しました。\n%s"
						mapaelst)))
		

	(setq mbuf (car mapaelst))
	(message "select mapae バッファ OK ")	

	(switch-to-buffer mbuf)
	(let (sp ep)
		(beginning-of-buffer)
		(search-forward "DESCRIPTION:" nil t)
		(next-line)
		(beginning-of-line)
		(setq sp (point))
		
		(search-forward "EXTENDED:" nil t)
		(previous-line 2)
		(end-of-line)
		(setq ep (point))

		(if (>= sp ep)
			(goto-char sp)
		  (progn (kill-region sp ep)
				 (setq startp (point)))))

(message "ここまで来ました。")
	
	(save-excursion
	  (if (setq fn (get-buffer "kokuso-tex.org"))
			(progn	
			  (message "Change buffer %s" fn)
			  (switch-to-buffer fn))
		(progn 
		  (message "Create file buffer")
		  (setq fn (switch-to-buffer
					(find-file-noselect
					 "~/saisinn/kokuso-tex.org")))))
	  
	  (call-interactively 'org-export-as-html)
		
	  (setq tmpbuf (get-buffer-create "***tmp***"))
	  (setq sp (beginning-of-buffer))
	  (setq ep (end-of-buffer))
	  (call-process-region
	   sp ep "sed" nil tmpbuf nil
	   "-f" "/home/u8w/saisinn/cocolog-css")


	  (switch-to-buffer tmpbuf)
	  (let ((beg (beginning-of-buffer))
			(end (end-of-buffer)))
		(append-to-buffer  mbuf beg end)
		(message "change %s" mbuf))


	  (switch-to-buffer mbuf))
	(kill-buffer tmpbuf)
	(goto-char startp)))

追記:修正したもの(2009/04/02)

(defun h-cocolog-0rg2send (&optional arg)
  "cocolog blog"
  (interactive "P")

  (let* ((file-name "~/saisinn/test.org")
		 (file-buffer-name
		  (progn
			(string-match ".+/\\(.+\\)$" file-name)
			(replace-match "\\1" nil nil file-name)))
		 (workbuf nil))

	(unless (null arg)
	  (save-excursion
		(setq file-name
			  (read-file-name 
			   "Select File:" "~/saisinn/" "~/saisinn/test.org" t "test.org"))
		(setq file-buffer-name
			  (or
			   (get-buffer 
				(progn
				  (string-match ".+/\\(.+\\)$" file-name)
				  (replace-match "\\1" nil nil file-name)))
			   (get-buffer (find-file-noselect file-name))))

		(switch-to-buffer file-buffer-name)
		(call-interactively 'org-export-as-html)))


	(let* ((mblst nil) (mbf nil)
		   sp ep tmpbuf fn startp  mapaelst

		   (buflist-search (lambda () (setq mblst (mapcar '(lambda (x) (buffer-name x)) (buffer-list)))))
		   (mapae-search
			(lambda ()
			  (while (not (null mblst))
				(if (string-match "\\+mapae:.*" (car mblst))
					(add-to-list  'mapaelst (car mblst))
				  ())
				(setq mblst (cdr mblst))))))
	  
	  (funcall buflist-search)
	  (funcall mapae-search)
	  (when (null mapaelst)
		(progn (mapae-new-post)
			   (funcall buflist-search)
			   (funcall mapae-search)
			   (message "新規にmapae記事投稿のバッファを作成しました。\n%s"
						mapaelst)))
	  

	  (setq mbuf (car mapaelst))
	  (message "select mapae バッファ OK ")	

	  (switch-to-buffer mbuf)
	  (let (sp ep)
		(beginning-of-buffer)
		(search-forward "DESCRIPTION:" nil t)
		(next-line)
		(beginning-of-line)
		(setq sp (point))
		
		(search-forward "EXTENDED:" nil t)
		(previous-line 2)
		(end-of-line)
		(setq ep (point))

		(if (>= sp ep)
			(goto-char sp)
		  (progn (kill-region sp ep)
				 (setq startp (point)))))

	  (message "ここまで来ました。")
	  
	  (save-excursion
		(if (setq fn (get-buffer file-buffer-name))
			(progn	
			  (message "Change buffer %s" fn)
			  (switch-to-buffer fn))
		  (progn 
			(message "Create file buffer")
			(setq fn (switch-to-buffer
					  (find-file-noselect
					   file-name)))))
		
		(call-interactively 'org-export-as-html)
		
		(setq tmpbuf (get-buffer-create "***tmp***"))
		(setq sp (beginning-of-buffer))
		(setq ep (end-of-buffer))
		(call-process-region
		 sp ep "sed" nil tmpbuf nil
		 "-f" "/home/u8w/saisinn/cocolog-css")


		(switch-to-buffer tmpbuf)
		(let ((beg (beginning-of-buffer))
			  (end (end-of-buffer)))
		  (append-to-buffer  mbuf beg end)
		  (message "change %s" mbuf))


		(switch-to-buffer mbuf))
	  (kill-buffer tmpbuf)
	  (kill-buffer file-buffer-name)
		(kill-buffer
		  (progn
			(string-match ".+/\\(.+\\)\\..+$" file-name)
			(replace-match "\\1.html" nil nil file-name)))
	  (goto-char startp))))


2009-03-27 *1238159382*[Emacs]mapae縺ァ縲√さ繧ウ繝ュ繧ー縺ョ險倅コ九r繧ォ

[][]mapaeで、投稿記事本文部分を一括削除する

(defun h-mapae-del-DESCRIPTION ()
  "mapaeで、投稿記事本文部分を一括削除する。"
  (interactive)
  (save-excursion
  (let (sp ep)
	(beginning-of-buffer)
	(search-forward "DESCRIPTION:" nil t)
	(next-line)
	(beginning-of-line)
	(setq sp (point))
	
	(search-forward "EXTENDED:" nil t)
	(previous-line 2)
	(end-of-line)
	(setq ep (point))
	
	(kill-region sp ep))))

 昨夜から、ココログの方で、mapaeを使うようになりました。