Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
44 changes: 3 additions & 41 deletions elm-todo/Todo.elm
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,6 @@ type alias Model =
type alias Entry =
{ description : String
, completed : Bool
, editing : Bool
, id : Int
}

Expand All @@ -62,7 +61,6 @@ newEntry : String -> Int -> Entry
newEntry desc id =
{ description = desc
, completed = False
, editing = False
, id = id
}

Expand All @@ -76,8 +74,6 @@ to them.
-}
type Msg
= UpdateNewEntryField String
| EditingEntry Int Bool
| UpdateEntry Int String
| Add
| Delete Int
| DeleteAllCompleted
Expand All @@ -102,29 +98,6 @@ update msg model =
UpdateNewEntryField str ->
{ model | newEntryField = str }

EditingEntry id isEditing ->
let
updateEntry t =
if t.id == id then
{ t | editing = isEditing }
else
t

focus =
Dom.focus ("todo-" ++ toString id)
in
{ model | entries = List.map updateEntry model.entries }

UpdateEntry id task ->
let
updateEntry t =
if t.id == id then
{ t | description = task }
else
t
in
{ model | entries = List.map updateEntry model.entries }

Check id isCompleted ->
let
updateEntry t =
Expand Down Expand Up @@ -229,7 +202,7 @@ viewKeyedEntry todo =
viewEntry : Entry -> Html Msg
viewEntry todo =
li
[ classList [ ( "completed", todo.completed ), ( "editing", todo.editing ) ] ]
[ classList [ ( "completed", todo.completed ) ] ]
[ div
[ class "view" ]
[ input
Expand All @@ -240,24 +213,14 @@ viewEntry todo =
]
[]
, label
[ onDoubleClick (EditingEntry todo.id True) ]
[]
[ text todo.description ]
, button
[ class "destroy"
, onClick (Delete todo.id)
]
[]
]
, input
[ class "edit"
, value todo.description
, name "title"
, id ("todo-" ++ toString todo.id)
, onInput (UpdateEntry todo.id)
, onBlur (EditingEntry todo.id False)
, onEnter (EditingEntry todo.id False)
]
[]
]


Expand Down Expand Up @@ -313,8 +276,7 @@ viewControlsClear entriesCompleted =
infoFooter : Html msg
infoFooter =
footer [ class "info" ]
[ p [] [ text "Double-click to edit a todo" ]
, p []
[ p []
[ text "Written by "
, a [ href "https://github.com/evancz" ] [ text "Evan Czaplicki" ]
]
Expand Down
Binary file added ruby-todo/.DS_Store
Binary file not shown.
1 change: 1 addition & 0 deletions ruby-todo/Gemfile.lock
Original file line number Diff line number Diff line change
Expand Up @@ -14,6 +14,7 @@ GEM

PLATFORMS
ruby
x64-mingw32

DEPENDENCIES
minitest
Expand Down
3 changes: 1 addition & 2 deletions ruby-todo/lib/engine.rb
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,7 @@ def self.run(*args)

def self.run_with_history(model, messages)
messages.map do |msg|
msg.apply_to(model)
model
model = msg.apply_to(model)
end
end
end
26 changes: 17 additions & 9 deletions ruby-todo/lib/messages.rb
Original file line number Diff line number Diff line change
Expand Up @@ -2,13 +2,13 @@ module Msg

class Add
def apply_to(model)
new_mod_entries = model.entries.dup
unless model.new_entry_field.blank?
model.entries << Entry.new(
new_mod_entries << Entry.new(
description: model.new_entry_field,
id: model.next_id)
end
model.next_id += 1
model.new_entry_field = ""
Model.new(entries: new_mod_entries, new_entry_field: "", next_id: model.next_id + 1)
end
end

Expand All @@ -20,7 +20,7 @@ def initialize(str)
attr_reader :str

def apply_to(model)
model.new_entry_field = str
Model.new(entries: model.entries, new_entry_field: str, next_id: model.next_id)
end
end

Expand All @@ -30,14 +30,20 @@ def initialize(id, is_completed)
end

attr_reader :id, :is_completed

def apply_to(model)
new_mod_entries = []
model.entries.each do |entry|
if entry.id == id
entry.completed = is_completed
new_mod_entries << Entry.new(description: entry.description,
id: entry.id,
completed: is_completed)
else
new_mod_entries << entry
end
end
end
Model.new(entries: new_mod_entries, new_entry_field: model.new_entry_field, next_id: model.next_id)
end
end

class Delete
Expand All @@ -48,13 +54,15 @@ def initialize(id)
attr_reader :id

def apply_to(model)
model.entries.reject! { |e| e.id == id }
new_mod_entries = model.entries.reject { |e| e.id == id }
Model.new(entries: new_mod_entries, new_entry_field: model.new_entry_field, next_id: model.next_id)
end
end

class DeleteAllCompleted
def apply_to(model)
model.entries.reject!(&:completed)
new_mod_entries = model.entries.reject(&:completed)
Model.new(entries: new_mod_entries, new_entry_field: model.new_entry_field, next_id: model.next_id)
end
end

Expand Down
4 changes: 2 additions & 2 deletions ruby-todo/lib/model.rb
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@ def initialize(entries: [], new_entry_field: "", next_id: nil)
(entries.lazy.map(&:id).max || -1) + 1
end

attr_accessor :entries, :new_entry_field, :next_id
attr_reader :entries, :new_entry_field, :next_id

def ==(other)
!other.nil? &&
Expand All @@ -20,7 +20,7 @@ def initialize(id:, description:, completed: false)
@description, @id, @completed = description, id, completed
end

attr_accessor :description, :completed, :id
attr_reader :description, :completed, :id

def ==(other)
!other.nil? &&
Expand Down
2 changes: 1 addition & 1 deletion ruby-todo/test/todo_test.rb
Original file line number Diff line number Diff line change
Expand Up @@ -91,7 +91,7 @@
end

it "supports time travel" do
skip "Mutable model does not support time travel"


actual_history = Engine.run_with_history(Model.new, [
Msg::UpdateNewEntryField.new("go forward in time"),
Expand Down
5 changes: 3 additions & 2 deletions swift-todo/Sources/Todo/Engine.swift
Original file line number Diff line number Diff line change
Expand Up @@ -13,9 +13,10 @@ struct Engine {
}

static func runWithHistory(on model: Model, applying messages: [Message]) -> [Model] {
var newModel = model
return messages.map { message in
message.apply(to: model)
return model
newModel = message.apply(to: newModel)
return newModel
}
}
}
27 changes: 16 additions & 11 deletions swift-todo/Sources/Todo/Message.swift
Original file line number Diff line number Diff line change
Expand Up @@ -14,30 +14,35 @@ enum Message {
case delete(Int)
case deleteAllCompleted

func apply(to model: Model) {
func apply(to model: Model) -> Model {
var newModel = model
switch(self) {
case .add:
if !model.newEntryField.isBlank() {
model.entries.append(Entry(id: model.nextID, description: model.newEntryField))
if !newModel.newEntryField.isBlank() {
newModel.entries.append(Entry(id: newModel.nextID, description: newModel.newEntryField))
}
model.nextID += 1
model.newEntryField = ""
newModel.nextID += 1
newModel.newEntryField = ""

case .updateNewEntryField(let str):
model.newEntryField = str
newModel.newEntryField = str

case .check(let id, let isCompleted):
newModel.entries = []
for entry in model.entries {
if(entry.id == id) {
entry.completed = isCompleted
var e = entry
if(e.id == id) {
e.completed = isCompleted
}
newModel.entries.append(e)
}

case .delete(let id):
model.entries.remove { $0.id == id }
newModel.entries.remove { $0.id == id }

case .deleteAllCompleted:
model.entries.remove { $0.completed }
newModel.entries.remove { $0.completed }
}
return newModel
}
}
4 changes: 2 additions & 2 deletions swift-todo/Sources/Todo/Model.swift
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
class Model {
struct Model {
var entries: [Entry]
var newEntryField: String
var nextID: Int
Expand All @@ -11,7 +11,7 @@ class Model {
}
}

class Entry {
struct Entry {
var id: Int
var description: String
var completed: Bool
Expand Down
4 changes: 2 additions & 2 deletions swift-todo/Tests/TodoTests/TodoTests.swift
Original file line number Diff line number Diff line change
Expand Up @@ -77,7 +77,7 @@ class TodoTests: XCTestCase {
XCTAssertEqual([11], newModel.entries.map { $0.id })
}

/*

func testTimeTravel() {
let actualHistory = Engine.runWithHistory(on: Model(), applying: [
.updateNewEntryField("go forward in time"),
Expand Down Expand Up @@ -145,6 +145,6 @@ class TodoTests: XCTestCase {
XCTAssertEqual(expected, actual, "History mismatch at step \(index)")
}
}
*/


}