Added 'video_link' macro

* Wiki macro which generates a link to the page for the
  specified video [closes #9]

app/helpers/videos_helper.rb

@@ -23,6 +23,15 @@ def video_embed_code(video, size = :standard)
     "</script>\n"
   end
 
+  def link_to_video_macro_markup(video)
+    "{{video_link(#{video.permalink})}}"
+  end
+
+  def link_to_video(video)
+    return "[Video not provided]" unless video.instance_of?(Video)
+    "<a href='/projects/#{video.project.to_param}/videos/#{video.to_param}' class='video-link'>#{video.title}</a>"
+  end
+
   private
     def swf_object_file_url
       "/plugin_assets/chili_videos/swfobject.js"

app/views/videos/show.html.erb

@@ -32,8 +32,10 @@
       <dd><%= link_to @video.version, project_version_path(@project, @video.version) %></dd>
     <%- end %>
 
-    <dt><label for="<%= @video.title %>">Embed:</label></dt>
+    <dt><label for="<%= @video.title %>">Embed video:</label></dt>
     <dd><input type="text" id="<%= @video.title %>" class="embed standard" value="<%= video_embed_macro_markup(@video) %>" /></dd>
+    <dt><label for="<%= @video.title %>_link">Video Link:</label></dt>
+    <dd><input type="text" id="<%= @video.title %>_link" class="embed standard" value="<%= link_to_video_macro_markup(@video) %>" /></dd>
   </dl>
 </div>
 

assets/stylesheets/videos.css

@@ -28,6 +28,7 @@ ul.videos li {
 .video.single dt {
   font-weight: bold;
   display: block;
+  width: 100px;
 }
 
 .video input {

init.rb

@@ -61,3 +61,14 @@
 END
   end
 end
+
+Redmine::WikiFormatting::Macros.register do
+  desc "Provides a link to a video with the title of the video as the link text.\n" +
+       "Usage examples:\n\n" +
+       "  !{{video_link(id)}}\n"
+  macro :video_link do |o, args|
+    video_id = args[0]
+    video = Video.find(video_id)
+    VideosHelper.link_to_video(video)
+  end
+end