Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Show prompt to set issue dir after failing to find dir in auto-findin…

…g mode.
  • Loading branch information...
commit d63f9d1d0a7d62c8e10b5bc8eff770fde183ab63 1 parent 032e202
@kentaro authored
View
4 README
@@ -32,8 +32,8 @@ system. You can get Ditz from http://ditz.rubyforge.org/.
;; Issue directory name (default: "bugs")
(setq ditz-issue-directory "issues")
- ;; Enable automatic finding functionality.
- (setq ditz-find-issue-directory-automatically-flag t))
+ ;; Enable automatic finding functionality (default: nil)
+ (setq ditz-find-issue-directory-automatically-flag t)
(5) Run M-x ditz-init to initialize your ditz issues.
View
49 ditz.el
@@ -159,13 +159,7 @@ must set it from minibuffer."
(defun ditz-call-process (command &optional arg popup-flag)
"Call ditz process asynchronously according with sub-commands."
(let* ((buffer (get-buffer-create (concat "*ditz-" command "*")))
- (proc (get-buffer-process buffer))
- (current-directory))
-
- ;; Reserve current directory to come back later It's needed when
- ;; automatically finding directory.
- (when buffer-file-name
- (setq current-directory (file-name-directory (buffer-file-name))))
+ (proc (get-buffer-process buffer)))
(if (and proc (eq (process-status proc) 'run))
(when (y-or-n-p (format "A %s process is running; kill it?"
@@ -182,9 +176,6 @@ must set it from minibuffer."
buffer shell-file-name nil shell-command-switch
(ditz-build-command command arg))
- (when current-directory
- (setq default-directory current-directory))
-
(cond ((or (eq major-mode 'ditz-mode)
(string= popup-flag "switch"))
(switch-to-buffer buffer))
@@ -204,30 +195,42 @@ must set it from minibuffer."
(goto-char (point-min)))))))))
(defvar ditz-last-visited-issue-directory nil)
+
(defun ditz-build-command (command arg)
- (let (issue-directory)
+ (let (issue-directory current-directory)
+
+ ;; Reserve current directory to come back later It's needed when
+ ;; automatically finding directory.
+ (when buffer-file-name
+ (setq current-directory (file-name-directory (buffer-file-name))))
+
(cond ((eq major-mode 'ditz-mode)
(setq issue-directory ditz-last-visited-issue-directory))
((and (not (string= command "init"))
- ditz-find-issue-directory-automatically-flag)
- (catch 'loop
- (while t
- (cond ((file-exists-p ditz-issue-directory)
- (setq issue-directory
- (concat default-directory ditz-issue-directory))
- (throw 'loop t))
- ((string= "/" default-directory)
- (throw 'loop nil))
- (t
- (cd ".."))))))
+ ditz-find-issue-directory-automatically-flag
+ (catch 'loop
+ (while t
+ (cond ((file-exists-p ditz-issue-directory)
+ (throw 'loop t))
+ ((string= "/" default-directory)
+ (throw 'loop nil))
+ (t
+ (cd ".."))))))
+ (setq issue-directory
+ (concat default-directory ditz-issue-directory)))
(t
(setq issue-directory
(read-file-name "Issue dir: "
(or ditz-last-visited-issue-directory
default-directory)))))
+ ;; Restore default directory if needed.
+ (when current-directory
+ (setq default-directory current-directory))
+
(setq ditz-last-visited-issue-directory issue-directory)
- (mapconcat 'identity (list ditz-program command arg "-i" issue-directory) " ")))
+ (mapconcat 'identity
+ (list ditz-program command arg "-i" issue-directory) " ")))
;; Hooks
(defvar ditz-mode-hook nil
View
20 html/component-emacs-ditz.html
@@ -193,6 +193,26 @@
</tr>
+ <tr>
+ <td class="issuestatus_closed">
+ closed: fixed
+ </td>
+ <td class="issuename">
+ <a href="issue-89b4dd9e965eeceef261869d99a6a0f138668e3d.html">Show prompt to set issue dir after failing to find dir in auto-finding mode.</a>
+ (bug)
+ </td>
+
+ <td class="issuerelease">
+
+
+ in <a href="release-0.4.html">release 0.4</a>
+ (released)
+
+ </td>
+
+
+ </tr>
+
</table>
View
2  html/index.html
@@ -17,6 +17,8 @@
<ul>
+ <li><a href="release-0.4.html">Release 0.4</a>, released 2008-04-11. </li>
+
<li><a href="release-0.3.html">Release 0.3</a>, released 2008-04-11. </li>
<li><a href="release-0.2.html">Release 0.2</a>, released 2008-04-10. </li>
View
96 html/issue-89b4dd9e965eeceef261869d99a6a0f138668e3d.html
@@ -0,0 +1,96 @@
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Show prompt to set issue dir after failing to find dir in auto-finding mode.</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf8" />
+<link rel="stylesheet" href="style.css" type="text/css" />
+</head>
+
+<body>
+
+<a href="index.html">&laquo; emacs-ditz project page</a>
+
+<h1>Show prompt to set issue dir after failing to find dir in auto-finding mode.</h1>
+
+<p></p>
+
+<table>
+ <tr>
+ <td class="attrname">Id:</td>
+ <td class="attrval">89b4dd9e965eeceef261869d99a6a0f138668e3d</td>
+ </tr>
+
+ <tr>
+ <td class="attrname">Type:</td>
+ <td class="attrval">bugfix</td>
+ </tr>
+
+ <tr>
+ <td class="attrname">Creation time:</td>
+ <td class="attrval">Fri Apr 11 13:02:26 UTC 2008</td>
+ </tr>
+
+ <tr>
+ <td class="attrname">Creator:</td>
+ <td class="attrval">Kentaro Kuribayashi &lt;kentarok@...&gt;</td>
+ </tr>
+
+
+
+ <tr>
+ <td class="attrname">Release:</td>
+ <td class="attrval">
+
+ <a href="release-0.4.html">0.4</a>
+
+ (released 2008-04-11)
+
+
+ </td>
+ </tr>
+
+ <tr>
+ <td class="attrname">Component:</td>
+ <td class="attrval"><a href="component-emacs-ditz.html">emacs-ditz</a></td>
+ </tr>
+
+ <tr>
+ <td class="attrname">Status:</td>
+ <td class="attrval">
+ closed: fixed
+ </td>
+ </tr>
+</table>
+
+<h2>Issue log</h2>
+
+<table>
+
+
+ <tr class="logentryeven">
+
+ <td class="logtime">Fri Apr 11 13:02:27 UTC 2008</td>
+ <td class="logwho">Kentaro Kuribayashi &lt;kentarok@...&gt;</td>
+ <td class="logwhat">created</td>
+ </tr>
+ <tr><td colspan="3" class="logcomment">
+
+
+ </td></tr>
+
+
+ <tr class="logentryodd">
+
+ <td class="logtime">Fri Apr 11 13:18:41 UTC 2008</td>
+ <td class="logwho">Kentaro Kuribayashi &lt;kentarok@...&gt;</td>
+ <td class="logwhat">closed issue with disposition fixed</td>
+ </tr>
+ <tr><td colspan="3" class="logcomment">
+
+
+ </td></tr>
+
+</table>
+
+<p class="footer">Generated by <a href="http://ditz.rubyforge.org/">ditz</a>.
+</body>
+</html>
View
87 html/release-0.4.html
@@ -0,0 +1,87 @@
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>emacs-ditz release 0.4</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf8" />
+<link rel="stylesheet" href="style.css" type="text/css" />
+</head>
+<body>
+
+<a href="index.html">&laquo; emacs-ditz project page</a>
+
+<h1>emacs-ditz release 0.4</h1>
+
+<p>
+<table>
+ <tr>
+ <td class="attrname">Status:</td>
+ <td class="attrval">released</td>
+ </tr>
+
+ <tr>
+ <td class="attrname">Release time:</td>
+ <td class="attrval">Fri Apr 11 13:18:54 UTC 2008</td>
+ </tr>
+
+ <tr>
+
+ <td class="attrname">Completion:</td>
+ <td class="attrval">100%</td>
+ </tr>
+</table>
+</p>
+
+<h2>Issues</h2>
+
+ <table>
+
+ <tr>
+ <td class="issuestatus_closed">
+ closed: fixed
+ </td>
+ <td class="issuename">
+ <a href="issue-89b4dd9e965eeceef261869d99a6a0f138668e3d.html">Show prompt to set issue dir after failing to find dir in auto-finding mode.</a>
+ (bug)
+ </td>
+
+
+ </tr>
+
+</table>
+
+
+
+
+<h2>Release log</h2>
+<table>
+
+
+ <tr class="logentryeven">
+
+ <td class="logtime">Fri Apr 11 12:12:15 UTC 2008</td>
+ <td class="logwho">Kentaro Kuribayashi &lt;kentarok@...&gt;</td>
+ <td class="logwhat">created</td>
+ </tr>
+ <tr><td colspan="3" class="logcomment">
+
+
+ </td></tr>
+
+
+ <tr class="logentryodd">
+
+ <td class="logtime">Fri Apr 11 13:18:54 UTC 2008</td>
+ <td class="logwho">Kentaro Kuribayashi &lt;kentarok@...&gt;</td>
+ <td class="logwhat">released</td>
+ </tr>
+ <tr><td colspan="3" class="logcomment">
+
+ <p>release 0.4</p>
+
+ </td></tr>
+
+</table>
+
+<p class="footer">Generated by <a href="http://ditz.rubyforge.org/">ditz</a>.
+
+</body>
+</html>
View
22 issues/issue-89b4dd9e965eeceef261869d99a6a0f138668e3d.yaml
@@ -0,0 +1,22 @@
+--- !ditz.rubyforge.org,2008-03-06/issue
+title: Show prompt to set issue dir after failing to find dir in auto-finding mode.
+desc: ""
+type: :bugfix
+component: emacs-ditz
+release: "0.4"
+reporter: Kentaro Kuribayashi <kentarok@gmail.com>
+status: :closed
+disposition: :fixed
+creation_time: 2008-04-11 13:02:26.380822 Z
+references: []
+
+id: 89b4dd9e965eeceef261869d99a6a0f138668e3d
+log_events:
+- - 2008-04-11 13:02:27.630145 Z
+ - Kentaro Kuribayashi <kentarok@gmail.com>
+ - created
+ - ""
+- - 2008-04-11 13:18:41.958849 Z
+ - Kentaro Kuribayashi <kentarok@gmail.com>
+ - closed issue with disposition fixed
+ - ""
View
13 issues/project.yaml
@@ -44,3 +44,16 @@ releases:
- Kentaro Kuribayashi <kentarok@gmail.com>
- released
- release 0.3
+- !ditz.rubyforge.org,2008-03-06/release
+ name: "0.4"
+ status: :released
+ release_time: 2008-04-11 13:18:54.902624 Z
+ log_events:
+ - - 2008-04-11 12:12:15.794477 Z
+ - Kentaro Kuribayashi <kentarok@gmail.com>
+ - created
+ - ""
+ - - 2008-04-11 13:18:54.902658 Z
+ - Kentaro Kuribayashi <kentarok@gmail.com>
+ - released
+ - release 0.4
Please sign in to comment.
Something went wrong with that request. Please try again.