Generalize getCurrentBuffer -> getBuffer
Generalize getCurrentBuffer -> getBuffer

before :
- getCurrentBuffer : Model -> Buffer
- getCurrentBuffer model = (Currently selected buffer)

after :
- getBuffer : Model -> (String, String) -> Buffer
- getBuffer model (channelName, serverName) = (Corresponding buffer)

openirc/openirc,openirc/openirc,openirc/openirc,openirc/openirc