Adds OpenCommandLine command.

Koffee/FileSystemService.fs

@@ -20,6 +20,7 @@ type IFileSystemService =
     abstract Delete: Path -> unit
     abstract OpenFile: Path -> unit
     abstract OpenExplorer: Path -> unit
+    abstract OpenCommandLine: Path -> unit
 
 type FileSystemService() =
     let wpath (path: Path) = path.Format Windows
@@ -38,6 +39,7 @@ type FileSystemService() =
         override this.Delete node = this.Delete node
         override this.OpenFile path = this.OpenFile path
         override this.OpenExplorer path = this.OpenExplorer path
+        override this.OpenCommandLine path = this.OpenCommandLine path
 
     member this.GetNode path =
         let wp = wpath path
@@ -150,6 +152,10 @@ type FileSystemService() =
         if path <> Path.Root then
             Process.Start("explorer.exe", String.Format("/select,\"{0}\"", wpath path)) |> ignore
 
+    member this.OpenCommandLine path =
+        if path <> Path.Root then
+            Process.Start("cmd.exe", String.Format("/k pushd \"{0}\"", wpath path)) |> ignore
+
 
     member private this.FileNode file = {
         Path = toPath file.FullName

Koffee/KeyBinding.fs

@@ -45,6 +45,7 @@ let DefaultsAsString = [
     ("<s-delete>", PromptDelete)
     ("<f9>", TogglePathFormat)
     ("<c-e>", OpenExplorer)
+    ("<cs-c>", OpenCommandLine)
     ("?", OpenSettings)
     ("<f1>", OpenSettings)
     ("<c-w>", Exit)

Koffee/MainController.fs

@@ -56,6 +56,7 @@ type MainController(fileSys: IFileSystemService, settingsFactory: unit -> Mvc<Se
         | TogglePathFormat -> Sync this.TogglePathFormat
         | OpenSettings -> Sync this.OpenSettings
         | OpenExplorer -> Sync this.OpenExplorer
+        | OpenCommandLine -> Sync this.OpenCommandLine
         | Exit -> Sync ignore // handled by view
 
     member this.OpenUserPath pathStr model =
@@ -400,6 +401,11 @@ type MainController(fileSys: IFileSystemService, settingsFactory: unit -> Mvc<Se
             fileSys.OpenExplorer model.SelectedNode.Path
             model.Status <- Some <| MainStatus.openExplorer model.PathFormatted
 
+    member this.OpenCommandLine model =
+        if model.Path <> Path.Root then
+            fileSys.OpenCommandLine model.Path
+            model.Status <- Some <| MainStatus.openCommandLine model.PathFormatted
+
     member this.OpenSettings model =
         let settings = settingsFactory()
         settings.StartDialog() |> ignore

Koffee/MainModel.fs

@@ -182,6 +182,7 @@ type MainEvents =
     | Redo
     | TogglePathFormat
     | OpenExplorer
+    | OpenCommandLine
     | OpenSettings
     | Exit
 
@@ -223,6 +224,7 @@ type MainEvents =
         | Redo -> "Redo Action"
         | TogglePathFormat -> "Toggle Between Windows and Unix Path Format"
         | OpenExplorer -> "Open Windows Explorer at Current Location"
+        | OpenCommandLine -> "Open Windows Commandline at Current Location"
         | OpenSettings -> "Open Help/Settings"
         | Exit -> "Exit"
 
@@ -259,6 +261,7 @@ type MainEvents =
         Redo
         TogglePathFormat
         OpenExplorer
+        OpenCommandLine
         OpenSettings
         Exit
     ]

Koffee/MainView.fs

@@ -208,6 +208,7 @@ module MainStatus =
     let changePathFormat newFormat = Message <| sprintf "Changed Path Format to %O" newFormat
     let openFile path = Message <| sprintf "Opened File: %s" path
     let openExplorer path = Message <| sprintf "Opened Windows Explorer to: %s" path
+    let openCommandLine path = Message <| sprintf "Opened Commandline at: %s" path
 
     let private runningActionMessage action pathFormat =
         match action with

Koffee/SettingsWindow.xaml

@@ -1,4 +1,4 @@
-<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="Koffee Settings" Width="600" Height="650">
+<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Title="Koffee Settings" Width="650" Height="750">
     <Grid>
         <Label x:Name="label" Content="Key Bindings:" HorizontalAlignment="Left" Margin="10,0,0,0" VerticalAlignment="Top"/>
         <DataGrid x:Name="KeyBindings" Margin="0,26,0,10" CanUserResizeRows="False" AreRowDetailsFrozen="True" GridLinesVisibility="None" AlternatingRowBackground="#FFEAEAEA" FontSize="13" HorizontalAlignment="Stretch" HorizontalContentAlignment="Stretch" ColumnWidth="*" AutoGenerateColumns="False" IsReadOnly="True">

README.md

@@ -53,6 +53,7 @@ _Capitalized letters indicate that the key is combined with Shift._
 
 #### Other
 - Open Windows Explorer at your current location with `Ctrl + e`
+- Open Commandline at your current location with `Ctrl + Shift + c`
 - Toggle between Windows-style and Unix-style path formats with `F9`
 
 ## Version History