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
Binary file added .DS_Store
Binary file not shown.
43 changes: 3 additions & 40 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,28 +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
Expand Down Expand Up @@ -229,7 +203,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 +214,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 +277,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.
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
42 changes: 29 additions & 13 deletions ruby-todo/lib/messages.rb
Original file line number Diff line number Diff line change
Expand Up @@ -2,13 +2,16 @@ module Msg

class Add
def apply_to(model)
newEntries = model.entries.clone

unless model.new_entry_field.blank?
model.entries << Entry.new(
description: model.new_entry_field,
id: model.next_id)
newEntries << Entry.new(
description: model.new_entry_field,
id: model.next_id)
end
model.next_id += 1
model.new_entry_field = ""

newNextId = model.next_id + 1
newModel = Model.new(next_id: newNextId, new_entry_field: "", entries: newEntries)
end
end

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

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

Expand All @@ -32,11 +35,17 @@ def initialize(id, is_completed)
attr_reader :id, :is_completed

def apply_to(model)
model.entries.each do |entry|
if entry.id == id
entry.completed = is_completed
end
newEntries = model.entries.map do |entry|
newEntry = entry
if entry.id == id
newEntry = Entry.new(description: entry.description, id: entry.id, completed: is_completed)
end
newEntry
end

newModel = Model.new(next_id: model.next_id, new_entry_field: model.new_entry_field, entries: newEntries)

newModel
end
end

Expand All @@ -48,14 +57,21 @@ def initialize(id)
attr_reader :id

def apply_to(model)
model.entries.reject! { |e| e.id == id }

newModel = Model.new(next_id: model.next_id, new_entry_field: model.new_entry_field, entries: model.entries.clone)

newModel.entries.reject! { |e| e.id == id }
newModel
end
end

class DeleteAllCompleted
def apply_to(model)
model.entries.reject!(&:completed)

newEntries = model.entries.clone
newEntries.reject!(&:completed)

newModel = Model.new(next_id: model.next_id, new_entry_field: model.new_entry_field, entries: newEntries)
end
end

end
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
Binary file added ruby-todo/test/.DS_Store
Binary file not shown.
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"
# 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 curModel = model
return messages.map { message in
message.apply(to: model)
return model
curModel = message.apply(to: curModel)
return curModel
}
}
}
28 changes: 16 additions & 12 deletions swift-todo/Sources/Todo/Message.swift
Original file line number Diff line number Diff line change
Expand Up @@ -14,30 +14,34 @@ 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))
var newEntries = model.entries
newEntries.append(Entry(id: model.nextID, description: model.newEntryField))
newModel.entries = newEntries
}
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):
for entry in model.entries {
if(entry.id == id) {
entry.completed = isCompleted
for i in newModel.entries.indices {
if(newModel.entries[i].id == id) {
newModel.entries[i].completed = isCompleted
}
}

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)")
}
}
*/


}